Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 10/02/2012, 15h33   #1
Candidat au titre de Membre du Club
 
Homme
Inscription : janvier 2012
Messages : 52
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : janvier 2012
Messages : 52
Points : 14
Points : 14
Par défaut Activation formulaire avant emploi

Bonjour,

J'utilise un formulaire qui renseigne le champ d'un autre formulaire afin de récupérer un résultat.
Tout fonctionne parfaitement si le deuxième formulaire (celui qui est utilisé comme outil dirais-je) est déjà ouvert avant de lancer le processus.
Je dois m’assurer que ce formulaire est bien ouvert pour qu'il n'y est pas de problème d'utilisation par le futur utilisateur lambda.
Le formulaire qui est utilisé en tant que "outil" est Form_Outil, le principal est Form_Inventaire
J'ai écrit la procédure ci-dessous pour tester et ouvrir le cas échéant le formulaire "OUTIL".
S'il n'est pas ouvert le code l'ouvre mais j'ai quand même l'erreur plus tard dans le code (pas visible ici) qui me dit que le formulaire outil dont il est fait référence n'est pas trouvable !!
Donc si j'ouvre le formulaire à la main avant de lancer le processus c'est ok mais si je l'ouvre via le code ça plante !!
Dans VBA pour EXCEL je réglai ce genre de problème avec form.activate ou form.select, mais sous ACCESS je ne trouve que le code ci-dessous.
Je précise que le code est dans le formulaire principale, je n'ai pas essayé de le mettre dans un module...

Quelqu'un a une idée ?

Par avance merci.

nono

Code :
1
2
3
4
5
6
7
8
9
10
On Error Resume Next
Set fm = Forms("Form_Outil")
If Err.Number <> 0 Then
' active le formulaire
DoCmd.OpenForm ("Form_Outil")
Form_Outil.Visible = True
End If
On Error GoTo 0
 
Form_Inventaire.Visible = True ' pour revenir sur le principal
nono63 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 10/02/2012, 22h29   #2
Modérateur
 
Homme René MAROT
Inscription : octobre 2005
Messages : 5 479
Détails du profil
Informations personnelles :
Nom : Homme René MAROT
Localisation : Canada

Informations forums :
Inscription : octobre 2005
Messages : 5 479
Points : 7 568
Points : 7 568
Je tenterai :

Code :
1
2
3
4
5
6
if not currentproject.allforms("NomTonForm").isloaded then
   docmd.openform "NomTonForm"
end if
 
'Et si ton formulaire courrant est Form_Inventaire
me.Visible=true
Code :
1
2
3
 
'sinon
forms("NomTonForm").visible=true
cela devrait résoudre ton problème.

A+
__________________
Vous voulez une réponse rapide et efficace à vos questions téchniques ? Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
marot_r est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 13/02/2012, 09h13   #3
Candidat au titre de Membre du Club
 
Homme
Inscription : janvier 2012
Messages : 52
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : janvier 2012
Messages : 52
Points : 14
Points : 14
Bonjour,

Merci pour la réponse mais j'ai toujours une erreur:



@+

nono


Citation:
Envoyé par marot_r Voir le message
Je tenterai :

Code :
1
2
3
4
5
6
if not currentproject.allforms("NomTonForm").isloaded then
   docmd.openform "NomTonForm"
end if
 
'Et si ton formulaire courrant est Form_Inventaire
me.Visible=true
Code :
1
2
3
 
'sinon
forms("NomTonForm").visible=true
cela devrait résoudre ton problème.

A+
nono63 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/03/2012, 18h17   #4
Candidat au titre de Membre du Club
 
Homme
Inscription : janvier 2012
Messages : 52
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : janvier 2012
Messages : 52
Points : 14
Points : 14
Bonsoir,

Bon et bien comme rien ne fonctionne je fais ouvrir le formulaire même si il l'est déjà puis je reviens sur mon principal et cela fonctionne
nono63 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 22h22.


 
 
 
 
Partenaires

Hébergement Web