مساعدة فى ايجاد حل لمشكلة ارسال البيانات الى الورد (مع تنسيق الارقام)

[عمر ضاحى]

السلام عليكم 

كل عام وانتم بخير

اساتذتي الكرام حفظكم الله وبارك الله فى اعماركم واولادكم واموالكم 

بعد اذن حضرتكم 

معي مشكله فى هذا الكود

        Dim X As Object
        Dim objWord As Object
        Dim FORAMOUNT As Integer
        FORAMOUNT = Format(txtPOAmount, "0,0.00")
        Set X = CreateObject("Word.Application")
        X.Documents.Open CurrentProject.Path & "\PayReqForm.doc"
        X.Visible = True
        X.ActiveDocument.Bookmarks("txtPONO").Select
        X.Selection.InsertAfter txtPONO
        X.ActiveDocument.Bookmarks("cbLPOSuppliersName").Select
        X.Selection.InsertAfter cbLPOSuppliersName
        X.ActiveDocument.Bookmarks("txtPOAmount").Select
        X.Selection.InsertAfter FORAMOUNT
        X.ActiveDocument.saveas2 CurrentProject.Path & "\" & txtPONO & "   " & Format(Now(), "dd_mm_yyyy HH_MM__AM/PM") & ".doc"
        X.ActiveDocument.Close savechanges:=0
        X.Quit
        MsgBox "DONE"

المشكله ان لما بيتم ارسال الرقم الى ملف الورد 

بيتم ارساله بدون الفاصله او حتى الارقام العشريه الصفريه مثل 1.00

جربت استخدم دالة FORMAT زي ما هو واضح فى الكود 

FORAMOUNT = Format(txtPOAmount, "0,0.00")

لكن بيتم ارسال الرقم كما هو دون تنسيق 

يعنى الرقم مثل 123456 المفترض انه يظهر فى الورد هكذا  123,456.00

لكن لا يحصل هذا ويتم ارساله كما هو ك 123456

هل لهذا المشكله من حل ؟

 

ولكم جزيل الشكر

[jjafferr]

11 دقائق مضت, عمر ضاحى said:

Dim FORAMOUNT As Integer

انت تجبره على هذا 🙂

 

جرب

Dim FORAMOUNT As double

 

جعفر

[عمر ضاحى]

10 دقائق مضت, jjafferr said:

انت تجبره على هذا 🙂

 

جرب

Dim FORAMOUNT As double

 

جعفر

للاسف ليس هذا الحل

المشكله كما هي

[عمر ضاحى]

ظبطة لما حذفت double

وجعلتها هكذا

Dim FORAMOUNT

او 

Dim FORAMOUNT As String