Me voilà face à un autre problème que je ne comprend pas.
J'ai un champs dans lequel on encode la date de demande d'information par un
client. Je voudrais que lorsqu'on clique sur le champs, il mette par défaut
la date du jour.
Je ne peux pas utiliser la ligne "valeur par défaut" des propriétés du
champs parce tous les clients ne demandent pas des infos, or si je met la
date du jours dans sur la ligne "Valeur par défaut", je vais avoir la date
du jour pour tout nouveau client.
J'ai donc mis ce code sur la ligne "sur réception focus" :
Private Sub DateDemandeInfo_GotFocus()
If [DateDemandeInfo] > Null Then
[DateDemandeInfo] = Date
End If
End Sub
Malheureusement, qu'il y ait une date ou pas dans le champs, il n'inscrit
rien.
Snif
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
Raymond [mvp]
Bonsoir.
Essaie ceci: Private Sub DateDemandeInfo_GotFocus() If IsNull(Me.DateDemandeInfo) Then Me.DateDemandeInfo = Date End If End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Marc" a écrit dans le message de news:
Re-bonjour,
Me voilà face à un autre problème que je ne comprend pas. J'ai un champs dans lequel on encode la date de demande d'information par un
client. Je voudrais que lorsqu'on clique sur le champs, il mette par défaut
la date du jour. Je ne peux pas utiliser la ligne "valeur par défaut" des propriétés du champs parce tous les clients ne demandent pas des infos, or si je met la date du jours dans sur la ligne "Valeur par défaut", je vais avoir la date du jour pour tout nouveau client. J'ai donc mis ce code sur la ligne "sur réception focus" : Private Sub DateDemandeInfo_GotFocus() If [DateDemandeInfo] > Null Then [DateDemandeInfo] = Date End If End Sub
Malheureusement, qu'il y ait une date ou pas dans le champs, il n'inscrit rien. Snif
Merci de votre aide,
JM
Bonsoir.
Essaie ceci:
Private Sub DateDemandeInfo_GotFocus()
If IsNull(Me.DateDemandeInfo) Then
Me.DateDemandeInfo = Date
End If
End Sub
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Marc" <NoSpam@advalvas.be> a écrit dans le message de
news:u6lZ4bp5DHA.2560@TK2MSFTNGP09.phx.gbl...
Re-bonjour,
Me voilà face à un autre problème que je ne comprend pas.
J'ai un champs dans lequel on encode la date de demande d'information par
un
client. Je voudrais que lorsqu'on clique sur le champs, il mette par
défaut
la date du jour.
Je ne peux pas utiliser la ligne "valeur par défaut" des propriétés du
champs parce tous les clients ne demandent pas des infos, or si je met la
date du jours dans sur la ligne "Valeur par défaut", je vais avoir la date
du jour pour tout nouveau client.
J'ai donc mis ce code sur la ligne "sur réception focus" :
Private Sub DateDemandeInfo_GotFocus()
If [DateDemandeInfo] > Null Then
[DateDemandeInfo] = Date
End If
End Sub
Malheureusement, qu'il y ait une date ou pas dans le champs, il n'inscrit
rien.
Snif
Essaie ceci: Private Sub DateDemandeInfo_GotFocus() If IsNull(Me.DateDemandeInfo) Then Me.DateDemandeInfo = Date End If End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Marc" a écrit dans le message de news:
Re-bonjour,
Me voilà face à un autre problème que je ne comprend pas. J'ai un champs dans lequel on encode la date de demande d'information par un
client. Je voudrais que lorsqu'on clique sur le champs, il mette par défaut
la date du jour. Je ne peux pas utiliser la ligne "valeur par défaut" des propriétés du champs parce tous les clients ne demandent pas des infos, or si je met la date du jours dans sur la ligne "Valeur par défaut", je vais avoir la date du jour pour tout nouveau client. J'ai donc mis ce code sur la ligne "sur réception focus" : Private Sub DateDemandeInfo_GotFocus() If [DateDemandeInfo] > Null Then [DateDemandeInfo] = Date End If End Sub
Malheureusement, qu'il y ait une date ou pas dans le champs, il n'inscrit rien. Snif
Merci de votre aide,
JM
Jean-Marc
Evidemment le code devait être Private Sub DateDemandeInfo_GotFocus() If [DateDemandeInfo] = Null Then [DateDemandeInfo] = Date End If End Sub
Comme ça ne fonctionnait pas, j'ai essayé avec > en mettant un date dans le champs, mais ça ne donne pas plus de résultat. Avec un > je m'attendais à ce qu'il écrase une date existante, mais il ne veut rien savoir, d'aucune manière.
Qu'est ce que je fais mal ?
Merci, JM
"Jean-Marc" a écrit dans le message de news:
Re-bonjour,
Me voilà face à un autre problème que je ne comprend pas. J'ai un champs dans lequel on encode la date de demande d'information par un
client. Je voudrais que lorsqu'on clique sur le champs, il mette par défaut
la date du jour. Je ne peux pas utiliser la ligne "valeur par défaut" des propriétés du champs parce tous les clients ne demandent pas des infos, or si je met la date du jours dans sur la ligne "Valeur par défaut", je vais avoir la date du jour pour tout nouveau client. J'ai donc mis ce code sur la ligne "sur réception focus" : Private Sub DateDemandeInfo_GotFocus() If [DateDemandeInfo] > Null Then [DateDemandeInfo] = Date End If End Sub
Malheureusement, qu'il y ait une date ou pas dans le champs, il n'inscrit rien. Snif
Merci de votre aide,
JM
Evidemment le code devait être
Private Sub DateDemandeInfo_GotFocus()
If [DateDemandeInfo] = Null Then
[DateDemandeInfo] = Date
End If
End Sub
Comme ça ne fonctionnait pas, j'ai essayé avec > en mettant un date dans le
champs, mais ça ne donne pas plus de résultat. Avec un > je m'attendais à ce
qu'il écrase une date existante, mais il ne veut rien savoir, d'aucune
manière.
Qu'est ce que je fais mal ?
Merci,
JM
"Jean-Marc" <NoSpam@advalvas.be> a écrit dans le message de
news:u6lZ4bp5DHA.2560@TK2MSFTNGP09.phx.gbl...
Re-bonjour,
Me voilà face à un autre problème que je ne comprend pas.
J'ai un champs dans lequel on encode la date de demande d'information par
un
client. Je voudrais que lorsqu'on clique sur le champs, il mette par
défaut
la date du jour.
Je ne peux pas utiliser la ligne "valeur par défaut" des propriétés du
champs parce tous les clients ne demandent pas des infos, or si je met la
date du jours dans sur la ligne "Valeur par défaut", je vais avoir la date
du jour pour tout nouveau client.
J'ai donc mis ce code sur la ligne "sur réception focus" :
Private Sub DateDemandeInfo_GotFocus()
If [DateDemandeInfo] > Null Then
[DateDemandeInfo] = Date
End If
End Sub
Malheureusement, qu'il y ait une date ou pas dans le champs, il n'inscrit
rien.
Snif
Evidemment le code devait être Private Sub DateDemandeInfo_GotFocus() If [DateDemandeInfo] = Null Then [DateDemandeInfo] = Date End If End Sub
Comme ça ne fonctionnait pas, j'ai essayé avec > en mettant un date dans le champs, mais ça ne donne pas plus de résultat. Avec un > je m'attendais à ce qu'il écrase une date existante, mais il ne veut rien savoir, d'aucune manière.
Qu'est ce que je fais mal ?
Merci, JM
"Jean-Marc" a écrit dans le message de news:
Re-bonjour,
Me voilà face à un autre problème que je ne comprend pas. J'ai un champs dans lequel on encode la date de demande d'information par un
client. Je voudrais que lorsqu'on clique sur le champs, il mette par défaut
la date du jour. Je ne peux pas utiliser la ligne "valeur par défaut" des propriétés du champs parce tous les clients ne demandent pas des infos, or si je met la date du jours dans sur la ligne "Valeur par défaut", je vais avoir la date du jour pour tout nouveau client. J'ai donc mis ce code sur la ligne "sur réception focus" : Private Sub DateDemandeInfo_GotFocus() If [DateDemandeInfo] > Null Then [DateDemandeInfo] = Date End If End Sub
Malheureusement, qu'il y ait une date ou pas dans le champs, il n'inscrit rien. Snif
Merci de votre aide,
JM
Jean-Marc
Dis Raymond,
T'en as pas marre de toujours avoir la solution et de toujours avoir raison ? Y a des jours où je me demande si t'es vraiment humain. Lol Merci BCP,
JM "Raymond [mvp]" a écrit dans le message de news:
Bonsoir.
Essaie ceci: Private Sub DateDemandeInfo_GotFocus() If IsNull(Me.DateDemandeInfo) Then Me.DateDemandeInfo = Date End If End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Marc" a écrit dans le message de news:
Re-bonjour,
Me voilà face à un autre problème que je ne comprend pas. J'ai un champs dans lequel on encode la date de demande d'information par
un
client. Je voudrais que lorsqu'on clique sur le champs, il mette par défaut
la date du jour. Je ne peux pas utiliser la ligne "valeur par défaut" des propriétés du champs parce tous les clients ne demandent pas des infos, or si je met la
date du jours dans sur la ligne "Valeur par défaut", je vais avoir la date
du jour pour tout nouveau client. J'ai donc mis ce code sur la ligne "sur réception focus" : Private Sub DateDemandeInfo_GotFocus() If [DateDemandeInfo] > Null Then [DateDemandeInfo] = Date End If End Sub
Malheureusement, qu'il y ait une date ou pas dans le champs, il n'inscrit
rien. Snif
Merci de votre aide,
JM
Dis Raymond,
T'en as pas marre de toujours avoir la solution et de toujours avoir raison
?
Y a des jours où je me demande si t'es vraiment humain. Lol
Merci BCP,
JM
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:u7vy6hp5DHA.2628@TK2MSFTNGP10.phx.gbl...
Bonsoir.
Essaie ceci:
Private Sub DateDemandeInfo_GotFocus()
If IsNull(Me.DateDemandeInfo) Then
Me.DateDemandeInfo = Date
End If
End Sub
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Marc" <NoSpam@advalvas.be> a écrit dans le message de
news:u6lZ4bp5DHA.2560@TK2MSFTNGP09.phx.gbl...
Re-bonjour,
Me voilà face à un autre problème que je ne comprend pas.
J'ai un champs dans lequel on encode la date de demande d'information
par
un
client. Je voudrais que lorsqu'on clique sur le champs, il mette par
défaut
la date du jour.
Je ne peux pas utiliser la ligne "valeur par défaut" des propriétés du
champs parce tous les clients ne demandent pas des infos, or si je met
la
date du jours dans sur la ligne "Valeur par défaut", je vais avoir la
date
du jour pour tout nouveau client.
J'ai donc mis ce code sur la ligne "sur réception focus" :
Private Sub DateDemandeInfo_GotFocus()
If [DateDemandeInfo] > Null Then
[DateDemandeInfo] = Date
End If
End Sub
Malheureusement, qu'il y ait une date ou pas dans le champs, il
n'inscrit
T'en as pas marre de toujours avoir la solution et de toujours avoir raison ? Y a des jours où je me demande si t'es vraiment humain. Lol Merci BCP,
JM "Raymond [mvp]" a écrit dans le message de news:
Bonsoir.
Essaie ceci: Private Sub DateDemandeInfo_GotFocus() If IsNull(Me.DateDemandeInfo) Then Me.DateDemandeInfo = Date End If End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Marc" a écrit dans le message de news:
Re-bonjour,
Me voilà face à un autre problème que je ne comprend pas. J'ai un champs dans lequel on encode la date de demande d'information par
un
client. Je voudrais que lorsqu'on clique sur le champs, il mette par défaut
la date du jour. Je ne peux pas utiliser la ligne "valeur par défaut" des propriétés du champs parce tous les clients ne demandent pas des infos, or si je met la
date du jours dans sur la ligne "Valeur par défaut", je vais avoir la date
du jour pour tout nouveau client. J'ai donc mis ce code sur la ligne "sur réception focus" : Private Sub DateDemandeInfo_GotFocus() If [DateDemandeInfo] > Null Then [DateDemandeInfo] = Date End If End Sub
Malheureusement, qu'il y ait une date ou pas dans le champs, il n'inscrit
rien. Snif
Merci de votre aide,
JM
Raymond [mvp]
le jour que j'en aurais marre, comment feras-tu ? aïe mes chevilles !
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Marc" a écrit dans le message de news:%
Dis Raymond,
T'en as pas marre de toujours avoir la solution et de toujours avoir raison
? Y a des jours où je me demande si t'es vraiment humain. Lol Merci BCP,
JM
le jour que j'en aurais marre, comment feras-tu ? aïe mes chevilles !
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean-Marc" <NoSpam@advalvas.be> a écrit dans le message de
news:%23T3zElp5DHA.1052@TK2MSFTNGP12.phx.gbl...
Dis Raymond,
T'en as pas marre de toujours avoir la solution et de toujours avoir
raison
?
Y a des jours où je me demande si t'es vraiment humain. Lol
Merci BCP,
