evité les valeurs NULLs

Question

bonjour 
j'ai un petit probleme au niveau de l'insertion dans une base de données ACcESS
je fais un control sur les caracteres spéciaux mais j'arrive pas a evité le probleme
de champ vide (il affiche null non autorisé)
les controles chaine vide "autorisé" et null interdit "non" sous access
voila la fonction pouvez vous m'aidé 



Private Function QQuoteSQL(str As Variant) As String
    
    QQuoteSQL = Replace(str, "'", " ")
    QQuoteSQL = Replace(QQuoteSQL, "
", " ")
    QQuoteSQL = Replace(QQuoteSQL, "", " vide ")



 End Function


je rapelle que c'est un programme de conversion Excel-->Access 
merci beaucoup

cboulas · Answer

Salut,

essai ces codes :

if QQuoteSQL is nothing then .....
if QQuoteSQL.Lenght = 0 then .....

Chris...
Web : Firstruner

kammegg · Answer

en fait j'avais le même problème.
je te propose ce code, ça a marché avec moi :

if isDBNULL(champ1) then
     Me.TextBox1.text=""
Else
     Me.TextBox1.text=champ1
EndIf

jrivet · Answer

Salut,

IsDBNULL Fonctionne en VB6???

J'aurais plutot dit IsNULL.

Mais ceci n'engage que moi

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée

Evité les valeurs NULLs

3 réponses

Votre réponse

Discussions similaires