Para birimi textbox döngüsü hk

[chakistes]

İyi akşamlar arkadaşlar

textboxların isimlerini b olarak değiştirdim aşağıdaki kodu b1 den b20 ye kadar devam eden textboxları para birimi olarak b1 den b20 ye kadar textbox döngüsü nasıl kurabilirim

b1.Value = Format(b1.Value, "#,##0.00")

 

[Zeki Gürsoy]

For i = 1 To 20

    Me.Controls("b" & i) = FormatCurrency(Me.Controls("b" & i), 2)
    
Next

 

[chakistes]

kod için teşekkür ederim fakat
₺2,00 bu şekilde yaptı sonuna tl olarak nasıl değiştirebiliriz

 

[Zeki Gürsoy]

Bu şekilde deneyin...

[/SIZE]
[SIZE=2]For i = 1 To 20

    Me.Controls("b" & i) = Format$(Me.Controls("b" & i), "#,##0.00 TL")
    
Next
[/SIZE]
[SIZE=2]

 

[chakistes]

çok teşekkür ederim

 

[Zeki Gürsoy]

Rica ederim, kolay gelsin.

 

[chakistes]

kod çok işime yaradı