Discussion :

[yoyo312]

bonjour,je suis en train de faire une ap access à l'aide de l'ado et jaimerais configurer un login et un mot de pass pour chaque personne,et arriver à la page après identificationen cliquant sur le bouton valider.j'ai déjà créer les lignes de code ci dessous,cependant,il semble y avoir un problème avec le "or" de mes conditions (vb me demande le then que j'ai écris juste après,merci de m'aider,je reste bloqué sur la page d'accueil de mon application à cause de cela )

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 valider_Click()
Dim oConn As New ADODB.Connection
Set oConn = CurrentProject.Connection
Dim oRS As New ADODB.Recordset
Dim strTable As String
strTable = "CLIENT"
oRS.Open strTable, oConn, adOpenDynamic, adLockOptimistic
If (oRS.Fields(8) <> "login.Text") OR (oRS.Fields(9) <> "pass.Text")
Then
 'affichage d'un avertissement
    MsgBox "login ou mot de pass incorrect", vbCritical
Else
    'ouverture du formulaire F01 menu
    DoCmd.OpenForm "identifie"
    DoCmd.Close acForm, "Formulaire Accueil"
 
End If
 
 
End Sub

[pc75]

Bonjour,

Mets le then sur la même ligne et enlève les guillemets:

Code :

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

1
2
3
4
 
.....
If (oRS.Fields(8) <> login.Text) OR (oRS.Fields(9) <> pass.Text) Then
.....

[yoyo312]

merci pour ton aide