Salve,
ci sto sopra da un po, ma non riesco a vedere l'errore in questo codice.
Lo scopo è: in una applicazione per ricette di cucina, data una flexgrid in cui l'utente inserisce gli ingredienti, gli stessi devono andare a finire in una tabella di database, ma prima viene eseguito un controllo per determinare se gli ingredienti sono già presenti o no (chiaramente se sono presenti non vengono inseriti).
L'errore che mi da è sull'oggetto miors.Eof, dice che non è impostato, ma non dovrebbe dipendere da questo visto che mi sembra sia correttamente impostato (nella stessa pagina ci sono altre connessioni al db che funzionano perfettamente)
Dim Qinserimentoingrediente As String
Qinserimentoingrediente = "INSERT INTO ingrediente (descrizione) VALUES ('" & ingrediente & "')"
Set miodb = OpenDatabase(App.Path & "\cucina.mdb")
Set miors = miodb.OpenRecordset("ingrediente")
Dim ingredienteesiste As Boolean
For numeroingredienti = Me.MSHFIngredienti.FixedRows To Me.MSHFIngredienti.Rows - 1
ingrediente = Me.MSHFIngredienti.TextMatrix(numeroingredienti, 0)
MsgBox numeroingredienti
' legge il numero degli ingredienti correttamente
MsgBox ingrediente
'legge ingrediente correttamente
If miors.EOF = False Then
If ingrediente = miors.Fields!descrizione.Value Then
ingredienteesiste = True
Else
ingredienteesiste = False
miors.MoveNext
End If
End If
Next
If ingredienteesiste = False Then
miodb.Execute (Qinserimentoingrediente)
miors.Close
End If
Grazie a chiunque mi risponde e saluti
Rispondi quotando
