sur un formulaire de filtrage j'ai un pose un bouton qui ouvre un 2eme
formulaire de consultation de données, cependant est-ce que ce meme bouton
peut dans un 2eme temps commander la fermeture du formulaire de filtrage
comme avec une macro ?
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
david
salut,
bien sur,
pour cela regarde si l'instruction : set f = forms![mon 2° formulaire] provoque une erreur (remplace "mon 2° formulaire" par le nom de ton 2eme formulaire) Si oui => le formulaire n'est pas ouvert... Si non => le formualire est ouvert on obtient donc un truc du style : on error resume next set f = forms![mon 2° formulaire] if err.number<>0 then err.clear docmd.openForm "mon 2° formulaire" else docmd.close acForm, "mon 2° formulaire" end if on error goto 0
A+
salut,
bien sur,
pour cela regarde si l'instruction :
set f = forms![mon 2° formulaire]
provoque une erreur (remplace "mon 2° formulaire" par le nom de ton
2eme formulaire)
Si oui => le formulaire n'est pas ouvert...
Si non => le formualire est ouvert
on obtient donc un truc du style :
on error resume next
set f = forms![mon 2° formulaire]
if err.number<>0 then
err.clear
docmd.openForm "mon 2° formulaire"
else
docmd.close acForm, "mon 2° formulaire"
end if
on error goto 0
pour cela regarde si l'instruction : set f = forms![mon 2° formulaire] provoque une erreur (remplace "mon 2° formulaire" par le nom de ton 2eme formulaire) Si oui => le formulaire n'est pas ouvert... Si non => le formualire est ouvert on obtient donc un truc du style : on error resume next set f = forms![mon 2° formulaire] if err.number<>0 then err.clear docmd.openForm "mon 2° formulaire" else docmd.close acForm, "mon 2° formulaire" end if on error goto 0
A+
ptkppr
ouh la la... suis debutant moi, je commence juste à fouiner dans la fenetre de code que je laisse faire par access ! voila ce que j'ai pour l'ouverture du 2eme formulaire en ligne de commande du bouton d'ouverture :
Private Sub Commande59_Click() On Error GoTo Err_Commande59_Click
Dim stDocName As String Dim stLinkCriteria As String
moi je pensais rajouter une variable du genre "Dim stDocName2 As String" et la ligne de commande : stDocName = "FiltreConsultation" DoCmd.OpenForm stDocName2, , , stLinkCriteria
qu'est-ce que tu en penses ?
salut,
bien sur,
pour cela regarde si l'instruction : set f = forms![mon 2° formulaire] provoque une erreur (remplace "mon 2° formulaire" par le nom de ton 2eme formulaire) Si oui => le formulaire n'est pas ouvert... Si non => le formualire est ouvert on obtient donc un truc du style : on error resume next set f = forms![mon 2° formulaire] if err.number<>0 then err.clear docmd.openForm "mon 2° formulaire" else docmd.close acForm, "mon 2° formulaire" end if on error goto 0
A+
ouh la la... suis debutant moi, je commence juste à fouiner dans la fenetre
de code que je laisse faire par access !
voila ce que j'ai pour l'ouverture du 2eme formulaire en ligne de commande
du bouton d'ouverture :
Private Sub Commande59_Click()
On Error GoTo Err_Commande59_Click
Dim stDocName As String
Dim stLinkCriteria As String
moi je pensais rajouter une variable du genre "Dim stDocName2 As String"
et la ligne de commande :
stDocName = "FiltreConsultation"
DoCmd.OpenForm stDocName2, , , stLinkCriteria
qu'est-ce que tu en penses ?
salut,
bien sur,
pour cela regarde si l'instruction :
set f = forms![mon 2° formulaire]
provoque une erreur (remplace "mon 2° formulaire" par le nom de ton
2eme formulaire)
Si oui => le formulaire n'est pas ouvert...
Si non => le formualire est ouvert
on obtient donc un truc du style :
on error resume next
set f = forms![mon 2° formulaire]
if err.number<>0 then
err.clear
docmd.openForm "mon 2° formulaire"
else
docmd.close acForm, "mon 2° formulaire"
end if
on error goto 0
ouh la la... suis debutant moi, je commence juste à fouiner dans la fenetre de code que je laisse faire par access ! voila ce que j'ai pour l'ouverture du 2eme formulaire en ligne de commande du bouton d'ouverture :
Private Sub Commande59_Click() On Error GoTo Err_Commande59_Click
Dim stDocName As String Dim stLinkCriteria As String
moi je pensais rajouter une variable du genre "Dim stDocName2 As String" et la ligne de commande : stDocName = "FiltreConsultation" DoCmd.OpenForm stDocName2, , , stLinkCriteria
qu'est-ce que tu en penses ?
salut,
bien sur,
pour cela regarde si l'instruction : set f = forms![mon 2° formulaire] provoque une erreur (remplace "mon 2° formulaire" par le nom de ton 2eme formulaire) Si oui => le formulaire n'est pas ouvert... Si non => le formualire est ouvert on obtient donc un truc du style : on error resume next set f = forms![mon 2° formulaire] if err.number<>0 then err.clear docmd.openForm "mon 2° formulaire" else docmd.close acForm, "mon 2° formulaire" end if on error goto 0
