yoarf
Messages postés215Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention19 février 2009
-
21 avril 2004 à 12:05
3Pom
Messages postés90Date d'inscriptionsamedi 5 octobre 2002StatutMembreDernière intervention 7 octobre 2004
-
21 avril 2004 à 13:07
Voici le code:
Dim db As Database, rs1 As Recordset
Dim rs2 As Recordset
Dim stDocName As String
Dim chain As String
Dim nom As String
nom = "DUPOND"
Set db = CurrentDb()
Set rs1 = db.OpenRecordset("Select * from Salarie WHERE [NomSalarie]=" & nom)
chain = rs1.Fields("NumSalarie")
MsgBox chain
db.Close
La msgbox m'affiche "Trop peu de paramètres 1 attendu"