supprimer erreur ‘utilisation incorrecte de nul’ dans classeur fermé

[hemardjean]

Bonjour le forum

j’ai réalisé un userform avec des comboboxs avec classeur fermé ADO.

Le petit soucis qui m’amène à poser la question se situe dans le classeur BD source, si des cellules sont vides cela génère un code erreur « utilisation incorrecte de nul » existe il un code à placer dans le classeur principal pour supprimer cette erreur.

je vous joins un dossier pour plus de compréhension

Merci à vous pour vos réponses

Cordialement

 

[Guest]

Re : supprimer erreur ‘utilisation incorrecte de nul’ dans classeur fermé

Bonjour,

Avant d'utiliser la valeur d'un champ il faut en vérifier la non nullité.

Proposition: petite fonction:

Private Function NZ(Champ As ADODB.Field, ValeurParDefaut As Variant)
   If IsNull(Champ.Value) Then NZ = ValeurParDefaut Else NZ = champ.Value
End Function

Utilisation

passer le champ à la fonction ainsi que la valeur de retour au cas ou le champ ait une valeur nulle.

Label2 = NZ(rs("Titre"),"inconnu")

Si rs("Titre") n'est pas null il sera renvoyé par la fonction sinon ce sera la valeur du paramètre (valeurParDefaut)

A+

 

[hemardjean]

Re : supprimer erreur ‘utilisation incorrecte de nul’ dans classeur fermé

Bonjour Hasco et le forum

Merci pour ta reponse .
Il ne me reste plus qu'à placer le code dans l'Userform et les LaBels .
Cordialement