Discussion :

[pasb71]

Bonjour,
Dans une application Access j’ai un module qui s’appele « M-configuration »
Dans le module j’ai cette fonction

Code :

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

1
2
3
4
5
Public Function ligue() As String
 
ligue = "Mon équipe"
 
End Function

J'aimerais depuis un formulaire access via un champ saisir la valeur "Mon équipe" et que celle-ci soit écrite dans le module "M-configuration" dans la fonction sous ligue = "Mon équipe"

Merci pour votre aide.

[Thumb down]

bonjour,
tu ajoute un table MyConfig par exemple!

Code :

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

1
2
3
4
5
Public Function ligue() As String
 Dim rs As DAO.Recordset
 Set rs = CurrentDb.OpenRecordset("SELECT top 1 MyConfig.Valeur FROM MyConfig WHERE MyConfig.Libelle='Equipe';")
 If Not rs.EOF Then ligue = rs!Valeur
End Function

[pasb71]

Merci pour votre réponse. Tout fonctionne correctement