Discussion :

[bulmish]

Bonsoir à tous,

j'ai un problème avec mon code et je ne retrouve pas le bug. A l'exécution, le débogage m'indique qu'il manque deux paramètres.

Prière, m'éclairer s'il vous plait.

Je veux avoir une fenêtre login au démarrage afin de filtrer l'accès a ma base de données.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub cmdLogin_Click()
 
Me.Requery
Dim i As Integer
Dim strSQL, use, pwd As String
Dim rs As dao.Recordset
use = Me.txtUserName
pwd = Me.txtPassword
strSQL = ("select * from Users where userid =" & Me.txtUserName & " and password=" & Me.txtPassword & ";")
Set rs = CurrentDb.OpenRecordset(strSQL)
If Not rs.EOF Then
DoCmd.OpenForm switchboard, acNormal, , , , acDialog
DoCmd.Close acForm, login
Else
i = i + 1
MsgBox "Please, check again your user name and password", vbOKOnly
End If
If i > 3 Then
DoCmd.Quit
End If
 
End Sub

[LedZeppII]

Bonsoir,

Il manque les guillemets simples (') autour des valeurs littérales de type texte.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strSQL = "select * from Users where userid ='" & Me.txtUserName & "' and password='" & Me.txtPassword & "';"

A+

[bulmish]

Merci à toi, LedZeppII; effectivement, ça marche au parfait maintenant.