Access inlogscherm

Status
Niet open voor verdere reacties.
weet iemand wat hier fout aan is? en wat te veranderen om hem goed te krijgen?
Code: 
Private Sub LOGIN_Click()

If IsNull(Me.qUSERID) Then
    MsgBox "U heeft geen Loginnaam ingevoerd"
    Exit Sub
    
Else

If IsNull(Me.qPWD) Then
    MsgBox "U heeft geen wachtwoord ingevoerd"
    Exit Sub

End If
End If

If Me.qPWD.Value = DLookup("pass", "Boeren", "login = '" & Me.qUSERID.Value & "'") Then

    If DLookup("groep", "Boeren", "login = '" & Me.qUSERID.Value & "'") = 1 Then
    MsgBox "Je behoort tot groep Medewerkers Melkfabriek"
    Else
    If DLookup("groep", "Boeren", "login = '" & Me.qUSERID.Value & "'") = 2 Then
    MsgBox "Je behoort tot groep Boeren"
    
    Else
    If DLookup("groep", "Boeren", "login = '" & Me.qUSERID.Value & "'") = 3 Then
    MsgBox "Je behoort tot groep Melkrijders"
    
    End If
    
    
    
    
Else

MsgBox "Fout Wachtwoord/Login"

End If

End Sub
 
Ewergreen zei:
Toch maar even hier geplaatst. Alle credits voor de code gaan naar de maker ervan. Je kan hem vrij gebruiken!

Je kan een volledige(re) versie vinden, maar deze is door mij aangepast en gebruik ik. Het origineel ben ik kwijt.

Mvg,

Wtr

tip: shift + enter
Klik om te vergroten...

Hallo,

Je hebt deze code aangepast, heb je ook aangepast dat de venster automatische maximaliseert? Deze functie zou ik eruit willen hebben, alleen kan ik zo niet vinden waar dat nu precies zit.

Ik hoop dat je of iemand mij hierbij kan helpen.

Alvast bedankt.

Edit: Ik heb er overheen gekeken, heb het gevonden.
 
Laatst bewerkt:
In de Load gebeurtenis van het formulier staat onderstaande code

Code: 
Private Sub Form_Load()
    
On Error GoTo Err_Form_Load

    DoCmd.Maximize
        
Exit_Form_Load:
    Exit Sub

Err_Form_Load:
    MsgBox Err.Description
    Resume Exit_Form_Load
     
End Sub

Deze code zorgt ervoor dat het formulier in de maximale grote wordt geladen. Verwijder de volledige code in de load gebeurtenis van het formulier.
 
Het is een opgeloste vraag uit 2008.... Het lijkt mij een stuk handiger als je een nieuwe vraag stelt, of op dit forum even zoekt. Er zijn verschillende voorbeelden te vinden met/over inlogschermen, bijvoorbeeld deze.
 
@Raymond:
Kun je hem niet gewoon posten? Dan hebben we er allemaal wat aan!
 
bestand is te groot ook als deze gezipt is.
Als één van de moderators het kan uploaden voor mij, dan wil ik deze gerust door sturen.

Het gaat wel om een database van registratie van uren.
De login is daar een onderdeel van.
 
Het stukje code wat onder de knop inloggen zit:

Code: 
Option Compare Database
Dim tmpPsswd As String

Private Sub Command2_Click()

Dim MyRs As DAO.Recordset
Dim MySql As String


MySql = "select Password from TBL_Personeel " & _
        "where Personeelnummer like '" & Combo0.Value & "'"

Set rs = CurrentDb.OpenRecordset(MySql)

With rs
    tmpPsswd = rs(0)
End With

rs.Close
Set rs = Nothing

If tmpPsswd = InputBox("Geef wachtwoord", Logon) Then
    'MsgBox "Toegang toegestaan"
    DoCmd.OpenForm ("FRM_Selectie_Afdeling")
Else
    MsgBox "Helaas u hebt hiervoor geen rechten"
End If

End Sub
Private Sub Command3_Click()
On Error GoTo Err_Command3_Click


    DoCmd.Quit

Exit_Command3_Click:
    Exit Sub

Err_Command3_Click:
    MsgBox Err.Description
    Resume Exit_Command3_Click
    
End Sub
 
Hoe groot is hij? Kun je hem met WinRar niet in ongeveer 4 blokken van 100kb splitsen?
 
Nu op slot. @markbartelen: Het reageren in oude topics zoals deze is niet toegestaan op Helpmij.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan