Discussion :

[minot83]

Bonjour

J'ai un petit problème, je pose quelques conditions à l'ouverture d'un formulaire, mais je ne parviens à injecter une valeur dans ma variable "stdepuis".

J'ai essayé en variable public, même chose.

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
Private Sub BTN_CourrierA_Entité_Click()
    Dim stDocName As String
    Dim stlinkcriteria As String
    Dim stlinkcriteria2 As String
 
    stretard = Me.ZT_Retard
    stdepuis = Me.ZT_depuis
 
    stDocName = "F_Courrier_Arrivée_Liste"
    stlinkcriteria = "[Num_Service_Gestionnaire]=" & Me![ZLD_CourrierA_Entité] & " And (Date() - [T_Courrier_Arrivee].[Date création fiche arrivée]) >= " & stretard
    stlinkcriteria2 = "[Num_Service_Gestionnaire]=" & Me![ZLD_CourrierA_Entité] & " And (Date() - [T_Courrier_Arrivee].[Date création fiche arrivée]) >= " & stretard & " And  [T_Courrier_Arrivee].[Date création fiche arrivée] >= stdepuis And SR = False And [Date expédition doc] is Null"
 
 
   If Me.Cocher_a_traiter.Value = True Then
        sttitre_etat = "Courriers reçus jusqu'au " & (Date - stretard) & ", nécessitant une réponse mais n'en ayant toujours pas"
        stcondition = stlinkcriteria2
        DoCmd.Close
        DoCmd.OpenForm stDocName, , , stlinkcriteria2
    Else
        sttitre_etat = "Courriers reçus jusqu'au " & (Date - stretard)
        stcondition = stlinkcriteria
        DoCmd.Close
        DoCmd.OpenForm stDocName, , , stlinkcriteria
    End If
End Sub

En clair, tout se passe biens, sauf lorsque je rajoute ce critère

Code :

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

And  [T_Courrier_Arrivee].[Date création fiche arrivée] >= stdepuis

Merci d'avance.

[jcdenton057]

Bonjour,

Il ne manquerait pas des guillemets :

Code :

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

And  [T_Courrier_Arrivee].[Date création fiche arrivée] >= " & stdepuis & "

[minot83]

Il ne manquerait pas des guillemets

Merci de ta réponse, je reprends la mienne, afin que ce soit un peu plus clair.

avec

Code :

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

And  [T_Courrier_Arrivee].[Date création fiche arrivée] >= " & stdepuis & "

stdepuis n'est pas appliqué.

avec

Code :

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

And  [T_Courrier_Arrivee].[Date création fiche arrivée] >= stdepuis

une textbox s'ouvre et me demande d'entrer une valeur du paramètre stdepuis, et alors ça fonctionne.

J'aimerais donc que la valeur saisie dans le contrôle du précédent formulaire soit utilisée directement à l'ouverture de mon autre formulaire.

Voilà, en espérant que cela soit un peu plus compréhensible.

Merci d'avance

[Oliv'83]

Bonjour Minot,

Et si tu utilisais un OpenArgs (http://access.developpez.com/faq/?pa...#PreremplChamp ).

Oliv'

[jcdenton057]

ah j'oubliai : si ta variable stdepuis est au format date, tu dois la mettre entre des #

Code :

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

And  [T_Courrier_Arrivee].[Date création fiche arrivée] >= #" & stdepuis & "#

[minot83]

ça va nettement mieux ainsi, merci !

Par contre, truc de fou !!! Si je mets une date commençant par un jour dans les dizaines, vingtains, ou trente, c'est bon. Si mon date choisie commence par 01 par exemple, ça considère automatiquement janvier, et pas le 1er jour du mois . Pourtant j'ai précisé Date abrégée dans la table ou le contrôle du formulaire.
Il m'inverse "dd" et "mm" dès qu'il peut !

Donc je pense qu'il faut que précise le format de ma variable date. Je teste...

[minot83]

Bonjour Minot,

Et si tu utilisais un OpenArgs (http://access.developpez.com/faq/?pa...#PreremplChamp ).

Oliv'

Salut voisin, et merci de ton intervention, je n'ai pas testé openargs, est-ce très différent de la condionwhere de la commande openform?

@+

[minot83]

C'est bon, le problème venait donc du fait que je concaténais mal, et que jet traite les date au format US, donc il fallait convertir ma variable.

Code :

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

And [T_Courrier_Arrivee].[Date création fiche arrivée] >= #" & Format(stdepuis, "mm/dd/yyyy") & "#

Merci !!!