gru ha scritto:
Buona sera, per quanto riguarda la risposta di Alex, ho provato direttamente dalla tabella e metterli come campi obbligatori però non voglio limiktare i campi nella tabella, preferisco più lavorare sulle maschere.
Prima cosa il ragionamento non sta in piedi dal moemento che poi i controlli in maschera sono associati al Campo nella Tabella...
Secondo ti ho anche suggerito che, disgiuntamente dalla Tabella puoi indicare il CRITERIO DI VALIDAZIONE sul Controllo nella maschera... cosa ti sfugge...?
gru ha scritto:
per quanto riguarda la risposta di Marcdreamer...
Non usare quel metodo per 16 controlli è un "NON SENSE" tecnico...
Piuttosto
Private Function CheckAll() As Boolean
Dim ctl As Access.Control
FOr each ctl in Me.Controls
If ctl.ControlSource<>vbNullstring then
If Len(ctl.Value & vbNullString)=0 then
MsgBox "Devi compilare il controllo " & ctl.Name
ctl.SetFocus
Exit Function
End If
End If
Next
CheckAll=True
End FUnction
Se la Validazione dei controlli Associati non prevede tutti i controlli inserisci nella proprietà TAG dei controlli Oggetto di Verifica una X
e nel Ciclo invece di controllare il COntrolSource controlli la proprietà TAG
Private Function CheckAll() As Boolean
Dim ctl As Access.Control
FOr each ctl in Me.Controls
If ctl.Tag="X" then
If Len(ctl.Value & vbNullString)=0 then
MsgBox "Devi compilare il controllo " & ctl.Name
ctl.SetFocus
Exit Function
End If
End If
Next
CheckAll=True
End FUnction
Rifletti bene.