Discussion :

[Junior_jef]

Hello tout le monde, et merci de m'aider

J'ai inséré ce code servant à griser les boutons suivant et précédent dans mon sous formulaire en mode unique.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Form_Current()
Dim X
MsgBox Me.Name
X = affprecsuiv(Me.Name)
End Sub
 
 
' Fonction servant à griser les boutons "précédent" ou "suivant" au besoin
Function affprecsuiv(monform)
On Error GoTo Err_affprecsuiv
 
Dim f As Form, s As Recordset
Set f = Forms(monform)
Set s = f.RecordsetClone
 
s.Bookmark = f.Bookmark
s.MoveNext
 
If s.EOF Then
 f.Btn_Enr_Suiv.Enabled = 0
Else
 f.Btn_Enr_Suiv.Enabled = -1
End If
 
s.Bookmark = f.Bookmark: s.MovePrevious
If s.BOF Then
 f.Btn_Enr_Prec.Enabled = 0
Else
 f.Btn_Enr_Prec.Enabled = -1
End If
 
Exit_affprecsuiv:
Exit Function
 
Err_affprecsuiv:
' Si aucun enregistrement en cours
 If Err = 3021 Then
  If s.RecordCount = 0 Then
   f.Btn_Enr_Prec.Enabled = 0
  Else
   f.Btn_Enr_Prec.Enabled = -1
  End If
 f.Btn_Enr_Suiv.Enabled = 0
 Else
  MsgBox Error$
   End If
 GoTo Exit_affprecsuiv
End Function

L'erreur que j'obtiens est: "impossible de trouver le formulaire "nom du sous formulaire" auquel il est fait référence.


Quelqu'un aurait il une idée? y a t il une facon spéciale pour déclarer un sous formulaire en VBA?

Merci!

[zoom61]

Salut,

La syntaxe est normalement :

Code :

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

Forms!formulaire!sous_formulaire!champ

[Junior_jef]

oui, ca c'est si on entre le nom du formulaire en dur.

Mais dans mon cas, que mettre à la place du :

Code :

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

Set f = Forms(monform)

(la variable monform , contenant le nom du sous formulaire dans lequel se trouve les 2 boutons précédents, suivants à griser)

?

[zoom61]

Cela peut être de la forme :

Code :

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

Set f = "Forms!formulaire!" & monform

[Junior_jef]

en faisant cela, l'erreur obtenue est : objet requis

[zoom61]

Code :

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

Set f = Forms("formulaire!" & monform)

[Junior_jef]

Merci beaucoup pour ton aide, mais ce n est pas encore ca. Voici l'erreur cette fois:

impossible de trouver le formulaire: Frm_GestionEtudiant!sub_Etudiant_Frm_GestionEtudiant

[zoom61]

Ton sous formulaire est bien utilisé dans un formulaire. Et c'est sur ce sous formulaire (qui est contenu dans ton formulaire) que tu veux faire grisé tes boutons

[Junior_jef]

exactement !

Le code que j'ai cité au dessus est le code du sous formulaire "sub_Etudiant_Frm_GestionEtudiant" se trouvant sur le formulaire "Frm_GestionEtudiant"


à noter que j'utilise exactement le meme code (sauf le nom des boutons qui est différent) sur le formulaire "Frm_GestionEtudiant" et pour lui, ca fonctionne...

[zoom61]

Code :

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

Set f = Forms("Forms!formulaire!" & monform)

[Junior_jef]

Non, dans le formulaire principal , j'utilise ceci:

Code :

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

Set f = Forms(monform)

[zoom61]

Code :

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

Set f = Forms("Forms!formulaire!" & monform)

formulaire : est le nom de ton formulaire.
monform : est le nom de ton sous formulaire.

[Junior_jef]

erreur: impossible de trouver le formulaire: Forms!Frm_GestionEtudiant!sub_Etudiant_Frm_GestionEtudiant auquel il est fait référence




ralala, je trouve vraiment pas la bonne syntaxe

[zoom61]

Remplace f par "Forms!formulaire!" & monform

[Junior_jef]

cela ne fonctionne toujours pas...


grrr désolé de t'embeter avec ca mais j'ai vraiment du mal à comprendre pourquoi dans le formulaire ce code fonctionne, alors que le meme code ne fonctionne pas dans ce sous formulaire...

[zoom61]

Peux-tu m'envoyer ton fichier que je regarde !

[Junior_jef]

Ok, j'allège la base et je t'envoie ca! Merci beaucoup!

[Junior_jef]

Voila.

Le formulaire principal sur lequel la fonction de grisage des boutons fonctionne s'appelle: Frm_GestionEtudiant

le sous formulaire ou cela ne fonctionne pas s'appelle: sub_Etudiant_Frm_GestionEtudiant


hésite pas à me demander si tu ne comprends pas quelque chose.

Merci!



ps) je sais que la structure de la DB est déplorable mais je ne suis pas responsable de sa création. On m'a juste chargé de faire une application de présentation des données... malheureusement...

[Junior_jef]

La réponse était:

Code :

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

Set f = Forms("Frm_GestionEtudiant")("sub_Etudiant_Frm_GestionEtudiant").Form

merci de t etre penché sur mon problème! j'ai enfin trouvé... seul Comme quoi, en persévérant