nul waarde niet weergeven

[Roma]

Beste
Ik heb een formulier waarmee ik gegevens uit een tabblad haal.
In één textbox word de waarde 0 weergegeven. Is het ook mogelijk om de waarde 0 in de textbox niet weer te geven?

 

[Scripter]

Zoiets misschien:

if x = 0 then 
textbox = ""
else
textbox = x
end if

 

[Roma]

beste scripter
Bedankt voor je supersnelle reactie. Helaas het werkt niet.

TextBox3.Value = Sheets("Controle").[D2].Value

In deze code moet het staan.

 

[gast0660]

Hoi,
Zonder vbtje ?
Deze mischien?

Private Sub TextBox3_Change()
TextBox3.Value = Sheets("Controle").[D2].Value
If TextBox3.Value = "0" Then
TextBox3.Value = ""
End If
End Sub

Groet

 

[edmoor]

Dan zou ik het zo doen:

    With Sheets("Controle").[D2]
        TextBox3.Value = IIf(.Value = 0, "", .Value)
    End With

 

[Roma]

Beste bedankt voor jullie reactie,
Het werkt bedankt.
Nu heb ik ook nog een textbox waarin de valuta vermeld staat.Is daar een andere formule voor als het op nul staat?

 

[edmoor]

Als het goed is kan je daar exact dezelfde code voor gebruiken.

 

[gast0660]

Hoi,
mischien een kleine aanpassing als je € gebruikt
Zoiets volgens de code van Edmoor

 With Sheets("Controle").[D2]
        TextBox3.Value = IIf(.Value = €:0, "€:", .Value)
    End With

Groet

 

[edmoor]

Nee. Er staat dan gewoon 0 in zo'n cel. De rest is opmaak.

 

[Roma]

De code van de textbox is:

If IsNumeric(TextBox4) Then tot = tot + CDbl(TextBox4)

 

[HSV]

Een vorige vraag van je ging ook over een nul in een textbox.
Zit je er nog mee te klooien?
Plaats een voorbeeldbestand dan hoeft niemand te gokken.