Dit is mijn code hieronder:
Private Sub cmd_login_Click()
'declaraties
Dim dbs As DAO.Database
Dim rstTable As DAO.Recordset
Dim rstQuery As DAO.Recordset
Dim strFilePath As String
Dim strWachtWoord As String
'einde declaraties
strFilePath = "'C:\Project\Sail\users.mdb"
Set dbs = OpenDatabase(strFilePath)
Set rstTable = dbs.OpenRecordset(USERS)
strWachtWoord = "SELECT PASSWORD FROM USERS WHERE USERNAME = '" + txtusername.Text + "'"
Set rstQuery = dbs.OpenRecordset(strWachtWoord)
If txtpassword.Text = rstQuery!wachtwoord Then
MsgBox "gelukt"
Else
MsgBox "niet gelukt"
End If
End Sub
Ik heb nu een simpele progje, hij geeft aan als je het juiste pw hebt ingevuld ... later wil ik natuurlijk dat hij naar form2 verwijst als de invoer juist is.
Maar hij geeft een fout, als ik hem run dan geeft hij:
Run Time Error '3343'
Unrecognized Database Format 'C:\Project\Sail\users.mdb'
Wie weet de oplossing?
\\\ edit
laat maar het is gelukt
Private Sub cmd_login_Click()
'declaraties
Dim dbs As DAO.Database
Dim rstTable As DAO.Recordset
Dim rstQuery As DAO.Recordset
Dim strFilePath As String
Dim strWachtWoord As String
'einde declaraties
strFilePath = "'C:\Project\Sail\users.mdb"
Set dbs = OpenDatabase(strFilePath)
Set rstTable = dbs.OpenRecordset(USERS)
strWachtWoord = "SELECT PASSWORD FROM USERS WHERE USERNAME = '" + txtusername.Text + "'"
Set rstQuery = dbs.OpenRecordset(strWachtWoord)
If txtpassword.Text = rstQuery!wachtwoord Then
MsgBox "gelukt"
Else
MsgBox "niet gelukt"
End If
End Sub
Ik heb nu een simpele progje, hij geeft aan als je het juiste pw hebt ingevuld ... later wil ik natuurlijk dat hij naar form2 verwijst als de invoer juist is.
Maar hij geeft een fout, als ik hem run dan geeft hij:
Run Time Error '3343'
Unrecognized Database Format 'C:\Project\Sail\users.mdb'
Wie weet de oplossing?
\\\ edit
laat maar het is gelukt
:strip_icc():strip_exif()/u/10274/crop67712295188a6_cropped.jpg?f=community)
:strip_icc():strip_exif()/u/6697/gerco-icon.jpg?f=community){kind=icon}