[AC-2010] Changer la valeur de "Public Function" [Résolu]

[toumack]

Bonjour,
Je voudrais changer la valeur d'une Public Function qui se trouve sur le formulaire "Département1", voici cette fonction`

Code :

1
2
3
Public Function iFormIndex() As Integer
iFormIndex = 0
End Function

Je voudrais que ce changement s'effectue lorsque je presse mon bouton de commande "OuvrirDépt2" car lorsque j'utilise "OuvrirDépt1" la valeur doit être 0tandis que lorsque j'utilise "OuvrirDépt2, la valeur doit devenir 54

Code :

1
2
3
Public Function iFormIndex() As Integer
iFormIndex = 54
End Function

Si j'utilise "OuvrirDépt3, cette valeur doit devenir 108

Code :

1
2
3
Public Function iFormIndex() As Integer
iFormIndex = 108
End Function

Etc...Etc

Voici le code pour OuvrirDépt1:

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub OuvrirDépt1_Click()
 
Forms![Département1].[D1PRD1].Picture = DLookup("txtImageName", "tblImage", "[ImageID]=1")
Forms![Département1].[D1PRD2].Picture = DLookup("txtImageName", "tblImage", "[ImageID]=2")
Forms![Département1].[D1PRD1].Caption = DLookup("NomProduit", "Produits", "[ID]=1")
Forms![Département1].[D1PRD2].Caption = DLookup("NomProduit", "Produits", "[ID]=2")
 
DoCmd.Save
 
End Sub

Voici le code pour OuvrirDépt2`

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub OuvrirDépt2_Click()
 
Forms![Département1].[D1PRD1].Picture = DLookup("txtImageName", "tblImage", "[ImageID]=55")
Forms![Département1].[D1PRD2].Picture = DLookup("txtImageName", "tblImage", "[ImageID]=56")
Forms![Département1].[D1PRD1].Caption = DLookup("NomProduit", "Produits", "[ID]=55")
Forms![Département1].[D1PRD2].Caption = DLookup("NomProduit", "Produits", "[ID]=56")
 
DoCmd.Save
 
End Sub

Remarquez qu'il y a un écart de 54 entre les DLookup value, c'est pour cette raison qu'il faut que la valeur changeééé j'espère avoir été concis

Claude Larocque, Montréal, Québec

[jpcheck]

Salut,

en alternative interessante aux variables/constantes publiques, je recommmande l'utilisation de tables de parametres.

Ici tu as le probleme du "hard coding", dont tu souhaites te debarrasser

Un peu de lecture a ce sujet pour trouver une idee facilement adaptable et redoutablement efficace

http://jpcheck.developpez.com/tutori...res-initiation