اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


عمر ضاحى
إذهب إلى أفضل إجابة Solved by عمر ضاحى,

الردود الموصى بها

السلام عليكم 

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

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

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

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

        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

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

 

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

رابط هذا التعليق
شارك

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

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

 

جرب

Dim FORAMOUNT As double

 

جعفر

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information