Na convert van 2007 naar 2010 werkt inloggen niet meer database access

[galletje]

Beste gebruikers,

Graag wil ik jullie en probleem voorleggen. Voor mijn organisatie had ik altijd in access 2007 een database draaien waarbij de gebruikers konden inloggen met een gebruikers naam en wachtwoord aan de hand hiervan keek en macro naar welke functie deze persoon had en opende dan het hoofdscherm.

Na ben ik overgestap naar 2010 en dit inloggen werk dan niet meer. Krijg de foutmelding:

Gegevenstype komen niet overeen in crituriumexpressie.

Ik heb de nodige file bijgevoegd.

Het enige wat er na de convertie is aangepast is in de tabel medewerker, dat de medewekerscode fieldomschrijving van text naar number gegaan.

Alvast myn dank

John

 

[OctaFish]

Ik krijg ook de foutmelding, maar zo niet:

If Not Me.txtID = vbNullString And Not Me.txtwachtwoord = vbNullString Then
    strSQL = "SELECT DISTINCT Wachtwoord FROM Medewerker WHERE "
    strSQL = strSQL & "Wachtwoord = '" & Me.txtwachtwoord & "'" & " AND Medewerkerscode = '" & Me.txtID & "'"
    With CurrentDb.OpenRecordset("Medewerker", dbOpenDynaset)
        If .RecordCount = 0 Then
            MsgBox "U heeft de verkeerde logincode of wachtwoord ingevoerd." & Chr(13) & _
            "Vul de correcte logincode en wachtwoord in of " & Chr(13) & _
            "neem contact op met de systeembeheerder.", vbOKOnly + vbCritical, "Toegang geweigerd"
               
            intInlogPoging = intInlogPoging + 1
            If intInlogPoging > 2 Then
                MsgBox "U heeft geen toegang tot dit systeem.", vbCritical, "Toegang geweigerd"
                Exit Sub
                ''Application.Quit
            End If
            Me.Visible = True
            'Me.txtwachtwoord.SetFocus
        ElseIf Me.txtwachtwoord = "welkom" Then
            ''DoCmd.Hourglass (0)
            MsgBox "Welkom by Xerox DigiBase! Dit is de eerste keer dat u de Database" & Chr(13) & _
            "opstart of uw wachtwoord is opnieuw ingesteld." & Chr(13) & _
            "U moet uw wachtwoord veranderen voordat u de applicatie kunt starten.", _
            vbOKOnly + vbInformation, "Verander wachtwoord"
            stDocName = "L_UserWelkom"
            stLinkCriteria = "[Medewerkerscode]=" & "'" & Me![txtID] & "'"
            DoCmd.Close acForm, "F_Inlogformulier"
            DoCmd.OpenForm stDocName, , , stLinkCriteria
        Else
          '  DoCmd.Hourglass (0)
           DoCmd.Close acForm, "F_Inlogformulier"
            'DoCmd.Close
            With User
                .Medewerkerscode = rst.Fields("Medewerkerscode")
                .Wachtwoord = rst.Fields("Wachtwoord")
                .Autorisatieniveau = rst.Fields("Autorisatieniveau")
            End With
            stDocName = "H_Hoofdmenu"
            DoCmd.OpenForm stDocName, , , stLinkCriteria
        End If
    End With
Else

 

[galletje]

Beste Michel,

Bedankt voor je reactie, echter krijg ik als ik de bovenstaande code gebruik een andere fout: Compileerfout : Een varaibele is niet gedefinieerd. Met verwijzing naar: strSQL =

Misschien lees ik er overheen maar ik zie het niet.

John

 

[OctaFish]

Die variabele moet je inderdaad wel declareren, anders krijg je deze foutmelding. Kan je in de procedure doen, of in het algemene blok. Dat laatste heeft als voordeel dat je de variabele ook in andere procedures kunt gebruiken.

 

[galletje]

Michel,

Bedankt voor je uitleg maar dit gaat me mijn petje te boven. Kan je misschien uitleggen hoe ik dat doe?

John

 

[OctaFish]

En je hebt wel die procedure gemaakt? Hmm.... Als je naar het begin van de procedure gaat, zie je alle variabelen gedeclareerd staan. Daar zet je deze regel bij:

Dim strSQL As String