Salut,
Je souhaite afficher le nombre d'enregistrements d'un=20
recordset. Mais apparemment mon recordset n'est pas bon,=20
je re=E7ois un message : "Trop peu de param=E8tres, 1 attendu"
Je crois que c'est un probl=E8me de type de variables au=20
niveau du champ [responsable] mais j'arrive pas =E0 m'en=20
sortir. Voici mon code , si qqun a une id=E9e !!!
Dim strRecordset As String
Dim rcdRecord As DAO.Recordset
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
3stone
Salut,
Je souhaite afficher le nombre d'enregistrements d'un recordset. Mais apparemment mon recordset n'est pas bon, je reçois un message : "Trop peu de paramètres, 1 attendu"
Je crois que c'est un problème de type de variables au niveau du champ [responsable] mais j'arrive pas à m'en sortir. Voici mon code , si qqun a une idée !!!
Dim db As DAO.Database Dim strRecordset As String Dim rcdRecord As DAO.Recordset
Set db = CurrentDb strRecordset = "SELECT DT.Responsable, DT.Echéance, DT.[Année DT] " _ & "FROM DT " _ & "WHERE (((DT.Responsable)= [Forms]![RESPONSABLE LISTE]![Responsable]) AND ((DT.Echéance) <Format(Date(),""ww"")) AND ((DT.[Année DT])=Format(Date(),""yyyy"")));"
Set rcdRecord = db.OpenRecordset(strRecordset) rcdRecord.MoveLast
[Texte14] = rcdRecord.RecordCount
Ca marche ?
PS: je te conseillerais également de nommer les variables de facon plus "standard"...
Dim db As DAO.Database Dim rst As DAO.Recordset Dim sSQL As String
cela aide à la compréhension ;-)
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
Salut,
Je souhaite afficher le nombre d'enregistrements d'un
recordset. Mais apparemment mon recordset n'est pas bon,
je reçois un message : "Trop peu de paramètres, 1 attendu"
Je crois que c'est un problème de type de variables au
niveau du champ [responsable] mais j'arrive pas à m'en
sortir. Voici mon code , si qqun a une idée !!!
Dim db As DAO.Database
Dim strRecordset As String
Dim rcdRecord As DAO.Recordset
Set db = CurrentDb
strRecordset = "SELECT DT.Responsable, DT.Echéance, DT.[Année DT] " _
& "FROM DT " _
& "WHERE (((DT.Responsable)= [Forms]![RESPONSABLE LISTE]![Responsable]) AND ((DT.Echéance)
<Format(Date(),""ww"")) AND ((DT.[Année DT])=Format(Date(),""yyyy"")));"
Set rcdRecord = db.OpenRecordset(strRecordset)
rcdRecord.MoveLast
[Texte14] = rcdRecord.RecordCount
Ca marche ?
PS: je te conseillerais également de nommer les variables de facon plus "standard"...
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim sSQL As String
cela aide à la compréhension ;-)
--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
Je souhaite afficher le nombre d'enregistrements d'un recordset. Mais apparemment mon recordset n'est pas bon, je reçois un message : "Trop peu de paramètres, 1 attendu"
Je crois que c'est un problème de type de variables au niveau du champ [responsable] mais j'arrive pas à m'en sortir. Voici mon code , si qqun a une idée !!!
Dim db As DAO.Database Dim strRecordset As String Dim rcdRecord As DAO.Recordset
Set db = CurrentDb strRecordset = "SELECT DT.Responsable, DT.Echéance, DT.[Année DT] " _ & "FROM DT " _ & "WHERE (((DT.Responsable)= [Forms]![RESPONSABLE LISTE]![Responsable]) AND ((DT.Echéance) <Format(Date(),""ww"")) AND ((DT.[Année DT])=Format(Date(),""yyyy"")));"
Set rcdRecord = db.OpenRecordset(strRecordset) rcdRecord.MoveLast
[Texte14] = rcdRecord.RecordCount
Ca marche ?
PS: je te conseillerais également de nommer les variables de facon plus "standard"...
Dim db As DAO.Database Dim rst As DAO.Recordset Dim sSQL As String
cela aide à la compréhension ;-)
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
