Discussion :

[Lys_L]

Bonjour,

Je suis une nouvelle utilisatrice Access.

J'aimerais utiliser une fonction qui a été créer pour mettre à jour une variable dans Excel, dans Access.

Voici la fonction:

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
 
Option Explicit
'Excel VBA Function to call the AphiaNameService
Public Function getAphiaID(ScientificName As String) As Single
  Dim objSClient As SoapClient30
  Dim AphiaID As Single
 
  Set objSClient = New SoapClient30
  Call objSClient.MSSoapInit(par_WSDLFile:="http://www.marinespecies.org/aphia.php?p=soap&wsdl=1")
 
  'Call the web service
  AphiaID = objSClient.getAphiaID(ScientificName, True)
  Set objSClient = Nothing
 
  getAphiaID = AphiaID
End Function

Pour le moment, je l'ai mise dans un module.

Je voulais créer une macro pour créer une nouvelle variable (qui je croyais était plus facile que de mettre ma variable clé à jour dans ma table où elle est unique ainsi que toute les autres tables associées).

Voici la macro que j'ai transformée en visual basic pour vous la montrer (avec ses erreurs)

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
 
Option Compare Database
 
'------------------------------------------------------------
' getAphiaID1
'
'------------------------------------------------------------
Function getAphiaID1()
On Error GoTo getAphiaID1_Err
 
    With CodeContextObject
        Dim nouveau_Aphia_ID As Variant
        DoCmd.OpenTable "espece_general", acViewNormal, acEdit
        nouveau_Aphia_ID = getAphiaID(.espece_general.ScientificName_accepted)
        DoCmd.RepaintObject acTable, "espece_general"
        Exit Function
    End With
 
 
getAphiaID1_Exit:
    Exit Function
 
getAphiaID1_Err:
    MsgBox Error$
    Resume getAphiaID1_Exit
 
End Function

Merci de votre aide ou pour vos suggestions.

[marot_r]

Je ne saisi pas bien ton code.
Tu semble mettre à jour une valeur dans la table de référence "espece_general".

Si oui, voici du code qui fait cela :

Code :

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

1
2
3
4
5
6
dim db as dao.database:set db=currentdb
dim r as dao.recordset:set r=db.openRecordset("espece_general", dbOpenDynaset)
r.edit
r![nouveau_Aphia_ID]=getAphiaID(CodeContextObject.espece_general.ScientificName_accepted)
r.update
db.close:set db=nothing

Aussi dans tes modules ajoute au début, sous Option Compare.

Code :

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

Option Explicit

Cela oblige à déclarer les variables ce qui permet d'attraper certains bugs parfois vicieux ou une faute de frappe change complètement le comportement de ton programme car au lieu de récupérer la valeur attendue tu récupères la valeur par défaut (0, chaîne vide, Null) attribuée par le compilateur.

Dans les options de l'éditeur de code, il ya une option pour que cette directive soit ajoutée automatiquement.

Autre chose, les objets VBA (appellés "modules de classe") sont EXTRÈMENT limités. VBA, c'est un langage procédural (comme COBOL ou BASIC) qui utilise des objets. Pas un VRAI langage objet comme VB.Net ou JAVA.

A+

A+

[Lys_L]

Merci pour votre réponse, je suis en train de l'étudier un peu pour pouvoir bien écrire par moi-même.

Il y a un "bug" pour le moment, mais je vais travailler un peu là dessus avant de poser d'autres questions.


Lysandre