Ayuda con error en programa de Visual Basic para Access 2010
Publicado por Dr Cerebro (1 intervención) el 06/06/2014 20:21:00
Que tal
Hace muchos años que no programo ni el televisor para despertar me. Durante la escuela (1998) aprendí basic y lenguaje C, pero no recuerdo gran cosa.
Estoy volviendo a estudiar, pero por lo pronto me fusile (Copiar) un programa de youtube en VB. Ya medio lo repare, ya sabes el compilador te dice como. Pero hay un error elemental que no se como resolverlo. De seguro es una coma o error de ortografía).
El error dice que se esperaba un separador de listas o ). Pero como no se programar pues ahí sigo viendo a ver si se arregla solo (es broma).
Como sea aquí les dejo el programilla, a lo mejor me ayuda el que lo creo.
Saludos
PD
También hay un error en el último End Fuction (tenía un end function más arriba que terminaba la funcion, sin embrago la borre mantiene en rojo).
Programa
----------
Hace muchos años que no programo ni el televisor para despertar me. Durante la escuela (1998) aprendí basic y lenguaje C, pero no recuerdo gran cosa.
Estoy volviendo a estudiar, pero por lo pronto me fusile (Copiar) un programa de youtube en VB. Ya medio lo repare, ya sabes el compilador te dice como. Pero hay un error elemental que no se como resolverlo. De seguro es una coma o error de ortografía).
El error dice que se esperaba un separador de listas o ). Pero como no se programar pues ahí sigo viendo a ver si se arregla solo (es broma).
Como sea aquí les dejo el programilla, a lo mejor me ayuda el que lo creo.
Saludos
PD
También hay un error en el último End Fuction (tenía un end function más arriba que terminaba la funcion, sin embrago la borre mantiene en rojo).
Programa
----------
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
76
77
78
Option Compare Database
Option Explicit
Dim NumIntentos As Integer
Private Sub CmdEntrar_Click()
Dim auxContraseña As String
'Comprobamos que hay datos en las cajas de texto
If Nz(Me.TxtLogin.Value, "") = "" Then
MsgBox "Seleccione un Nombre de usuario de la lista para accede", vbInformation, "ATENCION"
Me.TxtLogin.SetFocus
ElseIf Nz(Me.TxtPassword.Value, "") = "" Then
MsgBox "Introduzca la contraseña del usuario seleccionado", vbInformation, "ATENCION"
Me.TxtPassword.SetFocus
Else
If Nz(DLookup("Password", "Usuarios", "Id_usuario=" & Me(TxtLogin)), "") <> "" Then
auxContraseña = DLookup("Password", "Usuarios", "Id_usuario=" & Me(TxtLogin))
End If
If auxContraseña <> Me.TxtPassword.Value Then
If NumIntentos > 1 ThenNumIntentos = NumIntentos - 1
MsgBox "La contraseña introducida es incorrecta" & vbCrLf & _
"Le quedan" & NumIntentos & "Intentos" & vbCrLf & _
"Por favor, introduzca otra", vbExclamation, "INTRODUCCION INCORRECTA"
Me.TxtPassword.Value = ""
Me.TxtPassword.SetFocus
Else
MsgBox "Ha Superado el número de intentos", vbCritical, "ADIOS…"
DoCmd.Close acForm, Me.Name ' y cerramos el acceso
End If
Else
If DLookup("Id_acceso", "Usuarios", "Id_usuario=" & Me(TxtLogin)) = 1 Then
MsgBox "Ha entrado el administrador, mostramos todas las tablas", vbInformation, "BIENVENIDO ADMINSITRADOR"
Call VaciadoDeDatosDeInspeccionFinalDeGalvanizado
Else
MsgBox "Ha entrado un usuario, tendrá acceso a solo escritura", vbInformation, "BIENVENIDO USUARIO"
Call VaciadoDeDatosDeInspeccionUsuarios
End If
'DoCmd.openForm stDocName, , , stLinkCriteria "Abrimos el formulario correspondiente
DoCmd.Close acForm, Me.Name 'y cerramos el acceso
End If
End If
End Sub
Function VaciadoDeDatosDeInspeccionFinalDeGalvanizado()
On Error GoTo VaciadoDeDatosDeInspeccionFinalDeGalvanizado_Err
DoCmd.OpenForm "Administrador", acNormal, "", "", , acNormal
VaciadoDeDatosDeInspeccionFinalDeGalvanizado_Exit:Exit Function
VaciadoDeDatosDeInspeccionFinalDeGalvanizado_Err:MsgBox Error$
Resume VaciadoDeDatosDeInspeccionFinalDeGalvanizado_Exit
End Function
Function VaciadoDeDatosDeInspeccionUsuarios()
On Error GoTo VaciadoDeDatosDeInspeccionUsuarios_Err
DoCmd.OpenForm "usuario", acNormal
VaciadoDeDatosDeInspeccionUsuarios_Exit:Exit Function
VaciadoDeDatosDeInspeccionUsuarios_Err:MsgBox Error$
Resume VaciadoDeDatosDeInspeccionUsuarios_Exit
End Fuction
Valora esta pregunta
0