Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Error con Runtine de acces

Access - Error con Runtine de acces

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 35
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Error con Runtine de acces

Publicado por Silvio (20 intervenciones) el 21/04/2020 22:38:50
Hola, Tengo una aplicacion que funciona perfectamente

Cuando la paso a Accde me sale el error

EN MI COMPUTADORA ( Donde funciona correctamente la version accdb) sale esto

La expresión al "hacer click" que ha especificado como valor de la propiedad de evento produjo el error el objeto o la clase no admite el conjunto de eventos.
La expresión no da como resultado el nombre de ubna macro, de una función definida por el usuario o [Procedimiento de evento].
Hubo un error al evaluar la función, evento o macro.

y en el runtine de la computadora que lo instalo directamente me sale.

la ejecucion de esta aplicacion de ha detenido a causa de un error en tiempo de ejecucion.

Como les digo hace mas de 4 años que tengo la aplicacion sin errores en formato accdb. con mucho codigo, macros, consultas etc y no me produce ninguna falla.

Me podran dar una mano para solucionarlo.

PD: No soy programador. he aprendido leyendo y pegando codigos de soluciones buscadas.
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
sin imagen de perfil
Val: 35
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Error con Runtine de acces

Publicado por Silvio (20 intervenciones) el 21/04/2020 23:31:22
Rastreando y probando en este codigo me sale el error en accde

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub Ingresar_Click()
 
If IsNull(Me.Usuario) Then
MsgBox "Debe ingresar Codigo de usuario primero", , "Error de carga de Formulario"
Me.Codigo.SetFocus
Else
If IsNull(Me.Contraseña) Then
MsgBox "Debe ingresar Contraseña para el Usario", , "Error de carga de Formulario"
Me.Contraseña.SetFocus
Else
If Me.Codigo.Column(7) <> Me.Contraseña Then
MsgBox "Su contraseña no corresponde con su usuario registrado", vbDefaultButton1, "Aviso Importante"
'"Si Colaca tres veces mal la contraseña del usario, este sera dado de baja &_"
 
Me.In1.Visible = True
Me.In2.Visible = True
Me.In3.Visible = True
Me.In2.Value = Me.In2 + 1
 
DoCmd.SetWarnings False 'Probar elimana el cartel de Confirmacion
DoCmd.OpenQuery "Anexar_Log_de_Contraseñas_en_usuarios"
DoCmd.OpenQuery " Actualiza_Ultimo_error_logueo_Empleado"
DoCmd.OpenQuery " Actualiza_numero_errores_logueo_Empleado"
Me.Contraseña.SetFocus
 
Else
MsgBox "Usuario Registrado reconocido por sistema", , "Entrada Exitosa"
'Paso parametros a AA_PAnel
Forms!AA_PAnel![Codigo].Value = Me.Codigo
Forms!AA_PAnel![Puesto].Value = Me.Puesto
Forms!AA_PAnel![Empleado].Value = Me.Usuario
Forms!AA_PAnel![ID_PU].Value = Me.ID_PU
Forms!AA_PAnel![Administra].Value = Me.Administrador
Forms!AA_PAnel![activo].Value = Me.activo
DoCmd.SetWarnings False 'Probar elimana el cartel de Confirmacion
DoCmd.OpenQuery "Anexar_Log_de_Contraseñas_en_usuarios"
 
Me.In1.Visible = False
Me.In2.Visible = False
Me.In3.Visible = False
DoCmd.Close
End If
End If
End If
 
If Me.In2 = 2 Then
MsgBox "Usted a ingresado su contraseña por segunda vez mal. La proxima vez sera baneado", , "Intentos Fallidos"
End If
 
If Me.In2 = 3 Then
MsgBox "Su codigo a sido dado de baja, no podra se utilizado hasta que se comunique con el administrador", , "Intentos Fallidos"
DoCmd.SetWarnings False 'Probar elimana el cartel de Confirmacion
DoCmd.OpenQuery "Actualiza_A_Baneado_Empleado"
Me.Baneado = -1
DoCmd.Close
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Joan
Val: 414
Bronce
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Error con Runtine de acces

Publicado por Joan (150 intervenciones) el 22/04/2020 15:42:19
Hola,

Podría ser versiones diferentes de access y access runtime.

Si tienes hecha la base con access 2007, por ejemplo, en runtime a partir de 2010 creo que no funciona la extesión accde.

A parte de eso, en el cógigo que has puesto en el post, si está completo, faltaría volver a activar los warnings con DoCmd.SetWarnings True.

Espero que te sirva.
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
Imágen de perfil de Francisco
Val: 467
Plata
Ha disminuido 1 puesto en Access (en relación al último mes)
Gráfica de Access

Error con Runtine de acces

Publicado por Francisco (212 intervenciones) el 22/04/2020 18:09:23
Hola

