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