20-05-13, 11:23 AM
شكرا لكم
هذا الحل
Dim fmt As StdDataFormat
Set fmt = New StdDataFormat
fmt.Type = fmtCustom
fmt.Format = "#,##0.00"
Set FatoraT.Sections("section1").Controls("text1").DataFormat = fmt
Set FatoraT.Sections("section1").Controls("text3").DataFormat = fmt
Set FatoraT.Sections("section1").Controls("text4").DataFormat = fmt
هذا الحل
Dim fmt As StdDataFormat
Set fmt = New StdDataFormat
fmt.Type = fmtCustom
fmt.Format = "#,##0.00"
Set FatoraT.Sections("section1").Controls("text1").DataFormat = fmt
Set FatoraT.Sections("section1").Controls("text3").DataFormat = fmt
Set FatoraT.Sections("section1").Controls("text4").DataFormat = fmt