Tienes que agregar un manejador de errores, para poder ver el numero de error


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Ingresar_Click()
 
On Error Goto Error_Ingresar
 
<TU CODIGO AQUI>
 
Salir_Ingresar
    On Error Goto 0
    Exit Sub
 
Error_Ingresar:
   MsgBox "Error #" & Err.Number & vbCrLf & Err.Source & vbCrlLf & Err.Description
   Resume Salir_Ingresar
 
End Sub

Saludos
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
sin imagen de perfil
Val: 35
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Error con Runtine de acces

Publicado por Silvio (20 intervenciones) el 24/04/2020 03:10:34
Ordene el codigo y elimine todo la seccion si los datos son correctos y me da

Error # 2467 La expresion que ha especificado hace referencia a un objeto que esta cerrado o no existe

como veras elimine la linea completa por lo que solo deberia cerrar y listo

Asi deje el codigo ahora, y con el tratamiento de errores ahora si me sale un error en la accdb que antes no me salia y funcionaba bien


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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Private Sub Ingresar_Click()
On Error GoTo Error_Ingresar
 
If IsNull(Me.Usuario) Then
   MsgBox "Debe ingresar Codigo de usuario primero", , "Error de carga de Formulario"
   Me.Codigo.SetFocus
Else
        If IsNull(Me.Contraseña) Then
                    MsgBox "Debe ingresar Contraseña para el Usario", , "Error de carga de Formulario"
                    Me.Contraseña.SetFocus
 
        Else
            If Me.Codigo.Column(7) <> Me.Contraseña Then
                MsgBox "Su contraseña no corresponde con su usuario registrado", vbDefaultButton1, "Aviso Importante"
                '"Si Colaca tres veces mal la contraseña del usario, este sera dado de baja &_"
 
                Me.In1.Visible = True
                Me.In2.Visible = True
                Me.In3.Visible = True
                Me.In2.Value = Me.In2 + 1
 
                DoCmd.SetWarnings False  'Probar elimana el cartel de Confirmacion
                DoCmd.OpenQuery "Anexar_Log_de_Contraseñas_en_usuarios"
                DoCmd.OpenQuery " Actualiza_Ultimo_error_logueo_Empleado"
                DoCmd.OpenQuery " Actualiza_numero_errores_logueo_Empleado"
                DoCmd.SetWarnings True
                Me.Contraseña.SetFocus
 
            Else
                MsgBox "Usuario Registrado reconocido por sistema", , "Entrada Exitosa"
               'Paso parametros a AA_PAnel
               'Forms!AA_PAnel![Codigo].Value = Me.Codigo
               'Forms!AA_PAnel![Puesto].Value = Me.Puesto
               'Forms!AA_PAnel![Empleado].Value = Me.Usuario
               'Forms!AA_PAnel![ID_PU].Value = Me.ID_PU
               'Forms!AA_PAnel![Administra].Value = Me.Administrador
               'Forms!AA_PAnel![activo].Value = Me.activo
 
                '     DoCmd.SetWarnings False  'Probar elimana el cartel de Confirmacion
                '     DoCmd.OpenQuery "Anexar_Log_de_Contraseñas_en_usuarios"
                '    DoCmd.SetWarnings True
 
               'Me.In1.Visible = False
               'Me.In2.Visible = False
               'Me.In3.Visible = False
                DoCmd.Close
 
            End If
        End If
End If
 
 
If Me.In2 = 2 Then
    MsgBox "Usted a ingresado su contraseña por segunda vez mal. La proxima vez sera baneado", , "Intentos Fallidos"
End If
 
 
If Me.In2 = 3 Then
    MsgBox "Su codigo a sido dado de baja, no podra se utilizado hasta que se comunique con el administrador", , "Intentos Fallidos"
     DoCmd.SetWarnings False  'Probar elimana el cartel de Confirmacion
      DoCmd.OpenQuery "Actualiza_A_Baneado_Empleado"
      Me.Baneado = -1
       DoCmd.SetWarnings True
 
      DoCmd.Close
End If
 
Salir_Ingresar:
    On Error GoTo 0
    Exit Sub
 
Error_Ingresar:
   MsgBox "Error #" & Err.Number & vbCrLf & Err.Source & vbCrlLf & Err.Description
   Resume Salir_Ingresar
End Sub


Si pueden Ayudarme se los agradecere
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 35
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Error con Runtine de acces

Publicado por Silvio (20 intervenciones) el 24/04/2020 04:16:34
ENCONTRADO EL ERROR

Para otro que busque .

If Me.In2 = 2 then esta parte al estar oculo el comando ln2 produce el error.

no lo daba en accdb pero si en accde.

GRACIAS por la ayuda de tratamiento de errores que no ponia ahora solucionare todo problema con la creacion de la accde

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar