Buenas tardes; estimada comunidad, agradezco me ayuden con este caso.
Tengo una serie de textbox que cargan un listbox; los tengo condicionados para que, al dar clic en el boton de carga, me muestre un error si hay algo vacío; el problema es que la informacion se cargue al listbos solo cuando los 5 datos esten completos, pero lo que escribi sigue derecho y graba sin importar si todos estan completos.
Private Sub CommandButton14_Click()
'cargar informacion ref bancaria a listbox
'validar que los campos esten completos
If TextBox34 = Empty Then
MsgBox "FALTA NOMBRE DE BENEFICIARIO", vbCritical
TextBox34.SetFocus
ElseIf TextBox35 = Empty Then
MsgBox "FALTA NIT DE BENEFICIARIO", vbCritical
TextBox35.SetFocus
ElseIf ComboBox1.Value = Empty Then
MsgBox "FALTA ENTIDAD BANCARIA", vbCritical
ComboBox1.SetFocus
ElseIf ComboBox2.Value = Empty Then
MsgBox "FALTA TIPO DE CUENTA", vbCritical
ComboBox2.SetFocus
ElseIf TextBox33.Value = Empty Then
MsgBox "NÚMERO DE CUENTA", vbCritical
TextBox33.SetFocus
End If
Buenas tardes; estimada comunidad, agradezco me ayuden con este caso.
Tengo una serie de textbox que cargan un listbox; los tengo condicionados para que, al dar clic en el boton de carga, me muestre un error si hay algo vacío; el problema es que la informacion se cargue al listbos solo cuando los 5 datos esten completos, pero lo que escribi sigue derecho y graba sin importar si todos estan completos.
Private Sub CommandButton14_Click()
'cargar informacion ref bancaria a listbox
'validar que los campos esten completos
If TextBox34 = Empty Then
MsgBox "FALTA NOMBRE DE BENEFICIARIO", vbCritical
TextBox34.SetFocus
ElseIf TextBox35 = Empty Then
MsgBox "FALTA NIT DE BENEFICIARIO", vbCritical
TextBox35.SetFocus
ElseIf ComboBox1.Value = Empty Then
MsgBox "FALTA ENTIDAD BANCARIA", vbCritical
ComboBox1.SetFocus
ElseIf ComboBox2.Value = Empty Then
MsgBox "FALTA TIPO DE CUENTA", vbCritical
ComboBox2.SetFocus
ElseIf TextBox33.Value = Empty Then
MsgBox "NÚMERO DE CUENTA", vbCritical
TextBox33.SetFocus
End If
'llenar listbox
ListBox3.AddItem TextBox34.Value
ListBox3.List(ListBox3.ListCount - 1, 1) = TextBox35.Value
ListBox3.List(ListBox3.ListCount - 1, 2) = ComboBox1.Value
ListBox3.List(ListBox3.ListCount - 1, 3) = ComboBox2.Value
ListBox3.List(ListBox3.ListCount - 1, 4) = TextBox33.Value
End Sub