Rendere obbligatorio l'immissione di dati in una maschera

Question

Ciao a tutti

rieccomi qui con dei nuovi quesiti per voi, che posto in due domande separate, in quanto

attengono a due situazioni differenti.

La prima riguarda il fatto di rendere obbligatoria la immissione di dati in campi specifici.

Mi spiego meglio:

a fronte dell'Evento: PRIMA DI AGGIORNARE della maschera TECNICI, ho inserito il

seguente codice, il quale mi verifica se i campi nel cui "TAG" ho scritto

la parola: OBBLIGATORIO, siano vuoti o meno, ed in caso lo siano emette un messaggio

di avviso e mi richiede di inserire il dato mancante.

Dim ctl As Control

For Each ctl In Me.Controls

       If ctl.Tag = "OBBLIGATORIO" Then

            With ctl

                  If .Visible And (.ControlType = acTextBox) Then

                         If IsNull(.Value) Or .Value = "" Then

                            MsgBox " Non sono stati inseriti i dati nel campo: " & UCase(ctl.Controls(0).Caption) & vbCrLf & _

                                   "Per continuare cliccare su OK ed immettere il dato mancante", vbExclamation, "DATI MANCANTI"

                                 .SetFocus

                                 Set ctl = Nothing

                                 Cancel = True

                                 Exit Sub

                           End If

                  End If

            End With

      End If

Next

Set ctl = Nothing

Il problema mi si origina in presenza di caselle combinate.

Infatti se inserisco nel TAG di queste ultime la parola chiave : OBBLIGATORIO

in caso di mancanza di dato, non succede nulla e non mi viene richiesto

 di inserire il dato mancante.

Qualcuno sa dirmi come fare per ovviare a ciò, e fare in modo che anche

quando non immetto i dati in queste caselle mi esca fuori il messaggio

di errore?

Grazie anticipatamente

Roberto d'Agostino

Answer 1

Ciao Roberto,

cambia questa riga da così:

 If .Visible And (.ControlType = acTextBox) Then

a così

If .Visible And (.ControlType = acTextBox OR .ControlType = acComboBox) Then

per eventuali altri tipi di controllo vedi questa lista.

ControlType Property \[Access 2003 VBA Language Reference\]

Ciao

Giorgio Rancati

Answer 2

Ciao Roberto,

grazie a te per il feedback

:-)

Giorgio Rancati

Answer 3

Grazie Giorgio

come sempre sei utilissimo

Roberto