Bonjour, j'utilise la technique suivante pour ouvrir un=20
formulaire:
Private Sub consultation_Click()
Dim parametre As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu,=20
acSaveRecord, , acMenuVer70
If Not IsNull(code_sav) Then
parametre =3D code_sav
DoCmd.OpenForm "frm sav_consult", acNormal
DoCmd.FindRecord parametre, acEntire
DoCmd.Close acForm, "frm sav_ajout"
Else
MsgBox "impossible d'ouvrir cet enregistrement!",=20
vbOKOnly, "Erreur"
End If
End Sub
le code enregistre mes donn=E9es, ouvre le formulaire et=20
ferme le formulaire courant mais le findrecord ne=20
fonctionne pas et c'est le 1er enregistrement de frm=20
sav_consult qui s'affiche au lieu que ce soit celui du=20
form courant.
Ca doit etre un bug (je vois pas d'autre explication) est-
ce que quelqu 'un pourrais me dire si il faut un patch ou=20
si il faut faire une manip tordue pour y rem=E9dier.
Il est =E0 not=E9 que cette m=E9thode fonctionne dans tous les=20
autres formulaires.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick
Bonjour,
Je pense qu'il faut rajouter ce code après la ligne "DoCmd.OpenForm "frm sav_consult", acNormal"
DoCmd.SelectObject acForm, "frmCourant" (où "frmCourant" est le nom de ton formulaire courant)
Cela devrait fonctionner.
Tiens moi au courant si cela ne fonctionne toujours pas.
-- Patrick
"ocb2b" wrote in message news:1735601c448c7$a37593a0$ Bonjour, j'utilise la technique suivante pour ouvrir un formulaire:
Private Sub consultation_Click() Dim parametre As String DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 If Not IsNull(code_sav) Then parametre = code_sav DoCmd.OpenForm "frm sav_consult", acNormal DoCmd.FindRecord parametre, acEntire DoCmd.Close acForm, "frm sav_ajout" Else MsgBox "impossible d'ouvrir cet enregistrement!", vbOKOnly, "Erreur" End If
End Sub
le code enregistre mes données, ouvre le formulaire et ferme le formulaire courant mais le findrecord ne fonctionne pas et c'est le 1er enregistrement de frm sav_consult qui s'affiche au lieu que ce soit celui du form courant. Ca doit etre un bug (je vois pas d'autre explication) est- ce que quelqu 'un pourrais me dire si il faut un patch ou si il faut faire une manip tordue pour y remédier.
Il est à noté que cette méthode fonctionne dans tous les autres formulaires.
Bonjour,
Je pense qu'il faut rajouter ce code après la ligne "DoCmd.OpenForm "frm
sav_consult", acNormal"
DoCmd.SelectObject acForm, "frmCourant" (où "frmCourant" est le nom de
ton formulaire courant)
Cela devrait fonctionner.
Tiens moi au courant si cela ne fonctionne toujours pas.
--
Patrick
"ocb2b" <fred2b1@hotmail.com> wrote in message
news:1735601c448c7$a37593a0$a401280a@phx.gbl...
Bonjour, j'utilise la technique suivante pour ouvrir un
formulaire:
Private Sub consultation_Click()
Dim parametre As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu,
acSaveRecord, , acMenuVer70
If Not IsNull(code_sav) Then
parametre = code_sav
DoCmd.OpenForm "frm sav_consult", acNormal
DoCmd.FindRecord parametre, acEntire
DoCmd.Close acForm, "frm sav_ajout"
Else
MsgBox "impossible d'ouvrir cet enregistrement!",
vbOKOnly, "Erreur"
End If
End Sub
le code enregistre mes données, ouvre le formulaire et
ferme le formulaire courant mais le findrecord ne
fonctionne pas et c'est le 1er enregistrement de frm
sav_consult qui s'affiche au lieu que ce soit celui du
form courant.
Ca doit etre un bug (je vois pas d'autre explication) est-
ce que quelqu 'un pourrais me dire si il faut un patch ou
si il faut faire une manip tordue pour y remédier.
Il est à noté que cette méthode fonctionne dans tous les
autres formulaires.
Je pense qu'il faut rajouter ce code après la ligne "DoCmd.OpenForm "frm sav_consult", acNormal"
DoCmd.SelectObject acForm, "frmCourant" (où "frmCourant" est le nom de ton formulaire courant)
Cela devrait fonctionner.
Tiens moi au courant si cela ne fonctionne toujours pas.
-- Patrick
"ocb2b" wrote in message news:1735601c448c7$a37593a0$ Bonjour, j'utilise la technique suivante pour ouvrir un formulaire:
Private Sub consultation_Click() Dim parametre As String DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 If Not IsNull(code_sav) Then parametre = code_sav DoCmd.OpenForm "frm sav_consult", acNormal DoCmd.FindRecord parametre, acEntire DoCmd.Close acForm, "frm sav_ajout" Else MsgBox "impossible d'ouvrir cet enregistrement!", vbOKOnly, "Erreur" End If
End Sub
le code enregistre mes données, ouvre le formulaire et ferme le formulaire courant mais le findrecord ne fonctionne pas et c'est le 1er enregistrement de frm sav_consult qui s'affiche au lieu que ce soit celui du form courant. Ca doit etre un bug (je vois pas d'autre explication) est- ce que quelqu 'un pourrais me dire si il faut un patch ou si il faut faire une manip tordue pour y remédier.
Il est à noté que cette méthode fonctionne dans tous les autres formulaires.
ocb2b
Non dsl ca marche toujours pas. Je pense que c'était pas utile car le formulaire courant se ferme, il est donc déjà sélectionné.
Non dsl ca marche toujours pas. Je pense que c'était pas
utile car le formulaire courant se ferme, il est donc
déjà sélectionné.
