Discussion :

[dsj]

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 ?

[Sinclar]

C'est pas tout à fait ça effectivement,

Je te conseille ceci:

Dim strfiltre as string

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

[dsj]

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 ?

[Sinclar]

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

[dsj]

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

[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.

[Tofalu]

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à ?

[dsj]

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é.

[pgz]

Salut,

Essaie ce code:

Code :

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

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

Bonne chance,
pgz

[dsj]

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