Bonsoir,

J'ai lu bcp dans le FAQ et le F1 et sur internet, mais je n'arrive pas à faire fonctionner mon open args.

Dans le formulier encodage commande, j'ouvre le formulaire modification produits si le codebarre n'est pas encore renseigné.

Donc le code dans document commande :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
If Me.Codebarre_EAN_13 = "" Or IsNull(Me.Codebarre_EAN_13) Then
  DoCmd.OpenForm "frmProduitsChangeCode", acNormal, , , , , Me.CodeFournisseur.Value
  End If
Et dans le document produits ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 If Not IsNull(Me.OpenArgs) Then
        strRecherche = Me.OpenArgs
        DoCmd.GoToControl "CodeFournisseur"
        DoCmd.FindRecord "strRecherche", , False, , True
    End If
j'ai essayé avec

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Me.CodeFournisseur = Me.OpenArgs
mais je reçoit une message erreur: impossible d'attribuer une valeur à cette opject.

Quand j'écris :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'DoCmd.GoToControl "CodeFournisseur"
        Me.CodeFournisseur = Me.OpenArgs
Le control CodeFournisseur prend bien la valeur passer par OpenArgs, mais il est toujours positionner dans le premier enregistrement, au lieu d'avoir ouvert la 48eme dans ce cas précis.

J'ai essayé d'attribuer la valeur 48 à Me.IdProduits, mais également une erreur.

Quelqu'un peux me mettre sur le chemin svp??

Hans