Discussion :

[guen]

Bonjour
Est-ce que quelqu'un a déjà utilisé (avec succès...) l'OCX de cartographie MapWinGis sous Access (en vba donc) ?
Il est relativement puissant sur ses fonctionnalités et je butte sur peu de soucis mais..je n'arrive pas à avoir de réponse à mes soucis sur le web (notamment sur le site du développeur ici https://github.com/MapWindow/MapWinGIS
La communauté de Developpez.com a toujours été d'un grand secours pour moi..aujourd'hui encore ???
Précisément, je bloque sur :

• terminer une sélection à l'aide de l'outil SelectByPolygon (je n'arrive pas à dire que le polygone est terminé pour qu'il renvoie la sélection...)
• l’utilisation de table.query(condition, resultat, erreur) qui permet de filtrer un shape pour ne renvoyer que les index qui répondent à la condition

dans ce dernier cas, les index sont renvoyés dans le tableau resultat, il me dit qu'il n'y a pas d'erreur et qu'a priori, au moins un index répond à la condition, mais mon tableau resultat est désespérément vide...je me demande si je déclare et affecte bien mon tableau en vba...?
je fais :

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
    Dim selectedShapes(500) As Integer
    Debug.Print shp.Table.Query(strfiltre, selectedShapes, erreur)
 
    If erreur = "Selection is Empty" Then
        'pas de sélection
        MsgBox "Aucune sélection ne répond à vos critères", vbInformation
    ElseIf erreur <> "" Then
        MsgBox "Une erreur est survennue : " & erreur
    Else
         'passe en revue le tableau des résultats
        If UBound(selectedShapes) > 0 Then
            For i = 0 To UBound(selectedShapes) - 1
                index = selectedShapes(i)
                Debug.Print index
                If index <> 0 Then
                    'affiche et sélectionne
                    shp.ShapeIsHidden(index) = False
                    shp.ShapeSelected(index) = True
                End If
            Next if
    end if

merci de votre aide
guen

[Jean-Philippe André]

Salut,

je ne serais pas passe par une declaration en dur de 500 item, mais par un Variant

Code :

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

Dim selectedShapes As Variant

Pense a mettre un espion sur ta variable pour voir ce qu'elle contient au moment voulu

[guen]

j'ai déjà essayé ça... et ma variable reste désespéramment vide..je crains que ce soit un bug de l'ActiveX. je l'ai contourné hier soir en créant une table temporaire d'index cartographique dans laquelle je fais mes filtres et je me contente d'afficher/masquer les item qui restent. il faut souvent trouver des voies de traverses...
merci de t'être penché sur ce souci.
guen