Bonjour,
Je programme un logiciel médical qui fonctionne avec une base de données Access
J'ai réalisé l'étape de connexion à l'aide d'une requete sql, qui parcoure les tables Medecin et Identification pour repérer le nom du médecin et voir si le mot de passe (stocké dans la table identification) est le bon.
Mais la table Médecin contient aussi ServiceM, le service auquel appartient le médecin, que je voudrais récupérer au moment de l'identification et afficher dans une textbox.
Voila comment j'ai fait, mais ca ne fonctionne pas. Est-ce que quelqu'un peut m'aider? Merci d'avance
LeNomDuMedecin = Login.Text
LePasseSaisi = MDP.Text
'Recupérer le mot de passe pour établir la connexion
Set rs = db.OpenRecordset("SELECT * FROM [MEDECIN], [IDENTIFICATION] WHERE [MEDECIN].[NomM] = '" + LeNomDuMedecin + "' AND [IDENTIFICATION].[MotDePasseI] = '" + LePasseSaisi + "';", , dbForwardOnly)
Do While Not rs.EOF
rs.MoveNext
Loop
Nb = rs.RecordCount
'Récupérer le nom du service correspondant à ce médecin
Set rs1 = db.OpenRecordset("SELECT [ServiceM] FROM [MEDECIN] WHERE [MEDECIN].[NomM] = '" + LeNomDuMedecin + "';", , dbForwardOnly)
Do While Not rs1.EOF
Fenetre2.MP_Service.Text = rs1!ServiceM
rs1.MoveNext
Loop
'Traiter les cas d'erreur
If Nb = 0 Then
MsgBox ("L'utilisateur n'est pas déclaré!")
Exit Sub
Else
Fenetre2.Show
Unload Me
End If
tapas64