Visual Basic - error 13 visual basic

Life is soft - evento anual de software empresarial
 
Vista:

error 13 visual basic

Publicado por jesus (1 intervención) el 22/01/2019 21:20:04
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
Sub GuardarInformacion()
 
    Rem declaración de variantes
    Dim contFila As Long
    Dim hoja As Worksheet
 
    Set hoja = Worksheets(3)
 
    ' Validamos que los campos de texto correspondiente a los datos de clientes esten diligenciados totalmente
 
If Trim$(txtNombre.Text) = Empty Or Trim$(txtApellido.Text) = Empty Or Trim$(txtEmail.Text) Then
 
 
        MsgBox "Por favor ingrese todos los datos!", vbCritical, "Datos Incompletos"
        Exit Sub
 
    End If
 
 
    ' validamos la fila siguiente en la hoja donde se debe ingresar los datos
 
    contFila = hoja.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 
    hoja.Cells(contFila, 1).Value = Me.txtNombre.Value
    hoja.Cells(contFila, 2).Value = Me.txtApellido.Value
    hoja.Cells(contFila, 3).Value = Me.txtEmail.Value
 
    'se limpia o borra los datos de los campos de texto del formulario
 
    Me.txtNombre.Value = ""
    Me.txtApellido.Value = ""
    Me.txtEmail.Value = ""
 
 
        ME DICE ERRO 13 -  OPCION DEPURAR -  Y ME LLEVA AL APARTADO EN NEGRITA, DONDE ESTA EL "IF" OSEA EL CONDICIONANTE
 
 
End Sub
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
Imágen de perfil de gilman
Val: 450
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error 13 visual basic

Publicado por gilman (264 intervenciones) el 23/01/2019 08:41:08
El problema está en que se te ha olvidado poner con que comparas Trim$(txtEmail.Text)
La sentencia debería quedar, supongo:

1
If Trim$(txtNombre.Text) = Empty Or Trim$(txtApellido.Text) = Empty Or Trim$(txtEmail.Text) = Empty Then
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar