Bonjour,
J'ai une table avec un champ date. Table1
J'ai un formulaire avec une Text1 ou je veux introduire une date (p. ex.
aujourd'hui).
J'aimerais avoir un message si la date introduite existe dans la table1.
J'ai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, .. ça ne fonctionne pas.
Pourrais vous m'aider ?
Merci d'avance
A. Costa
Bonjour,
J'ai une table avec un champ date. Table1
J'ai un formulaire avec une Text1 ou je veux introduire une date (p. ex.
aujourd'hui).
J'aimerais avoir un message si la date introduite existe dans la table1.
J'ai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, .. ça ne fonctionne pas.
Pourrais vous m'aider ?
Merci d'avance
A. Costa
Bonjour,
J'ai une table avec un champ date. Table1
J'ai un formulaire avec une Text1 ou je veux introduire une date (p. ex.
aujourd'hui).
J'aimerais avoir un message si la date introduite existe dans la table1.
J'ai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, .. ça ne fonctionne pas.
Pourrais vous m'aider ?
Merci d'avance
A. Costa
Bonjour ou bonsoir, selon.
Regarde l'aide sur Dlookup
Cdt, Blaise
---- ---- ----
"A COSTA" a écrit dans le message de
news:Bonjour,
J'ai une table avec un champ date. Table1
J'ai un formulaire avec une Text1 ou je veux introduire une date (p. ex.
aujourd'hui).
J'aimerais avoir un message si la date introduite existe dans la table1.
J'ai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, .. ça ne fonctionne pas.
Pourrais vous m'aider ?
Merci d'avance
A. Costa
Bonjour ou bonsoir, selon.
Regarde l'aide sur Dlookup
Cdt, Blaise
---- ---- ----
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 1FA682DE-D608-4753-AD81-88BC08334DEE@microsoft.com...
Bonjour,
J'ai une table avec un champ date. Table1
J'ai un formulaire avec une Text1 ou je veux introduire une date (p. ex.
aujourd'hui).
J'aimerais avoir un message si la date introduite existe dans la table1.
J'ai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, .. ça ne fonctionne pas.
Pourrais vous m'aider ?
Merci d'avance
A. Costa
Bonjour ou bonsoir, selon.
Regarde l'aide sur Dlookup
Cdt, Blaise
---- ---- ----
"A COSTA" a écrit dans le message de
news:Bonjour,
J'ai une table avec un champ date. Table1
J'ai un formulaire avec une Text1 ou je veux introduire une date (p. ex.
aujourd'hui).
J'aimerais avoir un message si la date introduite existe dans la table1.
J'ai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, .. ça ne fonctionne pas.
Pourrais vous m'aider ?
Merci d'avance
A. Costa
Bonjour,
J’ai une table avec un champ date. Table1
J’ai un formulaire avec une Text1 ou je veux introduire une date (p.
ex. aujourd'hui).
J’aimerais avoir un message si la date introduite existe dans la
table1.
J’ai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, …. ça ne fonctionne pas.
Pourrais vous m’aider ?
Bonjour,
J’ai une table avec un champ date. Table1
J’ai un formulaire avec une Text1 ou je veux introduire une date (p.
ex. aujourd'hui).
J’aimerais avoir un message si la date introduite existe dans la
table1.
J’ai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, …. ça ne fonctionne pas.
Pourrais vous m’aider ?
Bonjour,
J’ai une table avec un champ date. Table1
J’ai un formulaire avec une Text1 ou je veux introduire une date (p.
ex. aujourd'hui).
J’aimerais avoir un message si la date introduite existe dans la
table1.
J’ai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, …. ça ne fonctionne pas.
Pourrais vous m’aider ?
Salut,
A COSTA wrote:
> Bonjour,
> J’ai une table avec un champ date. Table1
> J’ai un formulaire avec une Text1 ou je veux introduire une date (p.
> ex. aujourd'hui).
>
> J’aimerais avoir un message si la date introduite existe dans la
> table1.
>
> J’ai essayé :
>
> Private Sub Text1_BeforeUpdate(Cancel As Integer)
> If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
> MsgBox "La date existe déjà dans la table"
> End if
>
> Mais, …. ça ne fonctionne pas.
> Pourrais vous m’aider ?
"Date" est le nom d'une fonction d'Access et ne peux pas être utilisée
comme nom de champ... comme toutes les autres fonctions d'ailleurs
http://support.microsoft.com/kb/286335/fr?spid%09&sida8
"Date" renvoie donc la date du jour, tu compares Text1 à cette date
et, au mieux - si cela fonctionne, tu obtien uniquement ceux du jour...
Pour contourner, tu peux essayer:
If DCount("*", "Table1", "[Date] =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
mais il est de toute façon conseillé d'utiliser des noms de champ "parlant"
comme DateAchat, DateVente, DateNaissance qui te parlera encore
lorsque tu regarderas ton code dans un an ou deux ;-)
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Salut,
A COSTA wrote:
> Bonjour,
> J’ai une table avec un champ date. Table1
> J’ai un formulaire avec une Text1 ou je veux introduire une date (p.
> ex. aujourd'hui).
>
> J’aimerais avoir un message si la date introduite existe dans la
> table1.
>
> J’ai essayé :
>
> Private Sub Text1_BeforeUpdate(Cancel As Integer)
> If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
> MsgBox "La date existe déjà dans la table"
> End if
>
> Mais, …. ça ne fonctionne pas.
> Pourrais vous m’aider ?
"Date" est le nom d'une fonction d'Access et ne peux pas être utilisée
comme nom de champ... comme toutes les autres fonctions d'ailleurs
http://support.microsoft.com/kb/286335/fr?spid%09&sida8
"Date" renvoie donc la date du jour, tu compares Text1 à cette date
et, au mieux - si cela fonctionne, tu obtien uniquement ceux du jour...
Pour contourner, tu peux essayer:
If DCount("*", "Table1", "[Date] =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
mais il est de toute façon conseillé d'utiliser des noms de champ "parlant"
comme DateAchat, DateVente, DateNaissance qui te parlera encore
lorsque tu regarderas ton code dans un an ou deux ;-)
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Salut,
A COSTA wrote:
> Bonjour,
> J’ai une table avec un champ date. Table1
> J’ai un formulaire avec une Text1 ou je veux introduire une date (p.
> ex. aujourd'hui).
>
> J’aimerais avoir un message si la date introduite existe dans la
> table1.
>
> J’ai essayé :
>
> Private Sub Text1_BeforeUpdate(Cancel As Integer)
> If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
> MsgBox "La date existe déjà dans la table"
> End if
>
> Mais, …. ça ne fonctionne pas.
> Pourrais vous m’aider ?
"Date" est le nom d'une fonction d'Access et ne peux pas être utilisée
comme nom de champ... comme toutes les autres fonctions d'ailleurs
http://support.microsoft.com/kb/286335/fr?spid%09&sida8
"Date" renvoie donc la date du jour, tu compares Text1 à cette date
et, au mieux - si cela fonctionne, tu obtien uniquement ceux du jour...
Pour contourner, tu peux essayer:
If DCount("*", "Table1", "[Date] =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
mais il est de toute façon conseillé d'utiliser des noms de champ "parlant"
comme DateAchat, DateVente, DateNaissance qui te parlera encore
lorsque tu regarderas ton code dans un an ou deux ;-)
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Bonjour et merci
J'ai cangé les noms des champs mias c'est le meme.
Si la date introduite existe dans la table, je n'ai pas le message.
Si je change ...Table1", "MonChamp =" & Me.Text1.Value... par
.....Table1", "MonChamp <=" .... je continue sans le message.
.....Table1", "MonChamp >=" .... j'ai le message, si la date
introduite et egale ou inferieure aus dates de la table.
Dans ce cas, si la date plus petite de la table est p. ex. 1/1/1980
et je mets 1/1/1979 j'ai aussi le message parce que c'est logique
selon la formule mais elle n'existe pas dans la table.
C'est la mom probleme. Je voudrais avoir un message d'avertissement
si la date introduite, plus petite ou plus grande que toutes les
dates de la table. Merci encore une fois.
A. Costa
"3stone" a écrit :Salut,
A COSTA wrote:Bonjour,
J’ai une table avec un champ date. Table1
J’ai un formulaire avec une Text1 ou je veux introduire une date (p.
ex. aujourd'hui).
J’aimerais avoir un message si la date introduite existe dans la
table1.
J’ai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, …. ça ne fonctionne pas.
Pourrais vous m’aider ?
"Date" est le nom d'une fonction d'Access et ne peux pas être
utilisée comme nom de champ... comme toutes les autres fonctions
d'ailleurs
http://support.microsoft.com/kb/286335/fr?spid%09&sida8
"Date" renvoie donc la date du jour, tu compares Text1 à cette date
et, au mieux - si cela fonctionne, tu obtien uniquement ceux du
jour...
Pour contourner, tu peux essayer:
If DCount("*", "Table1", "[Date] =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
mais il est de toute façon conseillé d'utiliser des noms de champ
"parlant" comme DateAchat, DateVente, DateNaissance qui te parlera
encore
lorsque tu regarderas ton code dans un an ou deux ;-)
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Bonjour et merci
J'ai cangé les noms des champs mias c'est le meme.
Si la date introduite existe dans la table, je n'ai pas le message.
Si je change ...Table1", "MonChamp =" & Me.Text1.Value... par
.....Table1", "MonChamp <=" .... je continue sans le message.
.....Table1", "MonChamp >=" .... j'ai le message, si la date
introduite et egale ou inferieure aus dates de la table.
Dans ce cas, si la date plus petite de la table est p. ex. 1/1/1980
et je mets 1/1/1979 j'ai aussi le message parce que c'est logique
selon la formule mais elle n'existe pas dans la table.
C'est la mom probleme. Je voudrais avoir un message d'avertissement
si la date introduite, plus petite ou plus grande que toutes les
dates de la table. Merci encore une fois.
A. Costa
"3stone" a écrit :
Salut,
A COSTA wrote:
Bonjour,
J’ai une table avec un champ date. Table1
J’ai un formulaire avec une Text1 ou je veux introduire une date (p.
ex. aujourd'hui).
J’aimerais avoir un message si la date introduite existe dans la
table1.
J’ai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, …. ça ne fonctionne pas.
Pourrais vous m’aider ?
"Date" est le nom d'une fonction d'Access et ne peux pas être
utilisée comme nom de champ... comme toutes les autres fonctions
d'ailleurs
http://support.microsoft.com/kb/286335/fr?spid%09&sida8
"Date" renvoie donc la date du jour, tu compares Text1 à cette date
et, au mieux - si cela fonctionne, tu obtien uniquement ceux du
jour...
Pour contourner, tu peux essayer:
If DCount("*", "Table1", "[Date] =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
mais il est de toute façon conseillé d'utiliser des noms de champ
"parlant" comme DateAchat, DateVente, DateNaissance qui te parlera
encore
lorsque tu regarderas ton code dans un an ou deux ;-)
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Bonjour et merci
J'ai cangé les noms des champs mias c'est le meme.
Si la date introduite existe dans la table, je n'ai pas le message.
Si je change ...Table1", "MonChamp =" & Me.Text1.Value... par
.....Table1", "MonChamp <=" .... je continue sans le message.
.....Table1", "MonChamp >=" .... j'ai le message, si la date
introduite et egale ou inferieure aus dates de la table.
Dans ce cas, si la date plus petite de la table est p. ex. 1/1/1980
et je mets 1/1/1979 j'ai aussi le message parce que c'est logique
selon la formule mais elle n'existe pas dans la table.
C'est la mom probleme. Je voudrais avoir un message d'avertissement
si la date introduite, plus petite ou plus grande que toutes les
dates de la table. Merci encore une fois.
A. Costa
"3stone" a écrit :Salut,
A COSTA wrote:Bonjour,
J’ai une table avec un champ date. Table1
J’ai un formulaire avec une Text1 ou je veux introduire une date (p.
ex. aujourd'hui).
J’aimerais avoir un message si la date introduite existe dans la
table1.
J’ai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, …. ça ne fonctionne pas.
Pourrais vous m’aider ?
"Date" est le nom d'une fonction d'Access et ne peux pas être
utilisée comme nom de champ... comme toutes les autres fonctions
d'ailleurs
http://support.microsoft.com/kb/286335/fr?spid%09&sida8
"Date" renvoie donc la date du jour, tu compares Text1 à cette date
et, au mieux - si cela fonctionne, tu obtien uniquement ceux du
jour...
Pour contourner, tu peux essayer:
If DCount("*", "Table1", "[Date] =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
mais il est de toute façon conseillé d'utiliser des noms de champ
"parlant" comme DateAchat, DateVente, DateNaissance qui te parlera
encore
lorsque tu regarderas ton code dans un an ou deux ;-)
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Salut,
Seconde étape...
Il faut que tu présentes les dates que *tu* manipules sous la formes US,
car le VBA ne "parle" que l'anglais... ;-)
Donc, ton code devient :
If DCount("*", "Table1", "DateX =" & Format(Me.Text1.Value, "#mm-dd-yyyy#") > 0 Then
MsgBox "La date existe déjà dans la table"
End if
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
A COSTA wrote:
> Bonjour et merci
> J'ai cangé les noms des champs mias c'est le meme.
> Si la date introduite existe dans la table, je n'ai pas le message.
> Si je change ...Table1", "MonChamp =" & Me.Text1.Value... par
> .....Table1", "MonChamp <=" .... je continue sans le message.
> .....Table1", "MonChamp >=" .... j'ai le message, si la date
> introduite et egale ou inferieure aus dates de la table.
> Dans ce cas, si la date plus petite de la table est p. ex. 1/1/1980
> et je mets 1/1/1979 j'ai aussi le message parce que c'est logique
> selon la formule mais elle n'existe pas dans la table.
> C'est la mom probleme. Je voudrais avoir un message d'avertissement
> si la date introduite, plus petite ou plus grande que toutes les
> dates de la table. Merci encore une fois.
> A. Costa
>
> "3stone" a écrit :
>
>> Salut,
>>
>> A COSTA wrote:
>>> Bonjour,
>>> J’ai une table avec un champ date. Table1
>>> J’ai un formulaire avec une Text1 ou je veux introduire une date (p.
>>> ex. aujourd'hui).
>>>
>>> J’aimerais avoir un message si la date introduite existe dans la
>>> table1.
>>>
>>> J’ai essayé :
>>>
>>> Private Sub Text1_BeforeUpdate(Cancel As Integer)
>>> If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
>>> MsgBox "La date existe déjà dans la table"
>>> End if
>>>
>>> Mais, …. ça ne fonctionne pas.
>>> Pourrais vous m’aider ?
>>
>>
>> "Date" est le nom d'une fonction d'Access et ne peux pas être
>> utilisée comme nom de champ... comme toutes les autres fonctions
>> d'ailleurs
>> http://support.microsoft.com/kb/286335/fr?spid%09&sida8
>>
>> "Date" renvoie donc la date du jour, tu compares Text1 à cette date
>> et, au mieux - si cela fonctionne, tu obtien uniquement ceux du
>> jour...
>>
>> Pour contourner, tu peux essayer:
>>
>> If DCount("*", "Table1", "[Date] =" & Me.Text1.Value) > 0 Then
>> MsgBox "La date existe déjà dans la table"
>> End if
>>
>> mais il est de toute façon conseillé d'utiliser des noms de champ
>> "parlant" comme DateAchat, DateVente, DateNaissance qui te parlera
>> encore
>> lorsque tu regarderas ton code dans un an ou deux ;-)
>>
>> --
>> A+
>> Pierre (3stone) Access MVP
>> Perso: http://www.3stone.be/
>> MPFA: http://www.mpfa.info/ (infos générales)
Salut,
Seconde étape...
Il faut que tu présentes les dates que *tu* manipules sous la formes US,
car le VBA ne "parle" que l'anglais... ;-)
Donc, ton code devient :
If DCount("*", "Table1", "DateX =" & Format(Me.Text1.Value, "#mm-dd-yyyy#") > 0 Then
MsgBox "La date existe déjà dans la table"
End if
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
A COSTA wrote:
> Bonjour et merci
> J'ai cangé les noms des champs mias c'est le meme.
> Si la date introduite existe dans la table, je n'ai pas le message.
> Si je change ...Table1", "MonChamp =" & Me.Text1.Value... par
> .....Table1", "MonChamp <=" .... je continue sans le message.
> .....Table1", "MonChamp >=" .... j'ai le message, si la date
> introduite et egale ou inferieure aus dates de la table.
> Dans ce cas, si la date plus petite de la table est p. ex. 1/1/1980
> et je mets 1/1/1979 j'ai aussi le message parce que c'est logique
> selon la formule mais elle n'existe pas dans la table.
> C'est la mom probleme. Je voudrais avoir un message d'avertissement
> si la date introduite, plus petite ou plus grande que toutes les
> dates de la table. Merci encore une fois.
> A. Costa
>
> "3stone" a écrit :
>
>> Salut,
>>
>> A COSTA wrote:
>>> Bonjour,
>>> J’ai une table avec un champ date. Table1
>>> J’ai un formulaire avec une Text1 ou je veux introduire une date (p.
>>> ex. aujourd'hui).
>>>
>>> J’aimerais avoir un message si la date introduite existe dans la
>>> table1.
>>>
>>> J’ai essayé :
>>>
>>> Private Sub Text1_BeforeUpdate(Cancel As Integer)
>>> If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
>>> MsgBox "La date existe déjà dans la table"
>>> End if
>>>
>>> Mais, …. ça ne fonctionne pas.
>>> Pourrais vous m’aider ?
>>
>>
>> "Date" est le nom d'une fonction d'Access et ne peux pas être
>> utilisée comme nom de champ... comme toutes les autres fonctions
>> d'ailleurs
>> http://support.microsoft.com/kb/286335/fr?spid%09&sida8
>>
>> "Date" renvoie donc la date du jour, tu compares Text1 à cette date
>> et, au mieux - si cela fonctionne, tu obtien uniquement ceux du
>> jour...
>>
>> Pour contourner, tu peux essayer:
>>
>> If DCount("*", "Table1", "[Date] =" & Me.Text1.Value) > 0 Then
>> MsgBox "La date existe déjà dans la table"
>> End if
>>
>> mais il est de toute façon conseillé d'utiliser des noms de champ
>> "parlant" comme DateAchat, DateVente, DateNaissance qui te parlera
>> encore
>> lorsque tu regarderas ton code dans un an ou deux ;-)
>>
>> --
>> A+
>> Pierre (3stone) Access MVP
>> Perso: http://www.3stone.be/
>> MPFA: http://www.mpfa.info/ (infos générales)
Salut,
Seconde étape...
Il faut que tu présentes les dates que *tu* manipules sous la formes US,
car le VBA ne "parle" que l'anglais... ;-)
Donc, ton code devient :
If DCount("*", "Table1", "DateX =" & Format(Me.Text1.Value, "#mm-dd-yyyy#") > 0 Then
MsgBox "La date existe déjà dans la table"
End if
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
A COSTA wrote:
> Bonjour et merci
> J'ai cangé les noms des champs mias c'est le meme.
> Si la date introduite existe dans la table, je n'ai pas le message.
> Si je change ...Table1", "MonChamp =" & Me.Text1.Value... par
> .....Table1", "MonChamp <=" .... je continue sans le message.
> .....Table1", "MonChamp >=" .... j'ai le message, si la date
> introduite et egale ou inferieure aus dates de la table.
> Dans ce cas, si la date plus petite de la table est p. ex. 1/1/1980
> et je mets 1/1/1979 j'ai aussi le message parce que c'est logique
> selon la formule mais elle n'existe pas dans la table.
> C'est la mom probleme. Je voudrais avoir un message d'avertissement
> si la date introduite, plus petite ou plus grande que toutes les
> dates de la table. Merci encore une fois.
> A. Costa
>
> "3stone" a écrit :
>
>> Salut,
>>
>> A COSTA wrote:
>>> Bonjour,
>>> J’ai une table avec un champ date. Table1
>>> J’ai un formulaire avec une Text1 ou je veux introduire une date (p.
>>> ex. aujourd'hui).
>>>
>>> J’aimerais avoir un message si la date introduite existe dans la
>>> table1.
>>>
>>> J’ai essayé :
>>>
>>> Private Sub Text1_BeforeUpdate(Cancel As Integer)
>>> If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
>>> MsgBox "La date existe déjà dans la table"
>>> End if
>>>
>>> Mais, …. ça ne fonctionne pas.
>>> Pourrais vous m’aider ?
>>
>>
>> "Date" est le nom d'une fonction d'Access et ne peux pas être
>> utilisée comme nom de champ... comme toutes les autres fonctions
>> d'ailleurs
>> http://support.microsoft.com/kb/286335/fr?spid%09&sida8
>>
>> "Date" renvoie donc la date du jour, tu compares Text1 à cette date
>> et, au mieux - si cela fonctionne, tu obtien uniquement ceux du
>> jour...
>>
>> Pour contourner, tu peux essayer:
>>
>> If DCount("*", "Table1", "[Date] =" & Me.Text1.Value) > 0 Then
>> MsgBox "La date existe déjà dans la table"
>> End if
>>
>> mais il est de toute façon conseillé d'utiliser des noms de champ
>> "parlant" comme DateAchat, DateVente, DateNaissance qui te parlera
>> encore
>> lorsque tu regarderas ton code dans un an ou deux ;-)
>>
>> --
>> A+
>> Pierre (3stone) Access MVP
>> Perso: http://www.3stone.be/
>> MPFA: http://www.mpfa.info/ (infos générales)
Bonjour,
Merci beaucoup pour votre aide.
Si c'est pas demander de trop, comment dois je changer la formule pour
permetre d'avoir le message si la date introduite n'existe pas dans la
table
mais est comprise entre la date la plus petite et la plus elevée de la
table.
Merci d'avance
A. Costa
"3stone" a écrit :Salut,
Seconde étape...
Il faut que tu présentes les dates que *tu* manipules sous la formes
US,
car le VBA ne "parle" que l'anglais... ;-)
Donc, ton code devient :
If DCount("*", "Table1", "DateX =" & Format(Me.Text1.Value,
"#mm-dd-yyyy#") > 0 Then
MsgBox "La date existe déjà dans la table"
End if
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
A COSTA wrote:
> Bonjour et merci
> J'ai cangé les noms des champs mias c'est le meme.
> Si la date introduite existe dans la table, je n'ai pas le message.
> Si je change ...Table1", "MonChamp =" & Me.Text1.Value... par
> .....Table1", "MonChamp <=" .... je continue sans le message.
> .....Table1", "MonChamp >=" .... j'ai le message, si la date
> introduite et egale ou inferieure aus dates de la table.
> Dans ce cas, si la date plus petite de la table est p. ex. 1/1/1980
> et je mets 1/1/1979 j'ai aussi le message parce que c'est logique
> selon la formule mais elle n'existe pas dans la table.
> C'est la mom probleme. Je voudrais avoir un message d'avertissement
> si la date introduite, plus petite ou plus grande que toutes les
> dates de la table. Merci encore une fois.
> A. Costa
>
> "3stone" a écrit :
>
>> Salut,
>>
>> A COSTA wrote:
>>> Bonjour,
>>> J'ai une table avec un champ date. Table1
>>> J'ai un formulaire avec une Text1 ou je veux introduire une date (p.
>>> ex. aujourd'hui).
>>>
>>> J'aimerais avoir un message si la date introduite existe dans la
>>> table1.
>>>
>>> J'ai essayé :
>>>
>>> Private Sub Text1_BeforeUpdate(Cancel As Integer)
>>> If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
>>> MsgBox "La date existe déjà dans la table"
>>> End if
>>>
>>> Mais, .. ça ne fonctionne pas.
>>> Pourrais vous m'aider ?
>>
>>
>> "Date" est le nom d'une fonction d'Access et ne peux pas être
>> utilisée comme nom de champ... comme toutes les autres fonctions
>> d'ailleurs
>> http://support.microsoft.com/kb/286335/fr?spid%09&sida8
>>
>> "Date" renvoie donc la date du jour, tu compares Text1 à cette date
>> et, au mieux - si cela fonctionne, tu obtien uniquement ceux du
>> jour...
>>
>> Pour contourner, tu peux essayer:
>>
>> If DCount("*", "Table1", "[Date] =" & Me.Text1.Value) > 0 Then
>> MsgBox "La date existe déjà dans la table"
>> End if
>>
>> mais il est de toute façon conseillé d'utiliser des noms de champ
>> "parlant" comme DateAchat, DateVente, DateNaissance qui te parlera
>> encore
>> lorsque tu regarderas ton code dans un an ou deux ;-)
>>
>> --
>> A+
>> Pierre (3stone) Access MVP
>> Perso: http://www.3stone.be/
>> MPFA: http://www.mpfa.info/ (infos générales)
Bonjour,
Merci beaucoup pour votre aide.
Si c'est pas demander de trop, comment dois je changer la formule pour
permetre d'avoir le message si la date introduite n'existe pas dans la
table
mais est comprise entre la date la plus petite et la plus elevée de la
table.
Merci d'avance
A. Costa
"3stone" a écrit :
Salut,
Seconde étape...
Il faut que tu présentes les dates que *tu* manipules sous la formes
US,
car le VBA ne "parle" que l'anglais... ;-)
Donc, ton code devient :
If DCount("*", "Table1", "DateX =" & Format(Me.Text1.Value,
"#mm-dd-yyyy#") > 0 Then
MsgBox "La date existe déjà dans la table"
End if
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
A COSTA wrote:
> Bonjour et merci
> J'ai cangé les noms des champs mias c'est le meme.
> Si la date introduite existe dans la table, je n'ai pas le message.
> Si je change ...Table1", "MonChamp =" & Me.Text1.Value... par
> .....Table1", "MonChamp <=" .... je continue sans le message.
> .....Table1", "MonChamp >=" .... j'ai le message, si la date
> introduite et egale ou inferieure aus dates de la table.
> Dans ce cas, si la date plus petite de la table est p. ex. 1/1/1980
> et je mets 1/1/1979 j'ai aussi le message parce que c'est logique
> selon la formule mais elle n'existe pas dans la table.
> C'est la mom probleme. Je voudrais avoir un message d'avertissement
> si la date introduite, plus petite ou plus grande que toutes les
> dates de la table. Merci encore une fois.
> A. Costa
>
> "3stone" a écrit :
>
>> Salut,
>>
>> A COSTA wrote:
>>> Bonjour,
>>> J'ai une table avec un champ date. Table1
>>> J'ai un formulaire avec une Text1 ou je veux introduire une date (p.
>>> ex. aujourd'hui).
>>>
>>> J'aimerais avoir un message si la date introduite existe dans la
>>> table1.
>>>
>>> J'ai essayé :
>>>
>>> Private Sub Text1_BeforeUpdate(Cancel As Integer)
>>> If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
>>> MsgBox "La date existe déjà dans la table"
>>> End if
>>>
>>> Mais, .. ça ne fonctionne pas.
>>> Pourrais vous m'aider ?
>>
>>
>> "Date" est le nom d'une fonction d'Access et ne peux pas être
>> utilisée comme nom de champ... comme toutes les autres fonctions
>> d'ailleurs
>> http://support.microsoft.com/kb/286335/fr?spid%09&sida8
>>
>> "Date" renvoie donc la date du jour, tu compares Text1 à cette date
>> et, au mieux - si cela fonctionne, tu obtien uniquement ceux du
>> jour...
>>
>> Pour contourner, tu peux essayer:
>>
>> If DCount("*", "Table1", "[Date] =" & Me.Text1.Value) > 0 Then
>> MsgBox "La date existe déjà dans la table"
>> End if
>>
>> mais il est de toute façon conseillé d'utiliser des noms de champ
>> "parlant" comme DateAchat, DateVente, DateNaissance qui te parlera
>> encore
>> lorsque tu regarderas ton code dans un an ou deux ;-)
>>
>> --
>> A+
>> Pierre (3stone) Access MVP
>> Perso: http://www.3stone.be/
>> MPFA: http://www.mpfa.info/ (infos générales)
Bonjour,
Merci beaucoup pour votre aide.
Si c'est pas demander de trop, comment dois je changer la formule pour
permetre d'avoir le message si la date introduite n'existe pas dans la
table
mais est comprise entre la date la plus petite et la plus elevée de la
table.
Merci d'avance
A. Costa
"3stone" a écrit :Salut,
Seconde étape...
Il faut que tu présentes les dates que *tu* manipules sous la formes
US,
car le VBA ne "parle" que l'anglais... ;-)
Donc, ton code devient :
If DCount("*", "Table1", "DateX =" & Format(Me.Text1.Value,
"#mm-dd-yyyy#") > 0 Then
MsgBox "La date existe déjà dans la table"
End if
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
A COSTA wrote:
> Bonjour et merci
> J'ai cangé les noms des champs mias c'est le meme.
> Si la date introduite existe dans la table, je n'ai pas le message.
> Si je change ...Table1", "MonChamp =" & Me.Text1.Value... par
> .....Table1", "MonChamp <=" .... je continue sans le message.
> .....Table1", "MonChamp >=" .... j'ai le message, si la date
> introduite et egale ou inferieure aus dates de la table.
> Dans ce cas, si la date plus petite de la table est p. ex. 1/1/1980
> et je mets 1/1/1979 j'ai aussi le message parce que c'est logique
> selon la formule mais elle n'existe pas dans la table.
> C'est la mom probleme. Je voudrais avoir un message d'avertissement
> si la date introduite, plus petite ou plus grande que toutes les
> dates de la table. Merci encore une fois.
> A. Costa
>
> "3stone" a écrit :
>
>> Salut,
>>
>> A COSTA wrote:
>>> Bonjour,
>>> J'ai une table avec un champ date. Table1
>>> J'ai un formulaire avec une Text1 ou je veux introduire une date (p.
>>> ex. aujourd'hui).
>>>
>>> J'aimerais avoir un message si la date introduite existe dans la
>>> table1.
>>>
>>> J'ai essayé :
>>>
>>> Private Sub Text1_BeforeUpdate(Cancel As Integer)
>>> If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
>>> MsgBox "La date existe déjà dans la table"
>>> End if
>>>
>>> Mais, .. ça ne fonctionne pas.
>>> Pourrais vous m'aider ?
>>
>>
>> "Date" est le nom d'une fonction d'Access et ne peux pas être
>> utilisée comme nom de champ... comme toutes les autres fonctions
>> d'ailleurs
>> http://support.microsoft.com/kb/286335/fr?spid%09&sida8
>>
>> "Date" renvoie donc la date du jour, tu compares Text1 à cette date
>> et, au mieux - si cela fonctionne, tu obtien uniquement ceux du
>> jour...
>>
>> Pour contourner, tu peux essayer:
>>
>> If DCount("*", "Table1", "[Date] =" & Me.Text1.Value) > 0 Then
>> MsgBox "La date existe déjà dans la table"
>> End if
>>
>> mais il est de toute façon conseillé d'utiliser des noms de champ
>> "parlant" comme DateAchat, DateVente, DateNaissance qui te parlera
>> encore
>> lorsque tu regarderas ton code dans un an ou deux ;-)
>>
>> --
>> A+
>> Pierre (3stone) Access MVP
>> Perso: http://www.3stone.be/
>> MPFA: http://www.mpfa.info/ (infos générales)
Bonjour,
Merci beaucoup pour votre aide.
Si c'est pas demander de trop, comment dois je changer la formule pour
permetre d'avoir le message si la date introduite n'existe pas dans
la table
mais est comprise entre la date la plus petite et la plus elevée de
la table.
Bonjour,
Merci beaucoup pour votre aide.
Si c'est pas demander de trop, comment dois je changer la formule pour
permetre d'avoir le message si la date introduite n'existe pas dans
la table
mais est comprise entre la date la plus petite et la plus elevée de
la table.
Bonjour,
Merci beaucoup pour votre aide.
Si c'est pas demander de trop, comment dois je changer la formule pour
permetre d'avoir le message si la date introduite n'existe pas dans
la table
mais est comprise entre la date la plus petite et la plus elevée de
la table.
Salut,
A COSTA wrote:
> Bonjour,
> Merci beaucoup pour votre aide.
> Si c'est pas demander de trop, comment dois je changer la formule pour
> permetre d'avoir le message si la date introduite n'existe pas dans
> la table
> mais est comprise entre la date la plus petite et la plus elevée de
> la table.
Il faut alors imbriquer 3 fonctions de domaine... ce qui risque
de devenir un peu lent si la table est importante, surtout si la base
est utilisée en réseau...
d étant la date a vérifier:
If (d < DMax("LaDate", "LaTable")) _
And (d > DMin("LaDate", "LaTable")) _
And IsNull(DCount("*", "LaTable", "[LaDate]=" & Format(d, "#mm-dd-yyyy#"))) Then
' c'est bon
else
pas bon
end if
Sinon, comme le dit Blaise, il vaudrait mieux utiliser une requête.
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Salut,
A COSTA wrote:
> Bonjour,
> Merci beaucoup pour votre aide.
> Si c'est pas demander de trop, comment dois je changer la formule pour
> permetre d'avoir le message si la date introduite n'existe pas dans
> la table
> mais est comprise entre la date la plus petite et la plus elevée de
> la table.
Il faut alors imbriquer 3 fonctions de domaine... ce qui risque
de devenir un peu lent si la table est importante, surtout si la base
est utilisée en réseau...
d étant la date a vérifier:
If (d < DMax("LaDate", "LaTable")) _
And (d > DMin("LaDate", "LaTable")) _
And IsNull(DCount("*", "LaTable", "[LaDate]=" & Format(d, "#mm-dd-yyyy#"))) Then
' c'est bon
else
pas bon
end if
Sinon, comme le dit Blaise, il vaudrait mieux utiliser une requête.
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Salut,
A COSTA wrote:
> Bonjour,
> Merci beaucoup pour votre aide.
> Si c'est pas demander de trop, comment dois je changer la formule pour
> permetre d'avoir le message si la date introduite n'existe pas dans
> la table
> mais est comprise entre la date la plus petite et la plus elevée de
> la table.
Il faut alors imbriquer 3 fonctions de domaine... ce qui risque
de devenir un peu lent si la table est importante, surtout si la base
est utilisée en réseau...
d étant la date a vérifier:
If (d < DMax("LaDate", "LaTable")) _
And (d > DMin("LaDate", "LaTable")) _
And IsNull(DCount("*", "LaTable", "[LaDate]=" & Format(d, "#mm-dd-yyyy#"))) Then
' c'est bon
else
pas bon
end if
Sinon, comme le dit Blaise, il vaudrait mieux utiliser une requête.
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Bonjour,
Jâai une table avec un champ date. Table1
Jâai un formulaire avec une Text1 ou je veux introduire une dat e (p. ex.
aujourd'hui).
Jâaimerais avoir un message si la date introduite existe dans l a table1.
Jâai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, â¦. ça ne fonctionne pas.
Pourrais vous mâaider ?
Merci dâavance
A. Costa
Bonjour,
Jâai une table avec un champ date. Table1
Jâai un formulaire avec une Text1 ou je veux introduire une dat e (p. ex.
aujourd'hui).
Jâaimerais avoir un message si la date introduite existe dans l a table1.
Jâai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, â¦. ça ne fonctionne pas.
Pourrais vous mâaider ?
Merci dâavance
A. Costa
Bonjour,
Jâai une table avec un champ date. Table1
Jâai un formulaire avec une Text1 ou je veux introduire une dat e (p. ex.
aujourd'hui).
Jâaimerais avoir un message si la date introduite existe dans l a table1.
Jâai essayé :
Private Sub Text1_BeforeUpdate(Cancel As Integer)
If DCount("*", "Table1", "Date =" & Me.Text1.Value) > 0 Then
MsgBox "La date existe déjà dans la table"
End if
Mais, â¦. ça ne fonctionne pas.
Pourrais vous mâaider ?
Merci dâavance
A. Costa