Visual Basic - ayuda con boton de modificar

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 73
Ha aumentado su posición en 27 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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:
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.Refresh
Adodc1.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.Refresh
 
    Command5.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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder