Pour la fonction GetParametre je ne mintéressé que du cas Cbool, les autres viendront après Si cela est possible.
Public Function GetParametre(strIntitule As String, strType As String) As V ariant Select Case LCase(strType) Case "bol" GetParametre = CBool(Nz(DLookup("[Valeur]", "[tbl Parametres]", "[ Intitulé]=" & CBool(strIntitule) & ""), 0))
Case Else GetParametre = Nz(DLookup("[Valeur]", "[tbl Parametres]", "[Intitu le]='" & strIntitule & "'"), "") End Select End Function
Le champ valeur de la table paramètres il est du type texte.
Salutations
Le jeudi 31 janvier 2013 10:28:23 UTC+1, Jacques a écrit :
Pour la fonction GetParametre je ne mintéressé que du cas Cbool, les autres viendront après
Si cela est possible.
Public Function GetParametre(strIntitule As String, strType As String) As V ariant
Select Case LCase(strType)
Case "bol"
GetParametre = CBool(Nz(DLookup("[Valeur]", "[tbl Parametres]", "[ Intitulé]=" & CBool(strIntitule) & ""), 0))
Case Else
GetParametre = Nz(DLookup("[Valeur]", "[tbl Parametres]", "[Intitu le]='" & strIntitule & "'"), "")
End Select
End Function
Le champ valeur de la table paramètres il est du type texte.
Pour la fonction GetParametre je ne mintéressé que du cas Cbool, les autres viendront après Si cela est possible.
Public Function GetParametre(strIntitule As String, strType As String) As V ariant Select Case LCase(strType) Case "bol" GetParametre = CBool(Nz(DLookup("[Valeur]", "[tbl Parametres]", "[ Intitulé]=" & CBool(strIntitule) & ""), 0))
Case Else GetParametre = Nz(DLookup("[Valeur]", "[tbl Parametres]", "[Intitu le]='" & strIntitule & "'"), "") End Select End Function
Le champ valeur de la table paramètres il est du type texte.
Salutations
db
Le 01/02/2013 16:39, Jacques a écrit :
Merci pour ta réponse.
Pour la fonction GetParametre je ne m’intéressé que du cas Cbool, les autres viendront après Si cela est possible.
Public Function GetParametre(strIntitule As String, strType As String) As Variant Select Case LCase(strType) Case "bol" GetParametre = CBool(Nz(DLookup("[Valeur]", "[tbl Parametres]", "[Intitulé]=" & CBool(strIntitule) & ""), 0))
Case Else GetParametre = Nz(DLookup("[Valeur]", "[tbl Parametres]", "[Intitule]='" & strIntitule & "'"), "") End Select End Function
Le champ valeur de la table paramètres il est du type texte.
Salutations
Bonsoir,
La fonction CBool renvoie un booléen, et son paramètre doit être soit "true" ou "false" (éventuellement localisés), ou un nombre (toute valeur différente de 0 renverra Vrai).
Dans votre cas, si la fonction DLookup("[Valeur]", "[tbl Parametres]", "[Intitulé]=" & strIntitule & "'"
renvoie autre chose que "True"(ou "vrai") ou "False" (ou "faux"), vous aurez un message d'erreur d'incompatibilité de type.
Si le contenu du champ Valeur est "Sélection", la fonction cBool ne pourra pas ... fonctionner !
db
Le 01/02/2013 16:39, Jacques a écrit :
Merci pour ta réponse.
Pour la fonction GetParametre je ne m’intéressé que du cas Cbool, les autres viendront après
Si cela est possible.
Public Function GetParametre(strIntitule As String, strType As String) As Variant
Select Case LCase(strType)
Case "bol"
GetParametre = CBool(Nz(DLookup("[Valeur]", "[tbl Parametres]", "[Intitulé]=" & CBool(strIntitule) & ""), 0))
Case Else
GetParametre = Nz(DLookup("[Valeur]", "[tbl Parametres]", "[Intitule]='" & strIntitule & "'"), "")
End Select
End Function
Le champ valeur de la table paramètres il est du type texte.
Salutations
Bonsoir,
La fonction CBool renvoie un booléen, et son paramètre doit être soit
"true" ou "false" (éventuellement localisés), ou un nombre (toute valeur
différente de 0 renverra Vrai).
Dans votre cas, si la fonction
DLookup("[Valeur]", "[tbl Parametres]", "[Intitulé]=" & strIntitule & "'"
renvoie autre chose que "True"(ou "vrai") ou "False" (ou "faux"), vous
aurez un message d'erreur d'incompatibilité de type.
Si le contenu du champ Valeur est "Sélection", la fonction cBool ne
pourra pas ... fonctionner !
Pour la fonction GetParametre je ne m’intéressé que du cas Cbool, les autres viendront après Si cela est possible.
Public Function GetParametre(strIntitule As String, strType As String) As Variant Select Case LCase(strType) Case "bol" GetParametre = CBool(Nz(DLookup("[Valeur]", "[tbl Parametres]", "[Intitulé]=" & CBool(strIntitule) & ""), 0))
Case Else GetParametre = Nz(DLookup("[Valeur]", "[tbl Parametres]", "[Intitule]='" & strIntitule & "'"), "") End Select End Function
Le champ valeur de la table paramètres il est du type texte.
Salutations
Bonsoir,
La fonction CBool renvoie un booléen, et son paramètre doit être soit "true" ou "false" (éventuellement localisés), ou un nombre (toute valeur différente de 0 renverra Vrai).
Dans votre cas, si la fonction DLookup("[Valeur]", "[tbl Parametres]", "[Intitulé]=" & strIntitule & "'"
renvoie autre chose que "True"(ou "vrai") ou "False" (ou "faux"), vous aurez un message d'erreur d'incompatibilité de type.
Si le contenu du champ Valeur est "Sélection", la fonction cBool ne pourra pas ... fonctionner !