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 FunctionLa funzione ControllaCampi restituisce il valore True se tutti i controlli di cui sopra sono stati compilati, in caso contrario restituisce il valore False. |