Discussion :

[nounous54]

Bonjour je bloque sur un problème de syntaxe je pense...

J'ai un formulaire "PRODUITS" avec une lstbox.
Quand je double clique dessus je veux ouvrir un formulaire "produit_modif" et je veux que dans le champs "REFPROD" du formulaire "produit_modif" j'affiche le numéro de de référence lié à la lstbox.
Ensuite je souhaiterais éxecuter la commande distante "Form_produit_modif.cmb_nom_prod_AfterUpdate" (dans cette public sub, j'affiche tous les enregistrements lié à la "refprod"

j'ai mis le code suivant

Code :

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

1
2
3
4
5
6
7
 
Private Sub Liste_stock_DblClick(Cancel As Integer)
    DoCmd.Minimize
    DoCmd.OpenForm "produit_modif", acNormal, , "[refpord] =" & Me.Liste_stock
    Form_produit_modif.cmb_nom_prod_AfterUpdate
    DoCmd.Close acForm, "produits"
End Sub

là ça fonctionne, me.liste_stock est bien égale au bon chiffre mais par contre dans le champ "refprod" de mon formulaire "produit_modif", la valeur n'est pas copiée, il affiche "Null"...

Je ne comprend.
J'ai un message d'erreur qui est


le code de Form_produit_modif.cmb_nom_prod_AfterUpdate est:

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
30
 
Public Sub cmb_nom_prod_AfterUpdate()
Dim qdf As DAO.QueryDef
Dim rcs As DAO.Recordset
 
 
Set qdf = CurrentDb.QueryDefs("R_produits")     'par rapport à la table produit
qdf.Parameters("Critere") = Me.refpord
Set rcs = qdf.OpenRecordset
 
Me.RefProd = rcs!RefProd
Me.txt_Nom_prod = rcs!NOM_prod
Me.cmb_FAMILLE_prod = rcs!FAMILLE
Me.txt_famille_prod = rcs!FAMILLE
Me.txt_description = rcs!DESCR_prod
Me.txt_stock_dispo = rcs!STOCK_Dipos_prod
Me.txt_SEUIL_rapro = rcs!SEUIL_prod
Me.txt_PRIX_unitaire = rcs!PRIX_prod
 
Set qdf = Nothing
 
'mettre à 1 le nombre stock à rentrer
Me.txt_stock_rentré = 1
 
Me.txt_stock_rentré.SetFocus
 
'mettre à jour le message de seuil_bas
message_seuil_bas
 
End Sub

je ne trouve pas le moyen pour que ça marche je pense que ça vient de "DoCmd.OpenForm "produit_modif", acNormal, , "[refpord] =" & Me.Liste_stock" qui ne copie pas mon chiffre dans le champ de mon autre formulaire.
Quelqu'un peut m'aider?

MErci

[nounous54]

C'est bon j'ai trouvé la solution.
Pour ceux que ça intérèsse...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Liste_stock_DblClick(Cancel As Integer)
'si le champ nom_prod est pas vide alors j'efface tous
    If Me.NOM_prod <> "" Then
        DoCmd.RunCommand acCmdUndo
    End If
 
    DoCmd.Minimize
    DoCmd.OpenForm "produit_modif"
        Forms![produit_modif]![RefProd] = Me.Liste_stock
    Form_produit_modif.cmb_nom_prod_AfterUpdate
    DoCmd.Close acForm, "produits"
End Sub

[Malick]

Merci pour le partage

Cordialement