Option Compare Database
Private Sub nome_AfterUpdate()
Forms!start.Refresh
End Sub
Private Sub cognome_Click()
Forms!start.Refresh
End Sub
Private Sub accoda_tbl_persona_Click()
On Error GoTo Err
Dim V_nome As String
If (IsNull(Forms!start.nome.Value) = True) Then
MsgBox ("compilare il campo Nome")
Exit Sub
Else
V_nome = Forms!start.nome.Value
End If
Dim V_cognome As String
If (IsNull(Forms!start.cognome.Value) = True) Then
MsgBox ("compilare il campo Cognome")
Exit Sub
Else
V_cognome = Forms!start.cognome.Value
End If
AccodaDati "tbl_persona", V_nome, V_cognome
MsgBox ("Fatto")
Exit Sub
Err:
MsgBox err.Description
Exit Sub
End Sub
Private Sub modifica_tbl_persona_Click()
ModificaDati "tbl_persona"
End Sub
Private Sub cancella_tbl_persona_Click()
On Error GoTo Err
Dim V_Warning As String
V_Warning = MsgBox("Pulisci tabella?", 4)
If V_Warning = 6 Then
CancellaDati "tbl_persona"
MsgBox ("fatto!")
End If
Exit Sub
Err:
MsgBox err.Description
Exit Sub
End Sub