Discussion :

[herendel]

salut

voilà la partie de mon code qui pose problème (rouge)

alors Me![Date_envoi].Value est un champs du formulaire ou on rentre une date (format Date, abrégé)

[Date_envoi] est un champ de la table envoi au format date (Date, abrégé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
'cas de datte
If Not IsNull(Me![Date_envoi]) Then
  If Not IsNull(Me![labo/contact]) Then
      datte = " AND [Date_envoi] = #" & int(Me![Date_envoi].Value) & "#"
      Else
      datte = " [Date_envoi] = #" & int(Me![Date_envoi].Value) & "#"
      End If
  Else
  datte = ""
End If
 
If Not IsNull(Me![Quantite_envoyee]) Or Not IsNull(Me![labo/contact]) Or_
Not IsNull(Me![Date_envoi]) Or Not IsNull(Me![ID_sero]) Then
  SQL1 = "SELECT [Clef_envoi] FROM envoi "
  SQL1 = SQL1 & " WHERE " & labo & datte & qtt & ID
  Me!Clef_envoi.RowSourceType = "Table/Query"
  Me!Clef_envoi.RowSource = SQL1
  SQL1 = ""
End If

mon problème et que le menu déroulant me donne rien si je donne une date valide ( sans date la procédure marche)

[Faw]

Salut, pourquoi int() alors que tu travailles sur des dates?
Autrement un bon moyen de savoir où tu en es, faire un msgbox SQL1 une
fois ta chaîne constituée.

[herendel]

Le problème et que Me![Date_envoi] contient bien la bonne valeur (testé en mode débogage), c'est juste que sa coince (je pense) au niveau de l'égalité comme là:
[Date_envoi] = #" & int(Me![Date_envoi].Value) & "#"

En fait c'est une date donc il faut les # sans il y a une erreur d'incompatibilité logique, et dans la FAQ ils disent d'utiliser int() pour resortir la date d'un champ....

[LedZeppII]

Bonsoir,

As-tu essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
"[Date_envoi] = #" & Format(int(Me![Date_envoi].Value), "mm/dd/yyyy") & "#"

pour être sûr d'avoir une date au format mois/jour/année ?
A+

[Tofalu]

Pas besoin du int.

L'utilisation unique de format est suffisante

[herendel]

merci beaucoup sa marche