Errore run-time 2001 Operazione precedente annullata

[Alessio Forconi]

Salve a tutti,

ho queste istruzioni:

Private Function Variazione(ButtonName as string)

Select Case ButtonName
Case "btnVaria1"
Select Case TipoVariazione
Case "CO"
cmbSchema1 = SchemaVariazione
cmbSchema1_AfterUpdate
cmbOratore1 =
cmbOratore1.ItemData(2)
txtTema1 = DiscorsoCO
txtCongregazione1 = DLookup
("[Oratori]", "Oratori", "[IDOratore] = " & cmbOratore1)
Case "BT"
ecc...
ecc...
End Select
Case "BtnVaria2"
ecc...
ecc...
End Select

all'istruzione txtCongregazione1 = DLookup("[Oratori]", "Oratori",
"[IDOratore] = " & cmbOratore1) si pianta e sputa fuori questo errore

Errore di run-time '2001'
Operazione precedente annullata

Non riesco a capire da cosa può dipendere, qual'è l'operazione
precedente annullata?

L'unica cosa che mi viene in mente è che la chiamata a
cmbSchema1_AfterUpdate possa interferire, il codice in
cmbSchema1_AfterUpdate è questo:

Private Sub cmbSchema1_AfterUpdate()
Dim sqlOratore As String
Dim sqlTema As String

sqlOratore = "SELECT SchemiOratori.IDOratore, Nome & ' ' & Cognome AS
Oratore, SchemiOratori.Schema " & _
"FROM Oratori INNER JOIN SchemiOratori ON
Oratori.IDOratore = SchemiOratori.IDOratore " & _
"WHERE SchemiOratori.Schema = " & cmbSchema1 & " ORDER BY
Nome & ' ' & Cognome"

If cmbSchema1.Value = 1001 Then
cmbOratore1 = ""
cmbOratore1.RowSource = sqlOratore
If cmbOratore1.ListCount = 0 Then
cmbOratore1.RowSource = "SELECT IDOratore, Nome & ' ' &
Cognome AS Nominativo FROM Oratori"
cmbOratore1.Enabled = True
cmbOratore1.SetFocus
cmbOratore1.Dropdown
End If
Else
If Not ControllaDiscorsiDoppi(cmbSchema1.Value, cmbSchema1.Name)
Then
cmbSchema1.SetFocus
Else
cmbOratore1 = ""
cmbOratore1.RowSource = sqlOratore
If cmbOratore1.ListCount = 0 Then
cmbOratore1.RowSource = "SELECT IDOratore, Nome & ' ' &
Cognome AS Nominativo FROM Oratori"
cmbOratore1.Enabled = True
cmbOratore1.SetFocus
cmbOratore1.Dropdown
End If

End If

End If

sqlTema = "SELECT Tema FROM Schemi WHERE Schema = " & cmbSchema1
txtTema1.Enabled = True
txtTema1 = DLookup("[Tema]", "Schemi", "[Schema] = " & cmbSchema1)

cmbOratore1.Enabled = True
cmbOratore1.SetFocus
cmbOratore1.Dropdown
btnStorico1.Enabled = True
btnInserisci.Enabled = True

Ho postato molto codice ma è per visualizzare bene quello che succede.

Si può fare niente per risolvere il problema?

Grazie.

[Karl Donaubauer]

Alessio Forconi wrote:
> ...

> all'istruzione txtCongregazione1 = DLookup("[Oratori]", "Oratori",
> "[IDOratore] = " & cmbOratore1) si pianta e sputa fuori questo errore
>
> Errore di run-time '2001'
> Operazione precedente annullata
>

> Non riesco a capire da cosa pu� dipendere, qual'� l'operazione
> precedente annullata?

Questo messaggio viene a causa di uno sbaglio nel DLookUp.
I soliti sospetti:

1. Veramente esiste un campo "[Oratori]" nella tabella?
2. Il tipo di dati nel cmbOratore1 corrisponde al tipo di dati
di IDOratore?

--
HTH
Karl
*********
Access FAQ: www.donkarl.com/it

[Alessio Forconi]

On 22 Mag, 18:59, "Karl Donaubauer" <NoS...@donkarl.com> wrote:

> 1. Veramente esiste un campo "[Oratori]" nella tabella?

> HTH
> Karl

Grazie Karl

hai centrato il problema, una svista madornale da parte mia... più
guardavo e meno la vedevo.

Risolto.