Discussion :

[EricDgn]

Bonjour,

Les dates sont toujours délicates à traiter, pour ne pas dire tordues.
Pour le filtre, à tester:

Code :

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

        f = " AND Format(Date_trades,'mm\/yyyy') = '" & Me.Rmoisannee & "'"

cela si un Debug.Print Me.Rmoisannee affiche bien 02/2020 pour février 2020 (et pas 02-2020 ou autre chose).

Cordialement.

[charlieda]

Merci Ericdgn,

Je vais tester tout cela.

Pour le moment, tout fonctionne sans problème.

Wait and see.

Mais bon, ne pas savoir pourquoi ça bloque c'est assez casse pied donc d'un côté, si il replante ça m'arrangerait qu'il donne des indications

Merci

[hyperion13]

Salut
Ce n'est pas singulier qu'une sub() plante 1 fois tous les x fois.
Possible d'avoir une capture d'écran de ton form de recherche avec des valeurs dans les textbox et combobox ?

[charlieda]

Salut,

Merci pour ton intervention.

Voici



On dirait que de temps en temps, les fils ne se touchent pas Embêtant pour un logiciel

J'avais essayé un autre code avant celui là qui fonctionnait très bien et du jour au lendemain, il fonctionnait plus. Exactement comme celui-ci.

Donc je me dis que c'est doit être un souci de champ dans une table ou une requête mais puisque ça fonctionne.... Bref je comprends pas.

Merci

[hyperion13]

Re,
En mode formulaire svp

[charlieda]

Me disais aussi que je faisais une connerie en uploadant

[hyperion13]

Re,
La combobox SM O/N traite-t-elle la case à cocher du détail de form ?

A l'aide de la mythique bdd NorthWind et dans l'idée de ton IHM (img)
Nom des objets sont à l'identique de l'img
Source de cbodatecmde (1 seule colonne)

Code :

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

1
2
SELECT DISTINCT Format([datecmde],"mm/yyyy") AS dtecmde
FROM tbl_cmde

Source de cboproduit (2 colonnes)

Code :

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

1
2
3
SELECT idprod, nomprod
FROM tbl_produit
ORDER BY nomprod

Code du filtre

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 FilterForm()
Dim strWhere As String
If Not IsNull(Me.cbodatecmde) And Me.cbodatecmde <> "" Then
    strWhere = "AND Format([datecmde], 'mm\/yyyy')= '" & Me.cbodatecmde & "'"
End If
If Not IsNull(Me.cboproduit) And Me.cboproduit <> "" Then
    strWhere = strWhere & " AND [nomprod] = '" & Me.cboproduit.Column(1) & "'"
End If
If Me.chkstock = True Then
    strWhere = strWhere & " AND [qtestk] = True"
End If
If strWhere = "" Then
    Me.FilterOn = False
Else
    strWhere = Mid(strWhere, 5)
    Me.Filter = strWhere
    Me.FilterOn = True
End If
End Sub
Private Sub btnfiltre_Click()
FilterForm
End Sub
Private Sub btnreset_Click()
Me.FilterOn = False
Me.cbodatecmde = ""
Me.cboproduit = ""
Me.chkstock = False
End Sub

[charlieda]

Bonjour,

Tout d'abord un grand merci. Wawww

Alors OUI c'est une case à cocher dans la table.

Le formulaire est basé sur une requête qui ne sert en fait qu'à ajouter une colonne pour le format dans mm/aaaa (c'est vrai que je pourrais travaille à partir de la table)

Je vais essayer ces modifications. (pour l'instant le formulaire fonctionne sans souci.)

Merci beaucoup pour ton aide

Bonne journée