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 SubIl 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. |