Discussion :

[minou7590]

bonjour,
en créant ma base de données je suis bloqué sur comment ouvrir un formulaire sur un enregistrement spécifique à partir d'un autre formulaire j'arrive pas a trouver le code

[james68]

fonction filtre a l'ouverture de ton formulaire

Code :

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

1
2
3
FiltreAlerteRequisStock = "[MAT_MAG S] <= [MAT_Q_LIMITE] "
Me.Filter = FiltreAlerteRequisStock
Me.FilterOn = True

ou

Code :

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

DoCmd.OpenForm "NomDuFormulaire", acNormal, , "[ChampduFrm] = " & condition & "" 'si variable externe

ou

Code :

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

DoCmd.OpenForm "NomDuFormulaire", acNormal, , "[ChampduFrm] = "TOTO""

' si on sait exactement ce qu'on cherche
ou encore
fonction me.seltop
++

[minou7590]

Merci beaucoup pour votre réponse j'ai essayé avec la condition mais ça marche pas

Code :

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

1
2
3
Private Sub N°Bon_DblClick(Cancel As Integer)
DoCmd.OpenForm "frm_bon_de_livraison", , "[N°Bon]=&[Forms]![Frm_bon_de_livraison]![N°bon] "
End Sub

[james68]

Code :

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

DoCmd.OpenForm "frmbondelivraison", acNormal, , "[NumBon]=[Forms]![Frmprincipal]![NumerodebonFrmPrincipal] "

[tee_grandbois]

bonsoir minou7590 et james68
c'est plutôt :

Code :

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

DoCmd.OpenForm "frmbondelivraison", acNormal, , "[NumBon]=" & [Forms]![Frmprincipal]![NumerodebonFrmPrincipal]

donc

Code :

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

DoCmd.OpenForm "frm_bon_de_livraison", acNormal, , "[N°Bon]=" & [Forms]![Frm_bon_de_livraison]![N°bon]

[james68]

Bonjour Tee_grandbois
il y a une chose que je ne m'explique pas

Code :

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

DoCmd.OpenForm "frm_bon_de_livraison", acNormal, , "[N°Bon]=" & [Forms]![Frm_bon_de_livraison]![N°bon]

On ne peux pas donner l'ordre d'ouverture d'un formulaire "frm_bon_de_livraison" avec comme critère "[N°Bon]=" & [Forms]![Frm_bon_de_livraison]![N°bon] une variable qui est dans ce même formulaire.
L'idée de départ était de venir d'un formulaire Lambda ou est stocké une variable "Numero de commande" puis d'ouvrir via un bouton le Frm_bon_de_livraison caler sur la variable N°bon.
D'un autre coté nous n'avons ni l'un ni l'autre les fonctionnement complet du process.
Amicalement

[minou7590]

bonjour
voila ma base

[hyperion13]

Quels sont les form concernés par votre manip ?

[james68]

meme question que hyperion13...

[minou7590]

frm_Liste_BL et Frm_Bon_de_Livraison

[james68]

La table Tbl_Sortie est vide est ce normal ??
C'est la source du frm_Liste_BL.

[james68]

D'autre part , sois PLUS précis dans ta demande ..!!..

[minou7590]

voila je l'ai rempli
GS - Copie.rar

[hyperion13]

Code :

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

1
2
3
Private Sub NumBon_DblClick(Cancel As Integer)
DoCmd.OpenForm "frm_bon_de_livraison", acNormal, , "[NumBon]= '" & Me.NumBon & "'"
End Sub

GS - Copie.rar

[james68]

Pas mieux... lol

[minou7590]

merci beaucoup a vous

[minou7590]

voila le code

Code :

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

1
2
3
4
5
6
7
8
Private Sub N°Bon_DblClick(Cancel As Integer)
DoCmd.OpenForm "frm_bon_de_livraison", acNormal, , "[N°Bon]= '" & Me.N°Bon & "'"
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[N°Bon] = ""& Me![N°Bon]&"""
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
rs.Close
End Sub

[hyperion13]

Pour info L3 à L7 ne servent à rien

[minou7590]

d'accord merci