Discussion :

[zeloutre]

Bonjour tout le monde !
je galère un peu dans du vba surement très simple pour certains...
en quelques mots
j'ai 6 listes déroulantes, les 3 premières selectionnent le jour, le mois et l'année de depart et les 3 suivantes permettent de selectionner la fin

dans la requete sur laquelle je veux faire mon formulaire de filtre, j'ai un chanp date_suiv (date du debut), et un champ datefinR (date de fin)

donc je veux que mon sous-formulaire me ressorte tous les enregistrements situés entre la date de début, et la date de fin selectionnée...

J'ai mis ce code sur un bouton "valider" , mais il me donne toujours une erreur 424, "objet requis" ... quelqu'un peut-il me dire ou le bat blesse (car il blesse beaucoup là )

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
29
Private Sub valid_Click()
 
Dim sql As String
Dim A As String
Dim B As String
Dim C As String
Dim D As String
Dim E As String
Dim F As String
Dim datedeb As String
Dim datefin As String
 
A = jourdebut_liste.Value
B = moisdebut_liste.Value
C = anneedebut_liste.Value
 
D = jourfin_liste.Value
E = moisfin_liste.Value
F = anneefin_liste.Value
 
datedeb = "A" & "/" & "B" & "/" & "C"
datefin = "D" & "/" & "E" & "/" & "F"
 
sql = "SELECT RECAP_CA.*, RECAP_CA.date_suiv, RECAP_CA.datefinR"
sql = sql & " FROM RECAP_CA WHERE (((RECAP_CA.date_suiv)= " & datedeb & ") AND ((RECAP_CA.datefinR)= " & datefin & "));"
 
 
A_form_total.A_RECAP_CA2_sous_formulaire.Form.RecordSource = sql
End Sub

merci de votre aide !

[FreeAccess]

Bonjour,

Je trouve ta solution un peu compliquée......

Sur ton formulaire deux champs pour la date de début et la date de fin.(Format = Date)
Un bouton pour lancer une requête avec la clause Between avec tes 2 champs.

Fais quelques recherches dans les anciens posts, car c'est un sujet relativement courant....Bonne lecture...

[zeloutre]

je sais que c'est un peu compliqué... mais on me demande d'avoir des listes déroulante pour selectionner le jour, le mois, etc...
c'est pour ça que je ne m'en sors pas...
j'avoue que j'ai dejà cherché partout, mais suis pas assez douée pour adapter le vba des autres à mon probleme précis...
tant pis pour moi, je trouverai bien un peu d'aide ailleurs.

merci d'avoir répondu, FreeAccess!!

[zeloutre]

bon, mon bout de code allé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
Private Sub valid_Click()
 
Dim sql As String
Dim datedeb As Date
Dim datefi As Date
 
 
datedeb = jourdebut_liste.Value & "/" & moisdebut_liste.Value & "/" & anneedebut_liste.Value
datefi = jourfin_liste.Value & "/" & moisfin_liste.Value & "/" & anneefin_liste.Value
 
sql = "SELECT RECAP_CA.*, RECAP_CA.date_suiv, RECAP_CA.datefinR "
sql = sql & "FROM RECAP_CA"
sql = sql & "WHERE (((RECAP_CA.date_suiv)= #" & datedeb & "#) AND ((RECAP_CA.datefinR)= #" & datefi & "#));"
 
MsgBox "affaires entre " & datedeb & "  et  " & datefi
 
Forms.A_form_total.A_RECAP_CA2_sous_formulaire.Form.RecordSource = sql
 
End Sub

ça marche jusquà la msgbox, mais ensuite, le probleme vient du recordsource...
j'ai essayé toutes les syntaxe possibles, y compris celle de la FAQ :

Code :

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

Forms![NomFormulaire]![NomSousFormulaire].Form.RecordSource = "SELECT ...."

mais rien n'y fait, soit il ne trouve pas l'objet (424) soit, si je met des crochets, il me dit qu'il ne reconnait pas le champ. c'est désespérant...
any idea, somebody ?

[FreeAccess]

Re,
et comme cela....

Code :

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

Forms![NomFormulaire]![NomSousFormulaire].Form.RecordSource = sql

[EDIT]..Petite erreur de syntaxe...

[zeloutre]

je viens d'essayer ce que tu suggères :

Code :

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

Forms![A_form_total]![A_RECAP_CA2_sous_formulaire].RecordSource = sql

ça me donne ce message :
erreur d'execution 2465,
"ne trouve pas le champ 'A_RECAP_CA2_sous_formulaire' auquel il est fait référence dans votre expression"...

[zeloutre]

meme

Code :

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

Forms![A_form_total]![A_RECAP_CA2_sous_formulaire].Form.RecordSource = sql

ne fonctionne pas