CAMPO AD IMMISSIONE OBBLIGATORIA

Question

Buonasera a Tutti,

nella Form Coustomer Service presente nel mio D.B. vi è una casella combinata che si chiama UtenteInserente.

L' utente che inserisce il record deve cliccare sul suo nome che appare nella tendina a discesa della casella combinata UtenteInserente.

In questo modo io so chi ha caricato il record.

Martina e Simona, non lo fanno mai ! Chiudono il record o passano a quello successivo senza inserire il proprio nome.

Qualcuno di Voi mi può aiutare ad educare queste due utenti ?

Vorrei rendere ad immissione obbligatoria il campo UtenteInserente in modo tale che se non sarà selezionato un nome, non si potrà passare al record successivo/precedente ne quantomeno chiudere la Form Coustomer Service.

Ovviamente in assenza del nome anche un bel messaggio tipo: " IL CAMPO UTENTE INSERENTE E' AD IMMISSIONE OBBLIGATORIA "

Grazie

Carlo

Answer 1

Ciao,

come comandi la chiusura della form?

Dovresti inibire il pulsante X in alto a destra della maschera (pulsante di chiusura NO sulle proprietà della form)

ed obbligare l'utilizzo di un tuo pulsante chiudi. Su click di questo ripeterai Form_BeforeUpdate.

Mimmo

Answer 2

Ok hai ragione l'evento non è su chiusura ma prima di aggiornare:

Private Sub Form_BeforeUpdate(Cancel As Integer)

If IsNull(UtenteInserente) Then

      Beep

      MsgBox ("Non hai selezionato il tuo nome nella combo UTENTEINSERENTE")

      Cancel = True

      UtenteInserente.SetFocus

End If

End Sub

Mimmo

Answer 3

ciao Mimmo,

sono due monelle ...

Niente da fare non funziona.

Nel primo caso: dopo che ho inserito quanto mi hai indicato nelle proprietà della combo ci si muove tranquillamente tra un record e l' altro e la form si chiude senza nessun problema, lasciando il campo vuoto.

Nel secondo caso: Errore di compilazione, variabile non definita.

Ti riporto la scrittura inserita:

Private Sub Form_Close()

If IsNull(UtenteInserente) Then

      Beep

      MsgBox ("Non hai selezionato il tuo nome nella combo UTENTEINSERENTE")

      Cancel = True

      UtenteInserente.SetFocus

End If

End Sub

Grazie

Carlo

Answer 4

Ciao Carlo,

sperando che Martina e Simona non me ne vogliano :-)

hai un'altra possibiltà:

su chiusura della form ti testi :

IF IsNull(cboUtenteInserente) THEN

      beep

      msgbox ......

      cancel = true

      cboUtenteInserente.setfocus

end if

Mimmo

Answer 5

Ciao Carlo,

sulle proprietà della casella combinata imposta 'solo in elenco' a Sì e su 'valido se' not null

Ciao Mimmo