Récuperer une valeur au format boolean
Le
Jacques
Bonjour,
J’ai une table qui contient cet enregistrement :
Champ Intitulé = bolChampSelection
Champ Valeur = Selection
Dans un module cette ligne :
Case "bol"
GetParametre = CBool(Nz(DLookup("[Valeur]", "[tbl Parametres]", "[=
Intitulé]='" & strIntitule & "'"), 0))
Appel de la fonction :
bolChampSelection = GetParametre("bolChampSelection", "bol")
Mais bolChampSelection reste toujours vide.
Ou se trouve mon erreur ?
Merci de votre aide.
Salutations.
J’ai une table qui contient cet enregistrement :
Champ Intitulé = bolChampSelection
Champ Valeur = Selection
Dans un module cette ligne :
Case "bol"
GetParametre = CBool(Nz(DLookup("[Valeur]", "[tbl Parametres]", "[=
Intitulé]='" & strIntitule & "'"), 0))
Appel de la fonction :
bolChampSelection = GetParametre("bolChampSelection", "bol")
Mais bolChampSelection reste toujours vide.
Ou se trouve mon erreur ?
Merci de votre aide.
Salutations.
Bonsoir,
Il faudrait en savoir davantage... Peut-on voir l'intégralité de la
fonction GetParametre ?
Et le champ Valeur contient bien Vrai ou Faux (ou null) ?
db
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 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
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