Dim x As Integer
x = DLookup("Ref_date", "T_Rendez_vous", "R_Date = " & Date)
Me.RecordsetClone.FindFirst "[Ref_Date] = " & x
Me.Bookmark = Me.RecordsetClone.Bookmark
le problème c'est que l'enregistrement en cours ne se positionne pas sur la
date du jour et je ne comprends pas pourquoi.
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
Monkeytoo
ça marche super merci (à raymind également) "3stone" a écrit dans le message de news:
Salut,
"Monkeytoo"
Dim x As Integer x = DLookup("Ref_date", "T_Rendez_vous", "R_Date = " & Date)
la fin...
"R_Date = #" & format(Date,"mm/dd/yyyy") & "#")
dans le VBA il faut transmettre les dates au format US
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
ça marche super
merci
(à raymind également)
"3stone" <threestone@cielreseau.be> a écrit dans le message de news:
eAlrKpf4DHA.3436@tk2msftngp13.phx.gbl...
Salut,
"Monkeytoo"
Dim x As Integer
x = DLookup("Ref_date", "T_Rendez_vous", "R_Date = " & Date)
la fin...
"R_Date = #" & format(Date,"mm/dd/yyyy") & "#")
dans le VBA il faut transmettre les dates au format US
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Dim x As Integer x = DLookup("Ref_date", "T_Rendez_vous", "R_Date = " & Date)
la fin...
"R_Date = #" & format(Date,"mm/dd/yyyy") & "#")
dans le VBA il faut transmettre les dates au format US
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Raymond [mvp]
Bonsoir.
Dim x As Integer x ne peut pas recevoir une valeur date.
Ref_date est-il une date ou un code ? R_Date est sous quel format ?
je suppose que x est un code. donc ref_date est une valeur numérique x = DLookup("Ref_date", "T_Rendez_vous", "Format([R_Date],""mm/dd/yyyy"" = " & Format(Date, "mm/dd/yyyy")) le reste sans changement sous réserve car fait à la volée. si ça ne fonctionne pas, place un msgbox x juste derrière le dlokkup pour voir la valeur de x ou place un point d'arret dans le code.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Monkeytoo" a écrit dans le message de news:
Bonsoir derrière un bouton , j'ai le code suivant
Dim x As Integer x = DLookup("Ref_date", "T_Rendez_vous", "R_Date = " & Date) Me.RecordsetClone.FindFirst "[Ref_Date] = " & x Me.Bookmark = Me.RecordsetClone.Bookmark
le problème c'est que l'enregistrement en cours ne se positionne pas sur la
date du jour et je ne comprends pas pourquoi.
Bonsoir.
Dim x As Integer
x ne peut pas recevoir une valeur date.
Ref_date est-il une date ou un code ?
R_Date est sous quel format ?
je suppose que x est un code.
donc ref_date est une valeur numérique
x = DLookup("Ref_date", "T_Rendez_vous", "Format([R_Date],""mm/dd/yyyy"" = "
& Format(Date, "mm/dd/yyyy"))
le reste sans changement
sous réserve car fait à la volée.
si ça ne fonctionne pas, place un msgbox x juste derrière le dlokkup pour
voir la valeur de x ou place un point d'arret dans le code.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Monkeytoo" <coiffurevogue@skynet.be> a écrit dans le message de
news:uIM1hbf4DHA.2168@TK2MSFTNGP12.phx.gbl...
Bonsoir
derrière un bouton , j'ai le code suivant
Dim x As Integer
x = DLookup("Ref_date", "T_Rendez_vous", "R_Date = " & Date)
Me.RecordsetClone.FindFirst "[Ref_Date] = " & x
Me.Bookmark = Me.RecordsetClone.Bookmark
le problème c'est que l'enregistrement en cours ne se positionne pas sur
la
Dim x As Integer x ne peut pas recevoir une valeur date.
Ref_date est-il une date ou un code ? R_Date est sous quel format ?
je suppose que x est un code. donc ref_date est une valeur numérique x = DLookup("Ref_date", "T_Rendez_vous", "Format([R_Date],""mm/dd/yyyy"" = " & Format(Date, "mm/dd/yyyy")) le reste sans changement sous réserve car fait à la volée. si ça ne fonctionne pas, place un msgbox x juste derrière le dlokkup pour voir la valeur de x ou place un point d'arret dans le code.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Monkeytoo" a écrit dans le message de news:
Bonsoir derrière un bouton , j'ai le code suivant
Dim x As Integer x = DLookup("Ref_date", "T_Rendez_vous", "R_Date = " & Date) Me.RecordsetClone.FindFirst "[Ref_Date] = " & x Me.Bookmark = Me.RecordsetClone.Bookmark
le problème c'est que l'enregistrement en cours ne se positionne pas sur la
