VB Error GoTo WrongValues

[xit]

Private Sub cmdInvia_Click()
On Error GoTo WrongValues

If txtCognome = " " Or txtNome = " " Then GoTo WrongValues
WrongValues:
MsgBox "Inserisci i campi obblibatori * mancanti", vbInformation

End Sub


Problema controllo campi:
Anche se ho riempito i campi di nome e cognome quando
clicco su invia mi dà MsgBox "Inserisci i campi obblibatori * mancanti" cosa devo mettere

[steno12]

Errore nel flusso

Private Sub cmdInvia_Click()

If txtCognome = " " Or txtNome = " " Then
MsgBox "Inserisci i campi obblibatori * mancanti", vbInformation
exit sub
endif
End Sub

oppure

If txtCognome = " " Or txtNome = " " Then MsgBox "Inserisci i campi obblibatori * mancanti", vbInformation : exit sub


link
homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
forum http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

[vonkranz]

Metti EXIT SUB PRIMA dell'etichetta WrongValues: , altrimenti il programma esegue sempre il msg di errore, invece lo deve fare solo se salta a quell'etichetta in caso di errore.
Ciao.

[xit]

Non funziona

[darkblOOd]

On Error GoTo WrongValues

If txtCognome = "" Or txtNome = "" Then GoTo WrongValues
...
...
...
Exit Sub

WrongValues:
MsgBox "Inserisci i campi obblibatori * mancanti", vbInformation

End Sub

devi togliere gli spazi fra i doppi apici. Anche se in questo caso potresti usare (anzi dovresti) il codice postato da steno12 (un goto per verificare 2 campi è eccessivo!)