Discussion :

[jacma]

Bonjour
Dans le cadre de la mise en place d'un OCX dans une form, j'affiche une PropertyPage.
Une erreur peut se produire lorsque l'utilisateur saisi les propriétés demandées. J'ai bien une procédure d'erreur, avec entre autre un Exit Sub en cas d'erreur. Le problème est que la propertypage reste affichée alors que je souhaite la désactiver.
Merci pour vos suggestions.

[méphistopheles]

tu ne peut pas utiliser un on error goto label

label: exit sub?

[jacma]

Bonjour
J'ai bien un gestion d'erreur dans la provédure et l'erreur est bien captée. Le problème est la fermeture de la fenêtre de dialogue, qui même après un exit sub reste affichée. Et il n'y a d'autre solution que d'appuyer sur le bouton de commanade annuler de la fenêtre.
Malheureusement, ce bouton de commande ne semble pas accessible par code. Peut-être une API?

[méphistopheles]

si yu à un

Code :

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

on erroro goto monlabbel

tu n'a qua mettre :

Code :

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

1
2
monlabel: Unload me
exit sub

ou sinon, je ne vois pas le problème...

[jacma]

C'est bien ce que j'ai fait depuis le début...

[Amri_Daly]

salut
j'ai pas vraimment une solution mais essai SendKeys "{ESC}"
a+

[méphistopheles]

C'est bien ce que j'ai fait depuis le début...

et ça marche pas?

[jacma]

Pas vraiment, non
L'erreur est bien interceptée, le message d'erreur que j'ai défini s'affiche, l'exécution du code passe sur la ligne "Exit Sub"... mais la page de propriété reste affichée. On peut alors cliquer sur le bouton "Annuler" de la page pour la fermer. Mais je ne vois pas comment simuler ce clic...

[méphistopheles]

non, mais tu à pensé à mettre un unload me avant exit sub?
sinon, ça marche pas?
ou bien à recopier le code du bouton anuller?

pourrais tu nous donner un bout de code?

[SfJ5Rpw8]

peu-être nous dire de qu'el ocx il sagit ... voir si on arrive à le reproduire)

[jacma]

non, mais tu à pensé à mettre un unload me avant exit sub?

Oui, j'avais essayé. Cela me renvoyait un message d'erreur "Impossible de décharger cet objet"
sinon, ça marche pas?

ou bien à recopier le code du bouton anuller?

Je l'ai vainement cherché. Lors de la création de la page de propriété, ces boutons n'existent pas. Ils sont ajoutés automatiquement lorsque l'on implante l'OCX et on en définit les propriétés.
pourrais tu nous donner un bout de code?[/quote]Voici la procédure en cause.

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Private Sub Definir_Liaison()
'Affiche les champs d'une des tables (suivant l'index de la commande)
'pour définir le champ de liaison (de la table principale ou de la table liée)
 
  On Error GoTo GestErreur
 
  Dim SQL As String
  Dim strTable As String
  Dim Champ As Field
  Dim rsRelat As ADODB.Recordset
  Dim strChampRelat As String
  Dim i As Integer
  Dim strErreur As String
 
  Set rsDefChamps = New ADODB.Recordset
  Set rsRelat = New ADODB.Recordset
 
  lstTables.Visible = True
  lstChamps.Visible = True
 
  If Flag = True Then
    strTable = txtTablePere
  Else
    strTable = txtTableFils
  End If
 
  strErreur = "Liaisons"
  SQL = "SELECT * FROM [" & strTable & "]"
  rsDefChamps.Open SQL, cnBase, adOpenDynamic, adLockOptimistic, adCmdText
 
  'Recherche et sélection dans la liste des champs de liaison ----------------------------------------------------
  SQL = "SELECT * FROM MSysRelationships"
  rsRelat.Open SQL, cnBase, adOpenDynamic, adLockOptimistic, adCmdText
 
  rsRelat.MoveFirst
 
  If Flag = True Then
    strChampRelat = rsRelat.Fields("szColumn")
  Else
    strChampRelat = rsRelat.Fields("szReferencedColumn")
  End If
 
  For i = 0 To lstChamps.ListCount - 1
    If lstChamps.List(i) = strChampRelat Then
      lstChamps.Selected(i) = True
      Exit Sub
    End If
  Next i
  'Fin recherche et sélection ----------------------------------------------------------------------------------------------------
 
'**********************************************************************************
'******************************** Gestion d'erreurs *******************************
'**********************************************************************************
Exit Sub
GestErreur:
  Select Case Err.Number
    Case 3021 'Les liaisons entre tables n'ont pas été établies dans Access
      MsgBox "La liaison entre les tables n'a pas été établie " & _
              "dans la base de données Access." & vbCrLf & _
              "(Etablissez la, dans Access, menu Outils/Relations)"
      Exit Sub
    Case Else
      MsgBox Err.Source & " - IGInterfaceDBADO" & " - " & strErreur & vbCrLf _
                        & Err.Number & " - " & Err.Description & vbCrLf _
                        & "Notez et signalez cette erreur."
      Resume Next
  End Select
Exit Sub
 
End Sub

peu-être nous dire de qu'el ocx il sagit ... voir si on arrive à le reproduire)

C'est un OCX de ma composition. Il propose la barre de navigation telle qu'elle est dans mon praticiel sur la gestion des données. Il agit en tant que source de données et il permet de définir l'accès à une base de données ACCESS, deux tables liées et leur champ de liaison. Elle se présente ainsi:

Je peux l'envoyer en privé...

[jacma]

Bonjour
J'ai trouvé une solution. Il suffit de simuler un escape avec:

Code :

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

SendKeys "{ESC}"

Ce n'est peut-être pas très "propre", mais cela fonctionne. Je ne sais pas pourquoi je n'y est pas pensé plutôt . Comme quoi on (je) va(is) souvent chercher bien loin ce qui est évident.
Si quelqu'un trouve l'API qui est derrière la boite de dialogue des pages de propriétés, qu'il n'hésite pas à me la communiquer.
Merci.

[Catbull]

salut
j'ai pas vraimment une solution mais essai SendKeys "{ESC}"
a+

[jacma]

Celle là, je l'avais loupée. C'était encore plus près. Je l'avais peut-être enregistrée inconsciemment et elle est ressortie.
Merci Amry., et excuses moi.