L'aggiunta di informazioni nel database è un'operazione per certi versi analoga alla modifica dei dati; anche il codice che andremo a scrivere sarà simile. Vediamo subito il codice da scrivere nell'evento Click del pulsante Aggiungi:
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 si vede, anche in questo caso per il salvataggio dei dati vogliamo utilizzare il pulsante Salva (Command6). Dobbiamo allora fare una piccola aggiunta nell'evento Command6_Click:
Private Sub Command6_Click()
'Salva le modifiche.
Data1.Recordset.Update
Command6.Visible = False
Command2.Caption = "Aggiungi"
Command3.Caption = "Modifica"
End Sub
L'istruzione che abbiamo aggiunto, Command2.Caption = "Aggiungi", ha lo scopo di reimpostare la Caption del pulsante Aggiungi, in modo analogo a quanto abbiamo nella lezione precedente per il tasto Modifica. Ma allora dobbiamo ricordarci di reimpostare la Caption anche nell'evento Validate del controllo Data, che quindi diventerà:
Private Sub Data1_Validate(Action As Integer, Save As Integer)
Dim Risposta As Integer
If Save = true Then
'E' stato modificato un contatto.
Risposta = MsgBox("Salvare le modifiche apportate?", vbQuestion + vbYesNo, Me.Caption)
If Risposta = vbNo Then
'Se si seleziona no, annulla le modifiche.
'Per questo, la proprietà DataChanged delle TextBox viene impostata su False.
Text1.DataChanged = False
Text2.DataChanged = False
Text3.DataChanged = False
Text4.DataChanged = False
End If
End If
'Nasconde il pulsante "Salva".
Command6.Visible = False
Command2.Caption = "Aggiungi" 'IStrUZIONE AGGIUNTA.
Command3.Caption = "Modifica"
End Sub
Abbiamo finito: ora è possibile aggiungere dati alla nostra agenda. Il programma aggiornato con la nuova funzione è disponibile per il download facendo clic qui.