Discussion :

[athenasst]

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 :

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
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

[bhaal76]

c'est quoi DateAng ?

[athenasst]

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

[jmfmarques]

Une au hasard ?
Une qui fait quoi ?

[bhaal76]

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 ...

[athenasst]

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

[bhaal76]

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 :

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

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 :

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

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

[SfJ5Rpw8]

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 :

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

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

[jmfmarques]

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 ! )

[athenasst]

edit
J'entend par là :

Code :

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

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