Discussion :

[Kelly182]

Salut,

J'ai bien vu la FAQ et les autres soluces du forum, et j'ai faitce qui me parrait etre bon, a savoir j'ai un form A et B. Sur le form A quand je clique sur un bouton, je souhaite qu'il ouvre le form B mais sur le record correspondant aux données du form A. Si sur le form A la valeur est 32 je souhaite qu'il ouvre le form B sur 32.

Voici donc mon code:

Code :

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

1
2
3
4
5
6
7
Private Sub Cmd_voir_Click()
 
ouverture = devis![CODEDEVIS]
 
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "F_CE", , , Forms![F_CE].[DEVIS.CODEDEVIS] = ouverture, acFormEdit
end sub

ben ca marche pas!! si vous pouviez m'éclairez, en fait je pense que

[Sethouille]

Ne ferme pas ton premier formulaire, pour qu'access retrouve la valeur il faut que ton formulaire soit toujours ouvert.

retire ça :

Code :

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

DoCmd.Close acForm, Me.Name

[Kelly182]

J'ai oublié de dire mais j'ai un message d'erreur 91 qui apparait, et quand je debug 'ouverture' possede bien la bonne valeur, je pensais qu'en l'affectant avant il gardait la valeur.
J'ai mis la fermeture a la fin du code, ca ouvre le formulaire, mais ca me positionne pas la ou je veux.
merci pour la reponse

[Sethouille]

Je sais pas lequel c'est le message d'erreur 91
Sinon, si tu met ton close aprés l'ouverture de ton formulaire, il va te fermer le nouveau.
Ensuite, tu as la bonne valeur donc ?
Il te suffit de gerer les autres valeurs c'est bien ça ?

[Kelly182]

en fait le form B s'ouvre mais pas sur le recordset que je souhaite!
d'ou mon probleme

edit: erreur '91':

Variable objet ou variable de bloc with non definie

[tomtree]

Bonjour,

As tu un champ unique qui te permet de faire la liaison entre les deux formulaires? ( un identifiant par exemple). Si c'est le cas il faut que tu remplace

Code :

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

DoCmd.OpenForm "F_CE", , , Forms![F_CE].[DEVIS.CODEDEVIS] = ouverture, acFormEdit

par

Code :

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

1
2
3
4
Dim stLinkCriteria As String
    stDocName = "F_CE"
    stLinkCriteria = "[Identifiant]=" & "'" & Me![Identifiant] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

++

[tomtree]

J'ai oublié dans le code au début

Code :

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

Dim stDocName as string

[Kelly182]

Ah! marche pas!!

en utilisant ce code:

Code :

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

1
2
3
4
5
6
7
8
Dim stDocName As String
Dim stLinkCriteria As String
ouverture = devis![NUMDEVIS]
 
    stDocName = "F_CE"
    stLinkCriteria = "[DEVIS.NUMDEVIS]=" & "'" & ouverture & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

j'ai mis 'ouverture' parce que sinon il ne trouvais le '[NUMDEVIS]

et ben ca m'ouvre l'autre form mais toujours pas sur l'enregistrement que je veux! Il ouvre sur le premier enregistrement!
si vous aviez d'autres idees?

[Sethouille]

Si tu recupere la donnée dans ton code.
Moi je fais comme cela :

Dans le formulaire formConsult:

Code :

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

DoCmd.OpenForm "formModifBis"

Et dans le fromModifBis:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Open(Cancel As Integer)
 
    Dim vRs As Recordset
 
            Set vRs = CurrentDb.OpenRecordset("Select * from PosteTechnique where pTNom = '" & _
                Forms![formConsult]![lstVisu] & "'")
 
End Sub

Par contre, cela implique que ton formulaire sera toujours ouvert grace à l'autre.

[tomtree]

Ton identifiant "[DEVIS.NUMDEVIS]" est de quel type? (numérique ou alpha-numérique?).