Access' ten Userform' a veri çekerken sayısal ifadelerde virgül yenine nokta gelme durumu

[tamer42]

Merhabalar,

Acces veritabanında sayısal olarak yazan bir alandaki veriyi Userform' da Textbox içine çekerken;
Örnek: 123,54 sayısal değerini Text Box içene yazarkan ondalık bölümde virgül yerine nokta olarak 123.54 şeklinde yazıyor.
Bu durumu Aşağıdaki gibi TextBox_Change olayı ile çözmeye çalıştım ama çok içime sinmedi, yalnız bunun daha farklı ve daha profesyonel bir yolu olabilir mi?

  Set rst = New ADODB.Recordset
 
    SQL = "Select * From tbl_Orders"

    SQL = SQL & " Where Id= " & sId
  
     rst.Open SQL, cn, 1, 3

   Userform1.txtQuantity.Value = vbNull(rst!Miktar)

Private Sub txtQuantity_Change()

   If InStr(1, txtQuantity, ".") > 0 Then txtQuantity.Value = Replace(txtQuantity, ".", ",")
    
    Me.txtQuantity = Format(txtQuantity.Value, "#,##0")
End Sub

yardımlarınız için şimdiden teşekkürler,
iyi Çalışamalar..

 

[muhasebeciyiz]

Set rst = New ADODB.Recordset

SQL = "Select * From tbl_Orders"
SQL = SQL & " Where Id= " & sId

rst.Open SQL, cn, 1, 3

Userform1.txtQuantity.Value = Replace(CStr(rst!Miktar), ".", ",")

veya

Private Sub txtQuantity_Change()
If InStr(1, txtQuantity, ".") > 0 Then txtQuantity.Value = Replace(txtQuantity, ".", ",")
End If

txtQuantity.Value = Format(CDec(txtQuantity.Value), "#,##0.00")
End Sub

Hocam fikir verme açısından böyle birşey sizce olabilirmi ?

 

[tamer42]

Set rst = New ADODB.Recordset

SQL = "Select * From tbl_Orders"
SQL = SQL & " Where Id= " & sId

rst.Open SQL, cn, 1, 3

Userform1.txtQuantity.Value = Replace(CStr(rst!Miktar), ".", ",")

veya

Private Sub txtQuantity_Change()
If InStr(1, txtQuantity, ".") > 0 Then txtQuantity.Value = Replace(txtQuantity, ".", ",")
End If

txtQuantity.Value = Format(CDec(txtQuantity.Value), "#,##0.00")
End Sub

Hocam fikir verme açısından böyle birşey sizce olabilirmi ?

bence bu çözüm güzel bir fikir teşekkür ederim.

Userform1.txtQuantity.Value = Replace(CStr(rst!Miktar), ".", ",")

 

[FERAZ]

Merhaba.
Denemedim ama sanıyorum önceden denk gelmiştim.Alttaki gibi vaL olarak vir deneyin.

Val(rst!Miktar)