Agregar varios comando a un boton
Publicado por Alejandro (110 intervenciones) el 19/02/2021 23:32:08
Saludos chicos, 
estoy programando un boton mediante el generador de código el cual tengo 3 cuadro de texto que se llaman "Forma_pago" , "Concepto" "Recibido" y quiero que el resultado sea el siguuiente al pulsar el boton,
Primero: que me verifique que dichos cuadros de textos mencionados anteriormente no están vacíos, si están vacíos que me de un mensaje
Segundo: Si todos tienen los datos que me guarde dicho registro
Tercero: me mande a nuevo registro
Cuarto: Me mande el enfoque al cuadro de texto "Cliente_nuevo"
Esto es lo que llevo hasta ahora pero ve falta el segundo, tercero y cuarto

estoy programando un boton mediante el generador de código el cual tengo 3 cuadro de texto que se llaman "Forma_pago" , "Concepto" "Recibido" y quiero que el resultado sea el siguuiente al pulsar el boton,
Primero: que me verifique que dichos cuadros de textos mencionados anteriormente no están vacíos, si están vacíos que me de un mensaje
Segundo: Si todos tienen los datos que me guarde dicho registro
Tercero: me mande a nuevo registro
Cuarto: Me mande el enfoque al cuadro de texto "Cliente_nuevo"
Esto es lo que llevo hasta ahora pero ve falta el segundo, tercero y cuarto
1
2
3
4
5
6
7
8
9
10
11
12
If IsNull(Me.Forma_pago.Value) Then
MsgBox "Favor Ingresar la Forma de pago", vbExclamation, "Error Forma de pago"
Me.Forma_pago.SetFocus
End If
If IsNull(Me.Concepto.Value) Then
MsgBox "Favor Ingresar el concepto", vbExclamation, "Error debe selecionar el concepto"
Me.Concepto.SetFocus
End If
If IsNull(Me.Recibido.Value) Then
MsgBox "Favor Ingresar la cantidad recibida", vbExclamation, "Error cantidad recibida no valida"
Me.Recibido.SetFocus
End If
Valora esta pregunta


0