Création d'une variable pour recuperer la valeur d'un champ

Bonjour,

J'éspère poster au bon endroit.
Voici mon souci : je ne comprend pas parfaitement la notion de variable et je souhaite effectuer l'opération suivante :

Je dispose de deux tables qui me permettent de gerer des bons de livraisons.

T_client T_bl
---------- ----------
idclient idbl
nom idclient
...


Sur mon formulaire F_client, je souhaite ajouter un bouton Bon de Livraison qui ouvre le formulaire F_bl en ayant transposé la valeur "idclient"

Pourriez-vous m'aider s'il vous plait ?

Bonjour,

Il faut mettre le code suivant sur click du bouton pour ouvrir votre formulaire :

Si IdClient est de type texte :

Code:

---

DoCmd.OpenForm "F_bl", , , "IdClient='" & Me.IdClient & "'"

---

Si IdClient est un numérique

Code:

---

DoCmd.OpenForm "F_bl", , , "IdClient=" & Me.IdClient

---

Merci pour ta réponse Access Newbie
J'ai testé ton code : il ouvre bien le formulaire BL avec l'idclient chargé. Mais il affiche des BL déjà crée et qui portent le même idclient.
Mais en fait et je me suis peut être mal exprimé je souhaite creer un nouveau BL en recuperant la valeur idclient presente sur mon form Client.

Encore merci pour ta réponse

Si le formulaire f_bl ne peut etre ouvert que via le bouton créé précédemment, tu peux faire

Code:

---

DoCmd.GoToRecord , , acNewRec

---

A l'ouverture de f_bl.

Désolé toujours pas de résultat.
Le formulaire me permet dans ce cas d'jouter un nouvel enregistrement et le champs icclient doit être renseigné manuellement.

Une piste ?:(

Solution B :

Sur clic du bouton :

Code:

---

DoCmd.OpenForm "ttt", , , , , , "IdClient='" & Me.IdClient & "'"

---

Sur ouverture du form :

Code:

---

1 2 3 4 5 6

If Not IsNull(Me.OpenArgs) Then Me.Filter = Me.OpenArgs Me.FilterOn = True DoCmd.GoToRecord , , acNewRec Me.idClient = Right(Me.OpenArgs, Len(Me.OpenArgs) - InStr(Me.OpenArgs, "=")) End If

---

Merci a toi d'avoir pris du temps pour m'aider.
Ca fonctionne comme je voulais maintenant.
;)

de rien ;)

N 'oublie pas le tag "résolu"