Discussion :

[sebac]

salut
j'ai un problème assez bizare quand je clic sur mon bouton ok qui appelle une fonction génératrice de formulaire, le code produit par cette génération apparaît ce qui est problématique quoi que le travail est bien accompli après le clic.
Si quelqu'un sait comment ne plus déclancher cette ouverture de code de façon qu'il ne s'affiche plus.

Merci

code derrière le bouton ok

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 Private Sub btnOK_Click()
If Me.lstChampsSelectionnes.ListCount = 0 Then
    MsgBox "Vous devez sélectionner au moins un champ !", vbExclamation, "Search Wizard"
    Exit Sub
End If
 
    ' je désactive l'avertissement access puisque les formulaires ci-dessous sont générés à chaque fois quelque soit la table ou la
'requête sur laquelle on veut trier ce qui fait, que les anciens contenu des formulaires sont écrasés en demandant
'si on veut bien écraser les anciennes versions de formulaires
DoCmd.SetWarnings False
 
' Initialiser un objet Générateur de recherche
Dim clsgen As New clsGenerateurRecherche
clsgen.DefinirSource Me.cmbTablesRequetes, _
    Me.cmbTablesRequetes.Column(1)
 
 
' Générer le formulaire de recherche
'clsgen.CreerSousFormulaire lstChampsSelectionnes
clsgen.CreerFormulaire lstChampsSelectionnes
 
' Libérer l'objet
Set clsgen = Nothing
 
DoCmd.Close
 
DoCmd.SetWarnings True
End Sub

[seb92400]

Il t'affiche le code avec une barre jaune non ?

Le do.cmd setwarnings... après le do.cmd Close peut-être ?

Pense à la gestion des erreurs également... (tutoriels)

[sebac]

j'ai toujours le même problème même après avoir fait une gestion d'erreur et changer la position du Docmd.setWarnings....

[seb92400]

As-tu une erreur quelconque, ou c'est simplement la fenêtre vba qui s'affiche et rien d'autre ??

Enlève également tes setwarning le temps du dégogage, histoire de vois si tu n'as pas un message inattendu...

[sebac]

je n'ai pas d'erreur c'est simplement la fenêtre vba contenant le code qui s'affiche. En fait mon setWarning c'est pour empêcher qu'a chaque fois que je génère mon formulaire qui s'appelle "frm test" qu'il me demande si je veux écraser les données obtenues à la génération précédente et qu'il le fasse directement.

[Invité]

Bonjour

Que fait la classe : clsGenerateurRecherche ?

Est-ce que par hasard cette classe écrit du code dans les modules.

Starec

[seb92400]

En fait mon setWarning c'est pour empêcher qu'a chaque fois que je génère mon formulaire qui s'appelle "frm test" qu'il me demande si je veux écraser les données obtenues à la génération précédente et qu'il le fasse directement

Justement, le fait de les enlever pendant la phase de debogage va te permettre de voir ce qui se passe pendant la création de ton formulaire, et éventuellement de comprendre pourquoi ta fenêtre vba s'ouvre... Et comme te le dit Starec, sans doute écris-tu quelque part dans ton code...

[sebac]

je l'ai enlever sans succès

[sebac]

pour répondre à starec oui ma classe qui est censée génère un formulaire écrit dans des modules