Visual Basic - Ayuda con error en programa de Visual Basic para Access 2010

Life is soft - evento anual de software empresarial
   
Vista:

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
----------
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 Then
            NumIntentos = 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder