[VBA-A] liste entre 2 date

bonjour, je travais sous access 2002
j'essai de faire un linsting par rapport a 2 date avec un calendrier, mais j'ai un bug quand je clic sur afficher il me souligne une fonction je ne conmprend pas pourkoi
quel qu'un peut m'aider

voila le code et il me met "erreur de compilation "Sub ou fonctin non définie"
en surlignant DateAng
je pige pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub AFFICHER_Click() On Error GoTo Err_AFFICHER_Click Dim SousFormulaire As String Dim Critère As String SousFormulaire = "sf_reception" If IsNull(DateDébut) Or IsNull(DateFin) Then MsgBox "Veuilliez sélectionner deux dates" Else If DateFin < DateDébut Then MsgBox "la deuxième date doit etre posterieur à la première" Critère = "[DateRéception]>=" & "#" & DateAng(Me![DateDébut]) & _ "#" & " AND " & "[DateRéception]<=" & _ "#" & DateAng(Me![DateFin]) & "#" DoCmd.OpenForm SousFormulaire, , , Critère, , acDialog End If End If Exit_AFFICHER_Click: Exit Sub Err_AFFICHER_Click MsxBox Err.Description Resume Exit_AFFICHER_Click End Sub

---

merci

c'est quoi DateAng ?

Citation:

---

Envoyé par bhaal76

c'est quoi DateAng ?

---

tres interessant ta théroie
j'ai recopier ce code dans le livre d'exercice
et c'est bien DateAng qui est note je ne sais pas ce que c'est nom plusn c'est pour ca que je demande a quel qu'un qui pourrai me remplacer cette fonction par une qui marche

merci

Une au hasard ?
Une qui fait quoi ?
:koi:

soit tu peux récupéré deux date via des DTpiker ou monthview ou simplement déclarer 2 date début et fin,

soit tu veux récupéré des dates contenu dans la base de donnée, et la je ne peux rien pour toi ... :?

le focntionnemen du code
selectionnent 2 date dans un calendrier
ler afficher dans datedebut et fin
et le bouton afficher permet d'ouvir le formulaire
sf_reception
et d'afficher les date contenu dans
DateRéception
entre les deux date selectionner

voila a quoi il sert
maintenant le code
Dateang me fait tou bloquer

qui a la solution
merci

d'après ton code, tu connais a l'avance la date de début et la date de fin, puisque tu les testes

Code:

---

If DateFin < DateDébut Then

---

je ne connais pas assez les bases de données, mais de toute évidence, DateAng ne devrai être qu'une fonction de mise en forme, dans ton cas, peut-être pas utile.

Que se passe t'il si tu mets directement les 2 dates ?

edit
J'entend par là :

Code:

---

1 2	Critère = "[DateRéception]>=" & "#" & DateDébut & "#" & _ " AND " & "[DateRéception]<=" & "#" & DateFin & "#"

---

et dans le bouquin il n'y avais pas la définition de dateAng...? , moi je dirai que c'est une fonction de convertion date française vers date anglaise ..? elle doit y être dans le bouquin ... sinon tu peu en faire une avec les fonctions de date Year, Month et Day ... ( ou même format..)

Code:

---

1 2 3 4

Function DateAng(d as date ) as string DateAng = Month(d) & "/" & Day(d) &"/" & Year(d) end function

---

Alors ... et d'instinct ! (je n'ai pas le livre où tu as copié) :

A mon avis dateang est une fonction utilisateur (que tu n'as pas insérée dans ton code) et dont le propos serait (j'en mets ma main au feu) de transformer en format anglais la date Datedebut ....

Comme j'en suis à peu près certain, je t'invite à regarder, dans l'aide en ligne, à quoi sert la fonction Format et à l'utiliser comme tu l'entends, directement, dans ta requête !!!;)

edit Tiens !
Salut Bbil (les grands esprits malins se rejoignent, apparemment !:lol: )

edit
J'entend par là :

Code:

---

Critère = "[DateRéception]>=" & "#" &DateDébut & "#" & " AND " & "[DateRéception]<=" & "#" & DateFin & "#"

---

merci pour ta solution elle ma bien aider
ca marche a peut pres
j'ai tout reffet a ma facon et avec ta ligne et c'est ok

merci beaucoup