VB Errore

[xit]

Private Sub cmdInvia_Click()
If Trim((txtCognome) <> " " And (txtNome <> " ")) Then MsgBox "Inserisci i dati mancanti", vbExclamation


End Sub

Ho questo codice se i campi cognome e nome sono vuoti mi dà "Inserisci i dati mancanti" ma lo fa anche se li ho inseriti
cosa devo aggiungere un else? Grazie

[ans]

If Len(txtCognome) = 0 And Len(txtNome) = 0 Then MsgBox .......

[steno12]

If Trim(txtCognome) = "" Or Trim(txtNome = "") Then MsgBox "Inserisci i dati mancanti", vbExclamation

oppure


ok1 = 0: ok2 = 0
If Trim(txtCognome) = "" Then ok1 = ok1 + 1
If Trim(txtNome = "") = "" Then ok2 = ok2 + 1
If ok1 + ok2 = 2 Then MsgBox "dati mancanti in txtCognome e txtNome": Exit Sub
If ok1 = 1 Then MsgBox "dati mancanti in txtCognome": Exit Sub
If ok2 = 1 Then MsgBox "dati mancanti in txtNome": Exit Sub

[jefferson]

Ha ragione Steno!!!
if trim(text1.text) = "" and trim(text2.text) = "" then
msgbox ("Dati mancanti")
end if

Cosi controlli se la text è vuota e non con <>
Ciao
Jefferson

[jabjoint]

Suggersico le parentesi:
if (Trim(txtNome.Text) = "") or (Trim(TxtCognome.Text) = "") Then
MsgBox "Inserisci i dati mancanti", vbExclamation
end if