|
Modules |
| 5.88 Verifica che tuttte le caselle di testo e tutte le caselle combinate di una maschera siano state riempite dall'utente |
| Giuseppe Costanzi |
|
Con la funzione che segue è possibile verificare che tutte le caselle di testo e tutte le caselle combinate di una maschera di inserimento siano state riempite dall'utente. Function ControllaCampi()
Dim oAcCtl As Access.Control
Dim oAcTxt As Access.TextBox
Dim oAcCmb As Access.ComboBox
On Error GoTo ErrHandle
ControllaCampi = True
For Each oAcCtl In Me.Controls
Select Case oAcCtl.ControlType
Case acTextBox
Set oAcTxt = oAcCtl
If (Len("" & oAcTxt.Value) = 0) Then
oAcTxt.SetFocus
MsgBox _
"Il campo " & oAcTxt.ControlTipText & oAcTxt.ControlSource & "è ad immissione obbligatoria." & Chr(13) & "Impossibile salvare!" _
, vbExclamation Or vbOKOnly
ControllaCampi = False
Exit Function
End If
Case acComboBox
Set oAcCmb = oAcCtl
If (Len("" & oAcCmb.Value) = 0) Then
oAcCmb.SetFocus
MsgBox _
"Il campo " & oAcCmb.ControlTipText & oAcCmb.ControlSource & "è ad immissione obbligatoria." & Chr(13) & "Impossibile salvare!" _
, vbExclamation Or vbOKOnly
ControllaCampi = False
Exit Function
End If
End Select
Next
Set oAcTxt = Nothing
Set oAcCtl = Nothing
Set oAcCmb = Nothing
ErrHandle:
If Err.Number = 0 Then Exit Function
MsgBox "Errore " & Err.Number & " Descrizione: " & Err.Description & " Sorgente: " & Err.Source & " Funzione: ControllaCampi"
End Function
La funzione ControllaCampi restituisce il valore True se tutti i controlli di cui sopra sono stati compilati, in caso contrario restituisce il valore False.
|