Execution formulaire avec une variable

Bonjour, je souhaite executer un formulaire depuis un autre formulaire dont un des champs est une variable. apparemment je dois pas m'y prendre comme il faut :

T_fiche = fic1
DoCmd.Close
DoCmd.OpenForm "M_fiche", , , "fiche.identifiant=fic1", acFormEdit

Avez-vous une solution ?

C'est pas tout à fait ça effectivement,

Je te conseille ceci:

Citation:

---

Dim strfiltre as string

strfiltre ="[fic1]=" & me.fic1 (le champs de ton form relié à Table.Fic1)
DoCmd.OpenForm "M_fiche", , , strfiltre,acFormEdit

---

:wink:

Merci pour votre réponse,
quelques explications :

fic1 = T_fiche : "T_Fiche" est le champ du formulaire en cours

Par exemple si je met "PC" dans le champ, je voudrais ouvrir tous les enregistrements ayant pour "fiche.identifiant" = "PC" s'ouvre dans le formulaire "M_Fiche"

Voila, si mon explication est assez clair, voyez vous une réponse ?

Le formulaire que tu veux ouvrir c'est une feuille de données, form continu ou form unique ?

Je suis un expert sur access, ou je peut aller pour repondre a ta question ?

En fait je voulais dire que je ne suis PAS un expert sur access.

Je voudrais ajouter ceci, si je met ce code :

DoCmd.OpenForm "m_fiche", , , "fiche.identifiant='PC'", acFormEdit

l'ouverture du formulaire ce fait en fltrant uniquement les identifiant PC.

Citation:

---

Envoyé par dsj

En fait je voulais dire que je ne suis PAS un expert sur access.

Je voudrais ajouter ceci, si je met ce code :

DoCmd.OpenForm "m_fiche", , , "fiche.identifiant='PC'", acFormEdit

l'ouverture du formulaire ce fait en fltrant uniquement les identifiant PC.

---

Et bien c'est bon non là ?

Oui le code fonctionne, mais pas en tant que variable, pour l'instant le lancement du formulaire s'effectue que par le filtre PC :

DoCmd.OpenForm "m_fiche", , , "fiche.identifiant='PC'", acFormEdit

je souhaiterais pouvoir depuis le formulaire avoir une variable qui me permettrai de rentrer IMP ou PC ou PDA etc..

Merci de votre réponse car je suis coincé.

Salut,

Essaie ce code:

Code:

---

DoCmd.OpenForm "m_fiche", , , "fiche.identifiant='" & Me.T_Fiche & '", acFormEdit

---

Bonne chance,
pgz

Bonjour
Merci pour votre réponse, j'ai testé mais ça ne fonctionne toujours pas.
Voici le code :

Private Sub Ok_Click()
On Error GoTo Err_OK_Click

Dim con As DAO.Database
Dim res As DAO.Recordset

Select Case Cadre1.Value

Case Is = 1
If T_fiche <> "" Then
DoCmd.Close
DoCmd.OpenForm "m_fiche", , , "fiche.identifiant=T_Fiche", acFormEdit
End If

Case Is = 2 ....

Voila, si vous avez une idée, merci d'avance