[VBA/ACCESS] Controllo dei valori di un RecordSet

[19pantarei75]

Ciao a tutti
Ho una maschera basata su una tabella. In questa tabella ogni volta che vado ad inserire il CodiceFornitore (che nel mio caso non è una chiave), vorrei fare un controllo se è presente o meno nella tabella un record con lo stesso valore.

Ho fatto la seguente

Private Sub CodiceFornitore_AfterUpdate()

'Questa procedura stabilisce una connessione
'con il database corrente con le 2 righe sotto riportate

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset


'assegno ad una variabile il valore della maschera corrispondente
'al campo CodiceFornitore

CaratteriDigitati = Me.CodiceFornitore

'Crea l'oggetto di connessione
Set conn = CurrentProject.Connection

'Crea un nuovo Recordset
Set rst = New ADODB.Recordset

' Apre la tabella o la query
rst.Open "SELECT COUNT(CodiceFornitore) FROM FORNITORE WHERE CodiceFornitore ='CaratteriDigitati'", conn

flag = rst.Fields("CodiceFornitore")
'appoggio = flag

If flag > 1 Then
MsgBox "Codice già presente"

End If

End Sub

mi restituisce il seguente errore: errore di run-time 3265. impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numro richiesto.
qualche suggerimento?

[mentos]

Prova così

Private Sub CodiceFornitore_AfterUpdate()

'Questa procedura stabilisce una connessione
'con il database corrente con le 2 righe sotto riportate

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset


'assegno ad una variabile il valore della maschera corrispondente
'al campo CodiceFornitore

CaratteriDigitati = Me.CodiceFornitore

'Crea l'oggetto di connessione
Set conn = CurrentProject.Connection

'Crea un nuovo Recordset
Set rst = New ADODB.Recordset

' Apre la tabella o la query
rst.Open "SELECT COUNT(CodiceFornitore) FROM FORNITORE WHERE CodiceFornitore ='" & CaratteriDigitati & "'", conn

flag = rst.Fields("CodiceFornitore")
'appoggio = flag

If flag > 1 Then
MsgBox "Codice già presente"

End If

End Sub

[Alethesnake]

evidentemente la query non ha prodotto alcun risultato. Prima di provare ad accedere ad un recordset devi verificare che questo non sia vuoto tramite il metodo .EOF

[oregon]

Ma se non includi il campo CodiceFornitore nella query, come fai a leggerlo dal recordset?

E poi, a cosa ti serve sommare i codici dei fornitori ?

[19pantarei75]

cosi funge.
mi serve fare un select count per contare quanti record con lo stesso CodiceFornitore ci sono.
Poichè la selectcount mi parte da zero con un CodiceFornitore inserito, appena tento di inserirne un altro con lo stesso CodiceFornitore questa mi restituisce il valore 1 e quindi mando il messaggio di errore.

Private Sub CodiceFornitore_AfterUpdate()

'Questa procedura stabilisce una connessione
'con il database corrente con le 2 righe sotto riportate

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
'Dim fld As ADODB.Field

'Crea l'oggetto di connessione
Set conn = CurrentProject.Connection

'Crea un nuovo Recordset
 Set rst = New ADODB.Recordset

sql = "SELECT COUNT(*) AS Conta FROM FORNITORE WHERE CodiceFornitore='" & Me.CodiceFornitore.Text & "' "
' Apre la tabella o la query
rst.Open sql, conn
'Me.appoggio = rst("Conta")

If rst("Conta") >= 1 Then



MsgBox "Il Codice Fornitore è già presente"
Me.CodiceFornitore.SetFocus
Me.CodiceFornitore = ""

End If
rst.Close: Set rst = Nothing

conn.Close: Set conn = Nothing
End Sub

[oregon]

Pardon ... avevo letto SUM e non COUNT ...