Ok!. Salve a tutti. Ovviamente è inutile dirvi che mi sto appena affacciando alla programmazione Vba.
vado subito al sodo. Ho creato un db Access "Archivio.mdb" con tabella "utenti", suddivisa in colonne ("cognome" "Nome" e "Data deposito").
Ho creato con Vb6, una form contenente CommandBatton "Trova" "Aggiungi" "Modifica" "Elimina" "Aggiorna" "Salva" ed "Esci".
Il mio problema è questo:
1)- se clicco su modifica o aggiungi, mi viene visualizzato Errore di run-time 3020, metodo Update o CancelUpdate senza AddNew o Edit. A mio modesto parere ciò che viene segnalato mancare per me esiste, difatti il codice di "modifica" è il segente:
Private Sub Command3_Click()
If Command3.Caption = "Modifica" Then
'Attiva la funzione di modifica.
Data1.Recordset.Edit
Command3.Caption = "Annulla"
Command6.Visible = True
Else
'Annulla le modifiche.
Data1.Recordset.CancelUpdate
Command6.Visible = False
Command3.Caption = "Modifica"
End If
End Sub
-------------------------------
mentre il codice di "aggiungi" è il seguente:
Private Sub Command2_Click()
If Command2.Caption = "Aggiungi" Then
'Attiva la funzione di aggiunta.
Data1.Recordset.AddNew
Command2.Caption = "Annulla"
Command6.Visible = True
Else
'Annulla le modifiche.
Data1.Recordset.CancelUpdate
Command6.Visible = False
Command2.Caption = "Aggiungi"
End If
End Sub
-------------------------
come se non bastasse, questo perchè volevo una cosa semplice
con il CommandButton "Trova" invece mi viene segnalato: OPERAZIONE NON SUPPORTATA PER QUESTO TIPO DI OGGETTO.
ovviamente il relativo codice è
Private Sub Command1_Click()
'Ricerca un Cognonome all'interno dell'archivio.
Dim CognomeDaCercare As String
CognomeDaCercare = InputBox$("Immettere il Cognome da ricercare:", "Ricerca nell'archivio")
If CognomeDaCercare <> "" Then
'Esegue la ricerca solo se è stato immesso un cognome.
Data1.Recordset.Index = "cognome"
Data1.Recordset.Seek "=", CognomeDaCercare
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
Data1.Refresh
'Il cognome cercato non è stato trovato.
MsgBox "Cognome non trovato.", vbInformation, Me.Caption
End If
End If
End Sub
-----------
In che cosa ho errato????
Rispondi quotando
