Forms

3.95 Verificare che alcuni controlli di una maschera di inserimento dati non siano stati lasciati vuoti
  Roberto, Alessandro Baraldi

Nella proprietà TAG dei controlli obbligatori (ovvero che non debbono essere lasciati vuoti) scrivere la parola OBBLIGATORIO, quindi a fronte dell'evento Prima di aggiornare della maschera di inserimento dei dati generare il seguente codice VBA;
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ctl As Control
For Each ctl In Me.Controls
       If ctl.Tag = "OBBLIGATORIO" Then
            With ctl
                  If .Visible And (.ControlType = acTextBox) Then
                        .BackColor = 12632256
                           If IsNull(.Value) Or .Value = "" Then
                                 .BackColor = 255
                                 MsgBox UCase(ctl.Controls(0).Caption) & vbCrLf & _
                                          "@Inserire i dati mancanti nel Campo@", vbExclamation, "AVVISO"
                                 .SetFocus
                                 Set ctl = Nothing
                                 Cancel = True
                                 Exit Sub
                           End If
                  End If
            End With
      End If
Next
Set ctl = Nothing
End Sub
Il codice VBA di cui sopra avviserà l'utente finale di quale controllo è stato lasciato vuoto, sposta il fuoco su di esso e colora il suo sfondo di rosso.
Se si usa una versione di Access successiva ad Access 97 i caratteri @ all'interno della funzione MsgBox non avranno effetto.


Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.