Hi,
I migrated an Access DB to Oracle DB. If i try to start the Access application and i gave the right credentials, I got the "fout 3146 tijdens uitvoering" "ODBC: de oproep is mislukt"
This is the VB code:
Private Sub WachtwoordVeld_AfterUpdate()
Dim rs1 As DAO.Recordset, waarde1 As String, criteria As Integer
Set rs1 = CurrentDb.OpenRecordset("WACHTWOORD", dbOpenDynaset)
With rs1
.MoveFirst
If ![GEBRUIKERSNAAM] = GebruikersnaamVeld And ![WACHTWOORD] = WachtwoordVeld Then
If ![MENU ACTIE] = "Medewerkermenu" Then
DoCmd.OpenForm "Hoofdmenu medewerker 3:1"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
If ![MENU ACTIE] = "Managementmenu" Then
DoCmd.OpenForm "Hoofdmenu management 4:1"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
If ![MENU ACTIE] = "Swiftmenu" Then
DoCmd.Close acForm, "Startmenu 1:0"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
Exit Sub
End If
Do Until .NoMatch
.FindNext "Gebruikersnaam = " & Chr(34) & Me.GebruikersnaamVeld & Chr(34)
If ![GEBRUIKERSNAAM] = GebruikersnaamVeld And ![WACHTWOORD] = WachtwoordVeld Then
If ![MENU ACTIE] = "Medewerkermenu" Then
DoCmd.OpenForm "Hoofdmenu medewerker 3:1"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
If ![MENU ACTIE] = "Managementmenu" Then
DoCmd.OpenForm "Hoofdmenu management 4:1"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
If ![MENU ACTIE] = "Swiftmenu" Then
DoCmd.Close acForm, "Startmenu 1:0"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
MsgBox "Druk op F11 om het Databasevenster te tonen"
End If
Exit Sub
End If
Loop
End With
DoCmd.Beep
MsgBox "De ingevoerde gebruikersnaam en/of wachtwoord zijn onjuist.", , "Inloggen mislukt"
GebruikersnaamVeld.Value = ""
WachtwoordVeld.Value = ""
GebruikersnaamVeld.SetFocus
End Sub
Anybody idea's??
Thanx
I migrated an Access DB to Oracle DB. If i try to start the Access application and i gave the right credentials, I got the "fout 3146 tijdens uitvoering" "ODBC: de oproep is mislukt"
This is the VB code:
Private Sub WachtwoordVeld_AfterUpdate()
Dim rs1 As DAO.Recordset, waarde1 As String, criteria As Integer
Set rs1 = CurrentDb.OpenRecordset("WACHTWOORD", dbOpenDynaset)
With rs1
.MoveFirst
If ![GEBRUIKERSNAAM] = GebruikersnaamVeld And ![WACHTWOORD] = WachtwoordVeld Then
If ![MENU ACTIE] = "Medewerkermenu" Then
DoCmd.OpenForm "Hoofdmenu medewerker 3:1"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
If ![MENU ACTIE] = "Managementmenu" Then
DoCmd.OpenForm "Hoofdmenu management 4:1"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
If ![MENU ACTIE] = "Swiftmenu" Then
DoCmd.Close acForm, "Startmenu 1:0"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
Exit Sub
End If
Do Until .NoMatch
.FindNext "Gebruikersnaam = " & Chr(34) & Me.GebruikersnaamVeld & Chr(34)
If ![GEBRUIKERSNAAM] = GebruikersnaamVeld And ![WACHTWOORD] = WachtwoordVeld Then
If ![MENU ACTIE] = "Medewerkermenu" Then
DoCmd.OpenForm "Hoofdmenu medewerker 3:1"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
If ![MENU ACTIE] = "Managementmenu" Then
DoCmd.OpenForm "Hoofdmenu management 4:1"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
End If
If ![MENU ACTIE] = "Swiftmenu" Then
DoCmd.Close acForm, "Startmenu 1:0"
DoCmd.Close acForm, "Startmenu 1:1 Inloggen"
MsgBox "Druk op F11 om het Databasevenster te tonen"
End If
Exit Sub
End If
Loop
End With
DoCmd.Beep
MsgBox "De ingevoerde gebruikersnaam en/of wachtwoord zijn onjuist.", , "Inloggen mislukt"
GebruikersnaamVeld.Value = ""
WachtwoordVeld.Value = ""
GebruikersnaamVeld.SetFocus
End Sub
Anybody idea's??
Thanx