Private Sub cmdInserisci_Click()

' Dichiaro le variabili
  Dim varCampo As Object
  Dim strSQL As String

' Inizio il ciclo di controllo sugli oggetti (varCampo) della maschera (Me) attiva
  For Each varCampo In Me

' Se il campo attuale ha valore = Null visualizzo un messaggio d'errore e non procedo con l'inserimento
    If IsNull(varCampo) Then
      MsgBox "Errore d'inserimento" & Chr(10) & "Mancano dati obbligatori", vbOKOnly, "Errore"
      Exit Sub
    End If

' Altrimenti controllo il prossimo campo
  Next

' Tutti i campi sono popolati, quindi inserisco il record
  strSQL = "INSERT INTO Tabella1([Id], [Testo], [Descrizione]) VALUES(" & txtId & ", '" & txtTesto & "', '" & txtDescrizione & "')"
  DoCmd.RunSQL strSQL

End Sub