Discussion :

[abdelillah00]

Bonjour,

je souhaite trouver une solution pour pouvoir concaténer le nom d'une table dont le nom est variable en fonction des inputs.

C'est à dire : exemple

Niv1 = DMax("Niv_mm", "T_Barémage_R1", " [Niv_mm] <= " & Fix(Niv_Eau_Initial))

Dans cette fonction, le R1 est variable en fonction d'un choix fait au préalable sur une liste box dans un formulaire. Il peut prendre les valeurs R1, R2, R3 ou bien R4.

Donc, le nom de la table doit être concaténer pour choisir la bonne table sachant que les tables T_Barémage_R1, T_Barémage_R2, T_Barémage_R3, T_Barémage_R4 sont identiques (Mème chams) à part les données quelles contiennent.

Ce code va me permettre d'eviter les condtion IF et ELSE pour chaque choix.

Ci dessous un extrait du code que j'ai réalisé et qui me retourne erreurs.



--------------------------------------------------------------------
Private Sub CMD_CALCULER_Click()

Dim sngTemp As Single
Dim sngDen15 As Single

' conversion de la saisie
sngNiv_Huile_Initial = CSng(Me.Niv_Huile_Initial)


BACX = BAC_EXP ' C'est le choix de la listbox (R1 ou R2 ou R3 ou R4)

Niv1 = DMax("Niv_mm", " "T_Barémage_" & BACX ", " [Niv_mm] <= " & Fix(Niv_Huile_Initial))

la base de donnée complète est en pièce jointe

CalProd Rev.1.rar

Merci d'avance

[tee_grandbois]

Bonjour,
Pour info, évite le type Single dans les tables si les valeurs utilisées ont maximum 4 décimales, utilise plutôt le Monétaire (Currency).
Il manquait un & avalt la double quote dans ton expression ", " [Niv_mm] , ce qui provoquait l'erreur :

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
Private Sub CMD_CALCULER_Click()
 
Dim sngTemp As Single
Dim sngDen15 As Single
Dim strBACX as String
' conversion de la saisie
sngNiv_Huile_Initial = CSng(Me.Niv_Huile_Initial)
 
strBACX = Me.BAC_EXP ' C'est le choix de la listbox (R1 ou R2 ou R3 ou R4)
 
Niv1 = DMax("Niv_mm", " "T_Barémage_" & strBACX & ", " [Niv_mm] <= " & Fix(Niv_Huile_Initial))
 
...
 
End Sub

[abdelillah00]

tee_grandbois

Merci pour votre réponse.

Cependant, j'ai toujours l'erreur expected : list separtor or ) mème avec le code que vous m'avez envoyé

Niv1 = DMax("Niv_mm", " "T_Barémage_" & strBACX & ", " [Niv_mm] <= " & Fix(Niv_Huile_Initial))

[tee_grandbois]

Code :

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

Niv1 = DMax("Niv_mm", "T_Barémage_" & strBACX, " [Niv_mm] <= " & Fix(Niv_Huile_Initial))

le contrôle Niv_Huile_Initial est inconnu

[abdelillah00]

Tee_grandbois

Merci beaucoup :-) !!!

Salutations