Discussion :

[soprano6217]

Bonjour,

Dans un formulaire, j'ai une liste déroulante. L'utlisateur choisit une valeur pour cette liste déroulante.Quand il clique sur un bouton de ce formulaire, en fonction de la valeur de cette liste, cette action doit ouvrir tel ou tel formulaire.

Voici mon code

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
Module1.GetNumProdCrea
Dim IdProduct As String
IdProduct = Module1.NumProd
If (IsNull(Me.TypeL)) Then
    MsgBox ("Veuillez définir le type laitier avant d'accèder aux quotas vente directe")
Else
    'MsgBox (Me.TypeL)
    If (Me.TypeL = "Vaches") Then
        MsgBox (IdProduct)
        DoCmd.OpenForm "ListeQuoVac", acNormal, , "VenteDirecte.numProducteur =" & IdProduct
    Else
        DoCmd.OpenForm "ListeQuoChev", acNormal, , "cstr(VenteDirecte.numProducteur) =" & IdProduct
 
    End If         
 
End If

TypeL représente la valeur de ma liste déroulante. Dans ma commande d'ouverture de formulaire, je souhaite appliquer un filtre sur le champ numProducteur de la table VenteDirecte en le comparant avec la variable IdProduct.

Ce script ne fonctionne pas. Avez vous une idée. D'avance, merci.

[mcfly37]

Bonjour à toi, pourrais tu être plus précis quand à l'erreur du script? cela te renvoie-t-il un message d'erreur (si oui lequel)? Le formulaire ne s'ouvre pas (ou pas le bon formulaire)? ou il s'ouvre sur le mauvais enregistrement?

Cordialement

mcfly

[soprano6217]

erreur d'execution 3464
Type de donnée incompatible dans l'expression du critère

merci

[mcfly37]

Ok, de quel type de donnée est le champ IDProduct? et de quel type est le champ numProducteur? car si c'est tout les deux des champs textes, alors il faut mettre des guillemets :

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
Module1.GetNumProdCrea
Dim IdProduct As String
IdProduct = Module1.NumProd
If (IsNull(Me.TypeL)) Then
    MsgBox ("Veuillez définir le type laitier avant d'accèder aux quotas vente directe")
Else
    'MsgBox (Me.TypeL)
    If (Me.TypeL = "Vaches") Then
        MsgBox (IdProduct)
        DoCmd.OpenForm "ListeQuoVac", acNormal, , "VenteDirecte.numProducteur =""" & IdProduct & """"
    Else
        DoCmd.OpenForm "ListeQuoChev", acNormal, , "cstr(VenteDirecte.numProducteur) =""" & IdProduct & """"
 
    End If         
 
End If

edit : je vien de regarder le début du code et effectivement IdProduct est un string^^ donc ca doit surement être ca, les guillements

[soprano6217]

ces deux données sont au format texte. Où dois je alors mettre des guillemets?

dois je mettre un cstr comme mon else où la solution du if est elle bonne?

[mcfly37]

Pas besoin de cstr, voila ou sont les guillemets :

Code :

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

DoCmd.OpenForm "ListeQuoVac", acNormal, , "VenteDirecte.numProducteur =""" & IdProduct & """"

[soprano6217]

ok
merci beaucoup ça marche nickel

[mcfly37]

De rien^^

N'oublie pas de mettre le tag [Resolu] sur ton sujet

Cordialement

Mcfly