Bonjour à tous

Voici mon léger soucis auquel j'en n'ai pas trouvé de solutions malgré beaucoup de recherches.

Je travaille sur Access et j'ai écrit une fonction dans un module VBA, qui se compile sans soucis.

Seulement lorsque j'écris une requête (en mode SQL, je n'ai pas encore bien saisi le mode Design d'access) en appelant cette fonction, on me répond qu'elle est "undefined".

SELECT maFonction (colonne) FROM MaTable -> ne fonctionne pas

Existe-t-il une solution ?

Merci

-
Edité par Benzouye 10 janvier 2018 à 9:19:07

Bonjour,

Je déplace dans le forum "Autres langages" car VBA est différent de .NET

Franck94 a écrit:

lorsque j'écris une requête (en mode SQL, je n'ai pas encore bien saisi le mode Design d'access) en appelant cette fonction, on me répond qu'elle est "undefined"

Ce que tu veux faire n'est pas possible. Une fonction VBA n'est pas reconnue par le moteur de BDD de Access (Jet).

Par ailleurs, il me semble qu'il n'est pas possible non plus de créer des nouvelles fonctions SQL dans Access (User Defined Functions).

Donc à mon avis la solution c'est de récupérer tes données "brutes" en VBA, puis d'appliquer ta fonction après sur la valeur de la colonne en question dans une boucle pour les afficher "calculées" ensuite ...

-
Edité par Benzouye 10 janvier 2018 à 9:22:20

Bonjour,

Il est possible d'utiliser des fonctions d'un module VBA dans une commande SQL sous Access.

Prenons pour exemple la table suivante :

L’exécution des commandes et routines suivantes :

Option Compare Database
Option Explicit
Public Function fct_sexe(x As Integer) As String
If x = 1 Then
fct_sexe = "H"
ElseIf x = 2 Then
fct_sexe = "F"
End If
End Function
Public Function fct_donnees(y As Integer) As Integer
Select Case y
    Case 0 To 4
     fct_donnees = y - 1
    Case 5 To 10
     fct_donnees = y + 1
    Case Is > 10
     fct_donnees = y + 2
    Case Else
     fct_donnees = 0
End Select
End Function

Sub test2()
DoCmd.RunSQL ("SELECT PRENOM, fct_sexe(SEXE) AS GENRE, fct_donnees(DONNEES) AS DONNEES_TRANSFO " & _
              "INTO Table2 " & _
              "FROM Table1;")
End Sub

donnera :

-
Edité par mendes_florent 11 janvier 2018 à 15:19:52

Merci Florent pour la précision

Et désolé Franck pour la désorientation ...