j'ai ecrit ce code
Dim recept As String
Dim nom As Variant
nom =3D DLookup("nomper", "T_client")
recept =3D DLookup("texte", "T_client")
If recept =3D Now() Then
MsgBox "Attention," & nom & " vous avez un rendez-
vous", 0, "Rendez-vous"
=20
=20
End If
je voudrais savoir s'il est juste ce que je veut faire c=20
a l'ouverture du formulaire qu'il verifie la date et si=20
c'est la m=EAme je veut qu'il renvoie le message
merci
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
Bonjour aussi,
matt j'ai ecrit ce code Dim recept As String Dim nom As Variant nom = DLookup("nomper", "T_client") recept = DLookup("texte", "T_client")
If recept = Now() Then MsgBox "Attention," & nom & " vous avez un rendez-vous", 0, "Rendez-vous" End If
je voudrais savoir s'il est juste ce que je veut faire c a l'ouverture du formulaire qu'il verifie la date et si c'est la même je veut qu'il renvoie le message =========================================== Ben... tu compare un texte "recep" à une date/heure...
Difficile, pour que cela fonctionne....
D'abord, que contient "texte" de la table "T_Client" ? - si c'est une date, cela devrait être un champ date !
Ensuite, ne pas comparer à Now() qui de donne quelque chose comme:
"29.07.2003 17:21:17" ce qui ne sera jamais vérifier....
Compare plutôt à : Date() tout en ayant mis *au même format* le contenu de "recept"
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Bonjour aussi,
matt <matthieu.boillon@wanadoo.fr>
j'ai ecrit ce code
Dim recept As String
Dim nom As Variant
nom = DLookup("nomper", "T_client")
recept = DLookup("texte", "T_client")
If recept = Now() Then
MsgBox "Attention," & nom & " vous avez un rendez-vous", 0, "Rendez-vous"
End If
je voudrais savoir s'il est juste ce que je veut faire c
a l'ouverture du formulaire qu'il verifie la date et si
c'est la même je veut qu'il renvoie le message
===========================================
Ben... tu compare un texte "recep" à une date/heure...
Difficile, pour que cela fonctionne....
D'abord, que contient "texte" de la table "T_Client" ?
- si c'est une date, cela devrait être un champ date !
Ensuite, ne pas comparer à Now() qui de donne quelque chose comme:
"29.07.2003 17:21:17" ce qui ne sera jamais vérifier....
Compare plutôt à : Date()
tout en ayant mis *au même format* le contenu de "recept"
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------
matt j'ai ecrit ce code Dim recept As String Dim nom As Variant nom = DLookup("nomper", "T_client") recept = DLookup("texte", "T_client")
If recept = Now() Then MsgBox "Attention," & nom & " vous avez un rendez-vous", 0, "Rendez-vous" End If
je voudrais savoir s'il est juste ce que je veut faire c a l'ouverture du formulaire qu'il verifie la date et si c'est la même je veut qu'il renvoie le message =========================================== Ben... tu compare un texte "recep" à une date/heure...
Difficile, pour que cela fonctionne....
D'abord, que contient "texte" de la table "T_Client" ? - si c'est une date, cela devrait être un champ date !
Ensuite, ne pas comparer à Now() qui de donne quelque chose comme:
"29.07.2003 17:21:17" ce qui ne sera jamais vérifier....
Compare plutôt à : Date() tout en ayant mis *au même format* le contenu de "recept"
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Anor
Bonjour Mrs Pomemboo
| mettre entre parenthèse et entre crochets le nom des champs... | ..... et des tables et de tout objet access à partir du moment où son nom comporte le caractère espace et pour plus de sécurité s'il comporte un caractère inhabituel (°, accent, ç, etc...)
| mettre entre parenthèse et entre crochets le nom des champs...
|
.....
et des tables et de tout objet access à partir du moment où
son nom comporte le caractère espace et pour plus de sécurité
s'il comporte un caractère inhabituel (°, accent, ç, etc...)
| mettre entre parenthèse et entre crochets le nom des champs... | ..... et des tables et de tout objet access à partir du moment où son nom comporte le caractère espace et pour plus de sécurité s'il comporte un caractère inhabituel (°, accent, ç, etc...)
"Anor" a écrit dans le message de news: 3f269292$0$24599$
Bonjour Mrs Pomemboo
| mettre entre parenthèse et entre crochets le nom des champs... | ..... et des tables et de tout objet access à partir du moment où son nom comporte le caractère espace et pour plus de sécurité s'il comporte un caractère inhabituel (°, accent, ç, etc...)
"Anor" <nospam_news@anor.fr.st> a écrit dans le message de news:
3f269292$0$24599$626a54ce@news.free.fr...
Bonjour Mrs Pomemboo
| mettre entre parenthèse et entre crochets le nom des champs...
|
.....
et des tables et de tout objet access à partir du moment où
son nom comporte le caractère espace et pour plus de sécurité
s'il comporte un caractère inhabituel (°, accent, ç, etc...)
"Anor" a écrit dans le message de news: 3f269292$0$24599$
Bonjour Mrs Pomemboo
| mettre entre parenthèse et entre crochets le nom des champs... | ..... et des tables et de tout objet access à partir du moment où son nom comporte le caractère espace et pour plus de sécurité s'il comporte un caractère inhabituel (°, accent, ç, etc...)
On vous nomme pas MVP pour rien... je crois que je vais me taire à l'avenir !
Bonne journée ! Mrs Pomemboo
"3stone" a écrit dans le message de news:
Bonjour aussi,
matt j'ai ecrit ce code Dim recept As String Dim nom As Variant nom = DLookup("nomper", "T_client") recept = DLookup("texte", "T_client")
If recept = Now() Then MsgBox "Attention," & nom & " vous avez un rendez-vous", 0, "Rendez-vous"
End If
je voudrais savoir s'il est juste ce que je veut faire c a l'ouverture du formulaire qu'il verifie la date et si c'est la même je veut qu'il renvoie le message =========================================== > Ben... tu compare un texte "recep" à une date/heure...
Difficile, pour que cela fonctionne....
D'abord, que contient "texte" de la table "T_Client" ? - si c'est une date, cela devrait être un champ date !
Ensuite, ne pas comparer à Now() qui de donne quelque chose comme:
"29.07.2003 17:21:17" ce qui ne sera jamais vérifier....
Compare plutôt à : Date() tout en ayant mis *au même format* le contenu de "recept"
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
On vous nomme pas MVP pour rien... je crois que je vais me taire à l'avenir
!
Bonne journée !
Mrs Pomemboo
"3stone" <3stone@skynet.be> a écrit dans le message de news:
ekXI4VeVDHA.1912@TK2MSFTNGP11.phx.gbl...
Bonjour aussi,
matt <matthieu.boillon@wanadoo.fr>
j'ai ecrit ce code
Dim recept As String
Dim nom As Variant
nom = DLookup("nomper", "T_client")
recept = DLookup("texte", "T_client")
If recept = Now() Then
MsgBox "Attention," & nom & " vous avez un rendez-vous", 0,
"Rendez-vous"
End If
je voudrais savoir s'il est juste ce que je veut faire c
a l'ouverture du formulaire qu'il verifie la date et si
c'est la même je veut qu'il renvoie le message
=========================================== >
Ben... tu compare un texte "recep" à une date/heure...
Difficile, pour que cela fonctionne....
D'abord, que contient "texte" de la table "T_Client" ?
- si c'est une date, cela devrait être un champ date !
Ensuite, ne pas comparer à Now() qui de donne quelque chose comme:
"29.07.2003 17:21:17" ce qui ne sera jamais vérifier....
Compare plutôt à : Date()
tout en ayant mis *au même format* le contenu de "recept"
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------
On vous nomme pas MVP pour rien... je crois que je vais me taire à l'avenir !
Bonne journée ! Mrs Pomemboo
"3stone" a écrit dans le message de news:
Bonjour aussi,
matt j'ai ecrit ce code Dim recept As String Dim nom As Variant nom = DLookup("nomper", "T_client") recept = DLookup("texte", "T_client")
If recept = Now() Then MsgBox "Attention," & nom & " vous avez un rendez-vous", 0, "Rendez-vous"
End If
je voudrais savoir s'il est juste ce que je veut faire c a l'ouverture du formulaire qu'il verifie la date et si c'est la même je veut qu'il renvoie le message =========================================== > Ben... tu compare un texte "recep" à une date/heure...
Difficile, pour que cela fonctionne....
D'abord, que contient "texte" de la table "T_Client" ? - si c'est une date, cela devrait être un champ date !
Ensuite, ne pas comparer à Now() qui de donne quelque chose comme:
"29.07.2003 17:21:17" ce qui ne sera jamais vérifier....
Compare plutôt à : Date() tout en ayant mis *au même format* le contenu de "recept"
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Anor
Bonjour Mrs Pomemboo
| J'ai effectivement eu une faiblesse... :-)
bah il n'a pas de mal : à part l'espace, je ne sais même pas quel caractère impose les crochets ;-))
salut apparament recept est une date ou une heure Donc declare recept comme tel tu peux pas comparer recept string avec nows() Je viens de verifier now() et de type variant(Date) Dim recept as date -- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "matt" a écrit dans le message de news:0b2601c355e2$38100650$ j'ai ecrit ce code Dim recept As String Dim nom As Variant nom = DLookup("nomper", "T_client") recept = DLookup("texte", "T_client")
If recept = Now() Then
MsgBox "Attention," & nom & " vous avez un rendez- vous", 0, "Rendez-vous"
End If je voudrais savoir s'il est juste ce que je veut faire c a l'ouverture du formulaire qu'il verifie la date et si c'est la même je veut qu'il renvoie le message merci
salut
apparament recept est une date ou une heure
Donc declare recept comme tel tu peux pas comparer recept string avec nows()
Je viens de verifier now() et de type variant(Date)
Dim recept as date
--
@+
André
Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"matt" <matthieu.boillon@wanadoo.fr> a écrit dans le message de
news:0b2601c355e2$38100650$a501280a@phx.gbl...
j'ai ecrit ce code
Dim recept As String
Dim nom As Variant
nom = DLookup("nomper", "T_client")
recept = DLookup("texte", "T_client")
If recept = Now() Then
MsgBox "Attention," & nom & " vous avez un rendez-
vous", 0, "Rendez-vous"
End If
je voudrais savoir s'il est juste ce que je veut faire c
a l'ouverture du formulaire qu'il verifie la date et si
c'est la même je veut qu'il renvoie le message
merci
salut apparament recept est une date ou une heure Donc declare recept comme tel tu peux pas comparer recept string avec nows() Je viens de verifier now() et de type variant(Date) Dim recept as date -- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "matt" a écrit dans le message de news:0b2601c355e2$38100650$ j'ai ecrit ce code Dim recept As String Dim nom As Variant nom = DLookup("nomper", "T_client") recept = DLookup("texte", "T_client")
If recept = Now() Then
MsgBox "Attention," & nom & " vous avez un rendez- vous", 0, "Rendez-vous"
End If je voudrais savoir s'il est juste ce que je veut faire c a l'ouverture du formulaire qu'il verifie la date et si c'est la même je veut qu'il renvoie le message merci
