ayuda con boton de modificar
Publicado por jesus (27 intervenciones) el 04/02/2020 00:52:48
hola amigos hice unas validaciones en el boton guardar de mi sistema, e puesto las mismas en el boton de modificar datos pero solo me agarra la de el correo, aqui el codigo:
sera que e puesto las validaciones en el lugar incorrecto del codigo? alguien me puede ayudar porfavor
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Adodc1.RefreshAdodc1.Recordset.Filter = ("ced_empleado ='" & Text1 & "'")
If Text5.Text = "" Then
Frame1.Visible = True
MsgBox "Por favor ingrese el numero de cuenta bancaria", vbInformation, "CAMPO EN BLANCO"
If Len(Trim(Text5.Text)) <> 20 Then
MsgBox "Por favor ingrese la cuenta de banco completa", vbInformation, "CAMPO EN BLANCO"
MsgBox "La dirección de correo : " & Text6 & vbNewLine & _
Format(Validar_Email(Text6), "yes/no") & " ... es válida ", vbInformation
If Not Validar_Email(Text6.Text) Then
MsgBox "La dirección de correo electronico es invalida"If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Fields!ced_empleado = Text1
Adodc1.Recordset.Fields!nom_empleado = Text2
Adodc1.Recordset.Fields!ape_empleado = Text3
Adodc1.Recordset.Fields!fi_empleado = Text4
Adodc1.Recordset.Fields!email_empleado = Text6
Adodc1.Recordset.Fields!dir_empleado = Text7
Adodc1.Recordset.Fields!fn_empleado = Text8
Adodc1.Recordset.Fields!sx_empleado = Combo1
Adodc1.Recordset.Fields!tipo_empleado = Combo2
Adodc1.Recordset.Fields!cb_empleado = Text5
Adodc1.Recordset.Fields!eb_empleado = Combo4
Adodc1.Recordset.Update
MsgBox "Datos del Usuario MODIFICADOS con Éxito", vbInformation, "CAMBIOS GUARDADOS"
End If
Adodc1.RefreshCommand5.Value = True
End If
End If
End Sub
sera que e puesto las validaciones en el lugar incorrecto del codigo? alguien me puede ayudar porfavor
Valora esta pregunta
0