Discussion :

[FRED.G]

Bonjour,

Quelqu'un aurait-il un lien (ou plusieurs) ou une astuce pour vérifier si un objet, une méthode ou une propriété existe sous une version donnée d'Access ?

J'utilise régulièrement la librairie msdn pour .NET mais pour access, je ne m'y retrouve pas.


En l'occurence, je me pose la question de savoir si la méthode Move des formulaires est présente sous ac 2000. Idem pour la méthode AddItem des ComboBox.

De mémoire il me semble que non, mais je n'ai plus de certitude...

[Tofalu]

Additem doit exister depuis XP il me semble.

Pour Move je ne sais pas.

Quant à une bible des objets, à part l'explorateur d'objets, je ne vois pas. Evidemment ça pose problème quand on développe sur une autre version. Pour cela je n'aurais qu'un conseil, développer avec la plateforme cible

[FRED.G]

Pour cela je n'aurais qu'un conseil, développer avec la plateforme cible

J'ai XP et 2003. Mais j'ai perdu la licence de mon Access 2000...

[cafeine]

Hello,

ça doit être possible d'adapter ça :
http://www.developpez.net/forums/sho...d.php?t=188431

[FRED.G]

Pfff ! C'est pour les mauviettes ton truc ! Y a même pas d'API ! Vite, où est passé Arkham ?

Non sérieux, merci cafeine, je ne me souvenais pas du tout de cette librairie. Avec un petit coup d'explorateur d'objet dessus je devrais vite voir ce qu'il est possible de faire, ça a l'air très intéressant...

Je regarderai ça un peu plus tard.

[cafeine]

bon voilà comment faire :

Il faut ajouter la référence bien sûr ...

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
Public Function GetMethod(ByVal strRefName As String, ByVal strObject As String, _
                      Optional ByVal item As String = "*") As Collection
 
    Dim objTLI As TypeLibInfo
    Dim objInterFace As InterfaceInfo
    Dim objMember As MemberInfo
 
    Dim i As Integer
    Dim strTypeName As String, strLastAdded As String
 
    Set objTLI = New TypeLibInfo
 
    objTLI.ContainingFile = Application.References(strRefName).FullPath
 
    For i = 1 To objTLI.TypeInfos.Count
        If (objTLI.TypeInfos(i).Name = strObject) Then
            Set objInterFace = objTLI.TypeInfos(i).Interfaces(1)
            Exit For
        End If
    Next i
 
    If Not (objInterFace Is Nothing) Then
 
        For Each objMember In objInterFace.Members
            If Not (Left$(objMember.Name, 1) = "_") And _
               Not (objMember.Name = strLastFound) And _
                (objMember.InvokeKind = INVOKE_FUNC Or _
                 objMember.InvokeKind = INVOKE_EVENTFUNC) And _
                 (objMember.Name Like item) Then
 
                Debug.Print objMember.Name
                strLastFound = objMember.Name
            End If
        Next objMember
    End If
 
End Function

Code :

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

1
2
?GetMethod "Access", "Form", "M*"
 Move

[FRED.G]

Ok, merci cafeine, mais y a un truc qui m'a échappé... Comment je fais pour explorer une version d'access que je n'ai pas ?

EDIT : tofalu a fait la même remarque dans l'autre thread, j'y ai lu ta réponse.