Discussion :

[francois78]

J'ai un code qui dé fois marche dé fois ca marche pas permet de déterminé l'objet qui commandé l'ouverture d'un form

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
 
    ' Test pour connaitre quel bouton à lancer l'application
    Dim frm As Access.Form
    Dim ctl As Access.Control
    Dim a
    Dim b
    On Error Resume Next
    ' Identifier le formulaire précédent ainsi que
    ' l'objet qui était actif sur ce formulaire
    Set frm = Screen.ActiveForm
    Set ctl = frm.ActiveControl
 
    ' Sortir si aucun formulaire ou aucun objet de formulaire n'a été identifié
    If (frm Is Nothing) Or (ctl Is Nothing) Then
        DoCmd.Close
    End If
 
    a = ctl.Name
    b = frm.Name
    MsgBox a
    MsgBox b
    ' On vérifie par exemple si, avant l'ouverture de ce formulaire, le contrôle actif était bien un bouton
    If TypeOf ctl Is Access.CommandButton Then
    ' On cherche quel bouton à ouvert le formulaire, ==> modification de la source du formulaire
        If ctl.Name = "Click_PDS_Inactif" Then
            Me.RecordSource = "010 - PDS KO"
        End If
        If ctl.Name = "Click_PDS_St_Ouen" Then
            Me.RecordSource = "010 - PDS OK"
        End If
    End if

Chose curieuse et , sur certaine base access cela fonctionne et d'autre pas.
J'ai ajouté dans le prog, un affichage des noms des boutons et cela me confirme que la valeur est vierge.
Alors pourquoi? Actuellement sur une nlle base, cela fonctionne pas ? Que cé passa?
Peut être qu'il y a plus simple....

[Frank]

Bonjour,

'ça marche pas, ça veut dire quoi ?
Tu dis que la valeur des boutons est vide.

Y a t'il un message d'erreur ?
Si message d'erreur, à quel endroit de ton code ?
As tu changé de version d'Access entre temps ?

[francois78]

Je n'ai pas de message d'erreur.
Je n'ai pas changer de version d'accessssssss

Quand je test sur une base où le code fonctionne, j'affiche le nom des boutons grâce à "a" et "b"

Sur une autre base, rien. Dans la boite de dialogue, c'est vide.



Moi je seche

[Arkham46]

Salut,

Je n'ai pas de message d'erreur

Faut dire qu'avec un

Code :

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

On Error Resume Next

en début de procédure ça facilite pas l'apparition de messages d'erreur

[francois78]

J'ai retiré la ligne

Code :

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

1
2
 
On Error Resume Next

Et voici le message d'erreur qui apparait :

L'expression entrée requiert que le contrôle se trouve dans la fenêtre active

Si cela vous parle, moi pas trop.
Et surtout pourquoi ca marche sur certaine base et pas sur une!!!!