Vic hice lo ke dijiste pero no funciona del todo
Publicado por Armando Ch. (93 intervenciones) el 29/08/2004 07:56:55
Victoria hice lo ke dijiste puse el sig code:
Private Sub texto0_LostFocus()
If Texto0.Value <> "" Then
Else
MsgBox "No puede dejar este campo en blanco colocar: N/A, No information o la Informacion correspondiente ", vbOKOnly + vbCritical, "AVISO"
Texto0.SetFocus
End If
End Sub
y si me muestra el msg pero no me regresa el enfoque al text0 ake se debera no me marca error pero no hace lo ke le estoy diciendo
y lo necesito ke sea asi para asegurarme ke no avance hasta ke el text contenga algo. Ok gracias
Saludos Ojala me puedas ayudar
Private Sub texto0_LostFocus()
If Texto0.Value <> "" Then
Else
MsgBox "No puede dejar este campo en blanco colocar: N/A, No information o la Informacion correspondiente ", vbOKOnly + vbCritical, "AVISO"
Texto0.SetFocus
End If
End Sub
y si me muestra el msg pero no me regresa el enfoque al text0 ake se debera no me marca error pero no hace lo ke le estoy diciendo
y lo necesito ke sea asi para asegurarme ke no avance hasta ke el text contenga algo. Ok gracias
Saludos Ojala me puedas ayudar
Valora esta pregunta
0