[access] données copiées entre 2 formulaires Résolu/Fermé

Question

Bonjour,
je crée un base sous access, j'ai un formulaire "clients" et un formulaire "animaux", chaque client peut avoir plusieurs animaux. Les deux formulaires sont liées par le champ "N° client". Je voudrais que sur un bouton click "ajouteranimal" mon formulaire "animaux" s'ouvre sur un formulaire vierge mais en inscrivant automatiquement le "N° client" correspondant au "N° client" du formulaire où je me trouvais lors du click.
Merci d'avance.

hervelot · Answer

Bonjour,

Pour ouvrir ton formulaire tu utilises une macro ou du code VBA ??

SAYLA · Answer

J'utilise un code VBA mais je peux une macro si il faut, je suis débutante, c'est ma première base.

SAYLA · Answer

Voilà le code que j'ai mis, mais je ne peux que ouvrir un nouveau formulaire, ça ne me recopie pas le "N° client" automatiquement :Private Sub ajouteranimaux_Click()
On Error GoTo Err_ajouteranimaux_Click

    Dim stDocName As String
    

    stDocName = "animaux"
    DoCmd.OpenForm stDocName, , , , acFormAdd, acDialog, "GoToNew"

Exit_ajouteranimaux_Click:
    Exit Sub

Err_ajouteranimaux_Click:
    MsgBox Err.Description
    Resume Exit_ajouteranimaux_Click
    
End Sub

hervelot · Answer

Tant mieux je préfère le VBA

Sur l'évènement "Sur click" de ton bouton il faut ouvrir ton formulaire puis renseigner la valeur n° client

Docmd.openform "animaux"
[N° client] = forms![clients]![N° client]

Et voila c'est tout

SAYLA · Answer

J'avais déjà essayé, et je viens de reessayer, ça marche pas, le champ "N° client" reste vierge, par contre il est construit sous forme de liste déroulante qui m'affiche le nom du client, ça vient peut-être de là ?

SAYLA · Answer

Pour moi, "GoToNew" était pour aller à un nouvel enregistrement, mais je fais un peu au hasard ?????

hervelot · Answer

En fait si tu as mis dans ton code DoCmd.OpenForm stDocName, , , , acFormAdd, acDialog, "GoToNew" [N° client] = forms![clients]![N° client] Ca ne peut pas marcher car l'option acDialog bloque l'éxécution de la commande suivante [N° client] = forms![clients]![N° client] Pour que ca fonctionne enlève acDialog

SAYLA · Answer

Il me répond "impossible d'attribuer une valeur à cet objet"

hervelot · Answer

Cela m'étonne mais essai ca pour voir

forms![animaux]![N° client] = forms![clients]![N° client]

SAYLA · Answer

OK là ça marche, merci pour ton aide, c'est sympa.
Bonne journée

[access] données copiées entre 2 formulaires

10 réponses

Discussions similaires