OVH Cloud OVH Cloud

Ouverture d'un formulaire en Visual Basic

8 réponses
Avatar
Maurice KRAIT
Bonjour,

La procédure évènementielle générée par l'assistant pour l'ouverture
d'un formulaire est la suivante:

______________________________________________
Private Sub Commande46_Click()
On Error GoTo Err_Commande46_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FMENUSYNCHRO"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande46_Click:
Exit Sub

Err_Commande46_Click:
MsgBox ERR.description
Resume Exit_Commande46_Click
End Sub
_______________________________________________
Ma question est : que représente la chaîne de caractères stLinkCriteria
?
D'après l'aide concernant la méthode OpenForm, cette chaîne, en
quatrième position dans la suite des arguments, doit représenter une
condition WHERE.
Si oui, laquelle ?

Question complémentaire : que faire pour que le formulaire ne soit pas
ouvert en mode Maximize ?

Merci d'avance de vos réponses.

Maurice

8 réponses

Avatar
J-Pierre
Bonsoir,

1)Si tu veux que ton formulaire s'ouvre sur un enregistrement spécifique de la source, tu mets ta condition:
stLinkCriteria = "maCle%"
en faisant attention aux apostrosphes pour les strings et ce genre de choses.

2) en n'exécutant pas doCmd.maximize, il me semble

J-Pierre

"Maurice KRAIT" a écrit dans le message de news:
Bonjour,

La procédure évènementielle générée par l'assistant pour l'ouverture
d'un formulaire est la suivante:

______________________________________________
Private Sub Commande46_Click()
On Error GoTo Err_Commande46_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FMENUSYNCHRO"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande46_Click:
Exit Sub

Err_Commande46_Click:
MsgBox ERR.description
Resume Exit_Commande46_Click
End Sub
_______________________________________________
Ma question est : que représente la chaîne de caractères stLinkCriteria
?
D'après l'aide concernant la méthode OpenForm, cette chaîne, en
quatrième position dans la suite des arguments, doit représenter une
condition WHERE.
Si oui, laquelle ?

Question complémentaire : que faire pour que le formulaire ne soit pas
ouvert en mode Maximize ?

Merci d'avance de vos réponses.

Maurice



Avatar
Raymond [mvp]
Bonjour J-Pierre.

le formulaire sera ouvert en maximize si la fenêtre est en maximize. pour
être sûr de ne pas être en maximize il faut rajouter un restore après le
openform.
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Restore
le docmd agissant sur l'objet actif, c'est le formulaire lancé qui sera
touché donc le stDocName.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"J-Pierre" a écrit dans le message de
news:
Bonsoir,

1)Si tu veux que ton formulaire s'ouvre sur un enregistrement spécifique
de la source, tu mets ta condition:

stLinkCriteria = "maCle%"
en faisant attention aux apostrosphes pour les strings et ce genre de
choses.


2) en n'exécutant pas doCmd.maximize, il me semble

J-Pierre


Avatar
Maurice KRAIT
Merci pour ta réponse.


Bonsoir,

1)Si tu veux que ton formulaire s'ouvre sur un enregistrement spécifique de la source, tu mets ta condition:
stLinkCriteria = "maCle%"
en faisant attention aux apostrosphes pour les strings et ce genre de choses.


C'est donc bien équiuvalent à une condition WHERE; mais pourquoi y at'il le mot clé stLinkCriteria plutôt que
rien.
Ceci dit, cette question est par pure ciriosité, une fois assuré qu'il s'agit bien d'une condition.

2) en n'exécutant pas doCmd.maximize, il me semble


C'est ce que je croyais, mais si je pose la question, c'est qu le clic qur le bouton ouvre le formulaire et
l'agrandit.
Je vais essayer la solution de Raymond : DoCmd.Restore

Merci encore

Maurice

Bonjour,

La procédure évènementielle générée par l'assistant pour l'ouverture
d'un formulaire est la suivante:

______________________________________________
Private Sub Commande46_Click()
On Error GoTo Err_Commande46_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FMENUSYNCHRO"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande46_Click:
Exit Sub

Err_Commande46_Click:
MsgBox ERR.description
Resume Exit_Commande46_Click
End Sub
_______________________________________________
Ma question est : que représente la chaîne de caractères stLinkCriteria
?
D'après l'aide concernant la méthode OpenForm, cette chaîne, en
quatrième position dans la suite des arguments, doit représenter une
condition WHERE.
Si oui, laquelle ?

Question complémentaire : que faire pour que le formulaire ne soit pas
ouvert en mode Maximize ?

Merci d'avance de vos réponses.

Maurice




Merci pour votre réponse


Avatar
Maurice KRAIT

Bonjour J-Pierre.

le formulaire sera ouvert en maximize si la fenêtre est en maximize. pour
être sûr de ne pas être en maximize il faut rajouter un restore après le
openform.
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Restore
le docmd agissant sur l'objet actif, c'est le formulaire lancé qui sera
touché donc le stDocName.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


Merci pour ta réponse. Ca marche; ce qui m'étonne c'est qu'en l'absence de la
commande Restore, le formulaire soit agrandi !

Maurice

Avatar
Pierre CFI [mvp]
bonjour
en fait il prend le format précedent utilisé, tant que tu n'as pas fais de maximize, ok, sinon all is maximize (oui, l'anglais pour
entrainement progressif) :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Maurice KRAIT" a écrit dans le message de news:



Bonjour J-Pierre.

le formulaire sera ouvert en maximize si la fenêtre est en maximize. pour
être sûr de ne pas être en maximize il faut rajouter un restore après le
openform.
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Restore
le docmd agissant sur l'objet actif, c'est le formulaire lancé qui sera
touché donc le stDocName.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


Merci pour ta réponse. Ca marche; ce qui m'étonne c'est qu'en l'absence de la
commande Restore, le formulaire soit agrandi !

Maurice





Avatar
3stone
"Pierre CFI [mvp]"
... all is maximize (oui, l'anglais pour
entrainement progressif) :o))



;-)))



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

Avatar
Pierre CFI [mvp]
çà c'est sur que si je dis un mot à redmond, je passe le séjour en taule, peut étre méme dans leur base de cuba...

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"3stone" a écrit dans le message de news: 3fd49cc0$0$279$
"Pierre CFI [mvp]"
... all is maximize (oui, l'anglais pour
entrainement progressif) :o))



;-)))



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------







Avatar
Maurice KRAIT

bonjour
en fait il prend le format précedent utilisé, tant que tu n'as pas fais de maximize, ok, sinon all is maximize (oui, l'anglais pour
entrainement progressif) :o))


Maintenant je comprends pourquoi ça avait l'air un peu aléatoire.

Merci de l'explication
Maurice




--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
...........................................................

Bonjour J-Pierre.

le formulaire sera ouvert en maximize si la fenêtre est en maximize. pour
être sûr de ne pas être en maximize il faut rajouter un restore après le
openform.
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Restore
le docmd agissant sur l'objet actif, c'est le formulaire lancé qui sera
touché donc le stDocName.
--
@+...............................
Merci pour ta réponse. Ca marche; ce qui m'étonne c'est qu'en l'absence de la

commande Restore, le formulaire soit agrandi !

Maurice