SQLContôleExistPatient = "select * from Patients where Nompatient Like '" &
Nom & "' and Prenompatient like '" & Prenom & "' and Telephonepatient LIKE
'" & Telephone & "' ;"
Set RS_InsertPatient =
modBase3.dbPatients.OpenRecordset(SQLContôleExistPatient)
If RS_InsertPatient = 1 Then
MsgBox ("le patient que vous désirez enregistrer existe déjà dans votre
base")
c le resultat du recordset qui pose pb : c un boolen ou non ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
"pascal" écrivait news::
bonjour, je voudrais savoir comment écrire :
SQLContôleExistPatient = "select * from Patients where Nompatient Like '" & Nom & "' and Prenompatient like '" & Prenom & "' and Telephonepatient LIKE '" & Telephone & "' ;"
Set RS_InsertPatient > modBase3.dbPatients.OpenRecordset(SQLContôleExistPatient)
If RS_InsertPatient = 1 Then
MsgBox ("le patient que vous désirez enregistrer existe déjà dans votre base")
c le resultat du recordset qui pose pb : c un boolen ou non ?
Bonjour Pascal,
Soit le recordset retourne des enregistrements soit non, donc à mon avis tu dois tester sa propriété RecordCount
If RS_InsertPatient.RecordCount > 0 then MsgBox "Le patient existe déjà" 'suite de ta procédure Else ... End If
Autre possibilité, tester les propriétés BOF et EOF du jeu d'enregistrements
c le resultat du recordset qui pose pb : c un boolen ou non ? Non
SQLContôleExistPatient = "select * from Patients where Nompatient Like
'" & Nom & "' and Prenompatient like '" & Prenom & "' and
Telephonepatient LIKE '" & Telephone & "' ;"
Set RS_InsertPatient > modBase3.dbPatients.OpenRecordset(SQLContôleExistPatient)
If RS_InsertPatient = 1 Then
MsgBox ("le patient que vous désirez enregistrer existe déjà dans
votre
base")
c le resultat du recordset qui pose pb : c un boolen ou non ?
Bonjour Pascal,
Soit le recordset retourne des enregistrements soit non, donc à mon avis
tu dois tester sa propriété RecordCount
If RS_InsertPatient.RecordCount > 0 then
MsgBox "Le patient existe déjà"
'suite de ta procédure
Else
...
End If
Autre possibilité, tester les propriétés BOF et EOF du jeu
d'enregistrements
c le resultat du recordset qui pose pb : c un boolen ou non ? Non
SQLContôleExistPatient = "select * from Patients where Nompatient Like '" & Nom & "' and Prenompatient like '" & Prenom & "' and Telephonepatient LIKE '" & Telephone & "' ;"
Set RS_InsertPatient > modBase3.dbPatients.OpenRecordset(SQLContôleExistPatient)
If RS_InsertPatient = 1 Then
MsgBox ("le patient que vous désirez enregistrer existe déjà dans votre base")
c le resultat du recordset qui pose pb : c un boolen ou non ?
Bonjour Pascal,
Soit le recordset retourne des enregistrements soit non, donc à mon avis tu dois tester sa propriété RecordCount
If RS_InsertPatient.RecordCount > 0 then MsgBox "Le patient existe déjà" 'suite de ta procédure Else ... End If
Autre possibilité, tester les propriétés BOF et EOF du jeu d'enregistrements
c le resultat du recordset qui pose pb : c un boolen ou non ? Non
