Discussion :

[arr37]

Bonsoir tout le monde,

Sans tomber dans la dramaturgie, ce message est un peu un SOS...

Voilà cette fenêtre est apparue lorsque je passais mon formulaire du mode "création" au mode "affichage".



La fonction incriminée est bien sur :

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
Private Sub Form_Open(Cancel As Integer)
'
'Remplissage initial du formulaire
'
    NomduFormulaire = Me.Name 'Publique et utilisée par Formulaire2
 
        'Valeur par défaut des zones de liste déroulantes
    Me.LIMNomClient.value = Me.LIMNomClient.coLumn(0, 0)
    Me.LIMSelectChantier.value = Me.LIMSelectChantier.coLumn(0, 0)
    Me.LIMTriChantier.value = Me.LIMTriChantier.coLumn(0, 0)
    Me.LIMSelectDossier.value = Me.LIMSelectDossier.coLumn(0, 0)
    Me.LIMTriDossier.value = Me.LIMTriDossier.coLumn(0, 0)
    Me.LIMSelectMateriel.value = Me.LIMSelectMateriel.coLumn(0, 0)
    Me.LIMTriMateriel.value = Me.LIMTriMateriel.coLumn(0, 0)
    Me.LIMSelectSupport.value = Me.LIMSelectSupport.coLumn(0, 0)
    Me.LIMTriSupport.value = Me.LIMTriSupport.coLumn(0, 0)
    'Remplissage des Zones de listes
    Call LIMNomClient_AfterUpdate
 
End Sub

>- Toutes les LIM sont des Zones de liste déroulantes alimentées "à la main", sauf LIMNomClient.
>- LIMNomClient et Call LIMNomClient_AfterUpdate sont alimentées par des requêtes.
>- J'utilise LIMNomClient telle qu'elle et appelle LIMNomClient_AfterUpdate depuis ce matin sans aucun souci et n'ai rien modifié ni dans les requêtes de l'une ni dans celle de l'autre.

>- La seule modification que j'ai faite est l'ajout des 9 ligne du bloc 'Valeur par défaut des zones de liste déroulantes.
J'avais ajouté un clic sur image que j'ai retiré au cas où... rien n'y change. Idem si je retire ce bloc évoqué ci-dessus.

Je n'y comprend rien ! Et n'ai plus d'idée...

Cette erreur est déjà survenue il y a 3 jours. Ayant passé une demi journée à chercher le souci, j'ai finalement refait tout mon travail... mais je vais pas recommencer de zéro 2 fois par semaine. [IMG]file:///C:\Users\FX575005\AppData\Local\Temp\msohtmlclip1\01\clip_image001.gif[/IMG]

Si vous pouviez me réorienter avec vos précieux conseils, ce serait génial.

Merci

[arr37]

Alors, pour ceux qui tomberaient sur ce post en galérant pour trouver un coup de main face à l'horrifiante erreur :

"L'Expression [...] entrée comme paramètre de la propriété de type évènement est à l'origine d'une erreur. LE MEMBRE EXISTE DEJA DANS UN MODULE OBJET DONT LE PRESENT MODULE EST DERIVE."

>>> vérifiez bien que vos variables sont déclarées au bon endroit ! <<<

Dans mon cas, que les objets DAO utilisés (dataBase, RecordSet...) soient bien à l'intérieur de la procédure qui les utilise !

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Button1_Click()
 
Dim db As DAO.dataBase
Dim oRst As DAO.Recordset
Dim quEry As String
 
' tout le reste du code
 
End Sub