none
LOGIN RRS feed

  • Pregunta

  • chicos necesito ayuda tengo un botón que abre un formulario pero quiero que cuando se abra en formulario busque y muestre los datos del registro y antes lo había echo en access y me quedo algo así y funciono pero lo necesito en visual 

    Private Sub Aceptar_Click()
    Dim contra As String 'Variable para almacenar la contraseña
    If Nz(Me.TxtUsuario, "") = "" Then
     MsgBox "Campo Usuario esta vacio", vbInformation, "Vacio"
     Me.TxtUsuario.SetFocus ' Me regresa el cursor al usuario
    ElseIf Nz(Me.TxtContrasena, "") = "" Then
     MsgBox "Campo Contraseña esta vacio", vbInformation, "Vacio"
     Me.TxtContrasena.SetFocus ' Me regresa el cursor a contraseña
    Else
     ' Encontrar la contraseña en la tabla Empleado con el IdUsuario dado
    If Nz(DLookup("Contraseña11", "1101", "IdEStudiante11=" & Me![TxtUsuario]), "") <> "" Then
     contra = DLookup("Contraseña11", "1101", "IdEstudiante11=" & Me![TxtUsuario])
     ' Nos va a mostrar una prueba de que si busca la contraseña
    End If
    If contra <> Me.TxtContrasena Then
     MsgBox "Contraseña invalida ", vbCritical, "ok"
    Else
    If Nz(DLookup("Privilegios11", "1101", "IdEstudiante11=" & Me![TxtUsuario]), "") = 1 Then
     ' Si el usuario = 1 abrirá el formulario Admin
     DoCmd.OpenForm "Notas1101"
    Form_Notas1101.AbreteEn TxtUsuario
    ElseIf Nz(DLookup("Privilegios11", "1101", "IdEstudiante11=" & Me![TxtUsuario]), "") = 2 Then
    ' Si el usuario = 2 abrirá el formulario Usuario1iant
     DoCmd.OpenForm "Notas1101"
    Form_Notas1101.AbreteEn TxtUsuario
    Else
    ' Si es cualquier otro abrirá el formulario Usuario 2
     DoCmd.OpenForm "Notas1101"
     End If
     End If
     End If
    End Sub

     y pues quiero hacer eso mismo pero en visual basic 

     DoCmd.OpenForm "Notas1101"
    Form_Notas1101.AbreteEn TxtUsuario

    esta parte del código es la que mas me interesa 

     
    lunes, 15 de octubre de 2018 0:48