Discussion :

[Salsaboy60]

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

[Salsaboy60]

finalement trouvé:

Code :

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

1
2
3
4
5
6
7
8
9
10
If Not IsNull(Me.OpenArgs) Then
        strRecherche = Me.OpenArgs
        strRecherche = Val(strRecherche)
        Dim RS As DAO.Recordset
        Set RS = Me.RecordsetClone
        RS.FindFirst "IdProduit = " & strRecherche
        If Not RS.NoMatch Then
            Me.Bookmark = RS.Bookmark
        End If
    End If

Merci

[loufab]

Bonjour,

Plus simplement,

Code :

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

1
2
3
4
 
If Not IsNull(Me.OpenArgs) Then
        me.recordset.findfirst "IdProduit = " & strRecherche  
endif

ou encore :

Code :

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

1
2
3
 
  DoCmd.OpenForm "frmProduitsChangeCode", acNormal
  forms("frmProduitsChangeCode").recordset.findfirst "IdProduit = " & Me.CodeFournisseur.Value

Cordialement,

[Salsaboy60]

Merci pour ta reponse. Marche impec, sauf que j'ai le même problème que avec l'autre code (voir autre post).