mettre un "-" dans un champ vide [VB6]Résolu

Question

Bonjour
dans le champ "affiche" de ma table j'ai mis valeur par d&#233;faut "-",mais lorsque se champ est vide il n'y pas de -. 
voila mon code pour enregistr&#233; dans la table :
requete = "INSERT INTO Articles (code_psa,article_psa,codemabec_psa,famille_psa,cat&#233;gorie_psa, " _
        & "stock_psa,observation_psa,ger&#233;_psa,divers_psa,affiche) VALUES " _
        & "(" & MaX & ",""" & Txt_article & """,""" & txt_code & """," _
        & """" & comb_famille & """,""" & Comb_cat&#233; & """,""" & Txt_stock & """," _
        & """" & Txt_Obs & """,""" & ger&#233; & """,""" & Text1 & """,""" & CStr(imgAffiche.ToolTipText) & """)"
   
    Db.Execute requete
    requete = ""
comment faire pour lui mettre un tiret lorsque se champ est vide.
merci
@ plus
petchy

Sniper_Vgaerr · Accepted Answer

Salut,

Tu fais :
If  imgAffiche.ToolTipText = "" then
   imgAffiche.ToolTipText = "-"
End If

requete = "INSERT INTO Articles (code_psa,article_psa,codemabec_psa,famille_psa,cat&#233;gorie_psa, " _
        & "stock_psa,observation_psa,ger&#233;_psa,divers_psa,affiche) VALUES " _
        & "(" & MaX & ",""" & Txt_article & """,""" & txt_code & """," _
        & """" & comb_famille & """,""" & Comb_cat&#233; & """,""" & Txt_stock & """," _
        & """" & Txt_Obs & """,""" & ger&#233; & """,""" & Text1 & """,""" & CStr(imgAffiche.ToolTipText) & """)"
Db.Execute requete
requete = ""

Voila
@+

cs_petchy · Answer

un grand merci pour ta r&#233;ponse,&#231;a fonctionne &#224; merveille. 
@ plus

Sniper_Vgaerr · Answer

Re,

De rien il n'y a pas de quoi.
@+
Bon prog

Mettre un "-" dans un champ vide [VB6]

3 réponses

Discussions similaires