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

[Taher DZ]

السلام عليكم اساتذة هل من مساعدة بخصوص تعديل على كود نقل قيم من اكسس الى ورد بشرط كل مبلغ في مكانه  وشكرا

123.rar

[ابوخليل]

تفضل

123.rar

[Taher DZ]

1 ساعه مضت, ابوخليل said:

تفضل

شكرا استاذ ممكن نعرف ("A1")  Bookmarks   و("AA")Bookmarks             ماذا تعني حتى يتسنى لي فهمها وتطبيقها في ملفي مع السؤال المهم ماذا عدلت في ملف الورد

تم تعديل منذ 8 ساعات بواسطه Taher DZ

[ابوخليل]

("AA")   و ("A1") حتى ("A9")  هي اشارات مرجعية في ملف وورد  بحيث تم تعيين اشارة مرجعية لكل حقل في وورد

افتح وورد ثم من شريط القوائم اختر : ادراج او insert  >>> ثم انقر على Bookmark

سوف تتضح لك الطريقة

[Taher DZ]

11 دقائق مضت, ابوخليل said:

افتح وورد ثم من شريط القوائم اختر : ادراج او insert  >>> ثم انقر على Bookmark

bookmark بالعربي ماذا ؟ علما اني استعمل ورد 2010

[Taher DZ]

لقد تفطنت لها استاذ ولكن عند فتح ملف الورد من الاكسس يفتح كما في الصورة اين الخلل

[منتصر الانسي]

منذ ساعه, Taher DZ said:

لقد تفطنت لها استاذ ولكن عند فتح ملف الورد من الاكسس يفتح كما في الصورة اين الخلل

هذا لأن الكود يتعامل مع الوورد إصدار 2003

لذا قم بإضافة حرف x لإمتداد ملف الوورد بمعنى بدل هذا السطر

OpenClsword (CurrentProject.Path & "\123.doc")

إلى هذا السطر

OpenClsword (CurrentProject.Path & "\123.docx")

 

[Taher DZ]

9 دقائق مضت, منتصر الانسي said:

OpenClsword (CurrentProject.Path & "\123.docx")

نعم هي بصغة docx ولكن يبدو المشكلة في الفورم لان به  المربعات التي بها المبالغ محمية لاني صراحة عندما جربت فورم اخر وقمت بنزع الحماية وقمت بادخال المعلومات يدويا فتم نقل القيم الى الورد ساحاول معرفة السبب واذا لم اوفق سارفق الملف للتعديل من طرفكم وشكرا لكم 

[Taher DZ]

يبدو المشكلة في الورد لاني جربتها على جهاز اخر فتمت العملية بنجاح

والان هل من فكرة يتم تحويل المبلغ ماليا وليس رقم مثلا

في الاكسس.  4.390.000.00ينقلها في الورد  4390000

[kanory]

2 ساعات مضت, Taher DZ said:

والان هل من فكرة يتم تحويل المبلغ ماليا وليس رقم مثلا

في الاكسس.  4.390.000.00ينقلها في الورد  4390000

استبدل الكود بهذا  <><><><><><><>
 

Private Sub أمر0_Click()
On Error Resume Next
OpenClsword (CurrentProject.Path & "\123.doc")

Objwrd.ActiveDocument.Bookmarks("AA").Select
Objwrd.Selection.InsertAfter txtYear

Objwrd.ActiveDocument.Bookmarks("A1").Select
Objwrd.Selection.InsertAfter Format(tx1, "#,##0.00")

Objwrd.ActiveDocument.Bookmarks("A2").Select
Objwrd.Selection.InsertAfter Format(tx2, "#,##0.00")

Objwrd.ActiveDocument.Bookmarks("A3").Select
Objwrd.Selection.InsertAfter Format(tx3, "#,##0.00")

Objwrd.ActiveDocument.Bookmarks("A4").Select
Objwrd.Selection.InsertAfter Format(tx4, "#,##0.00")

Objwrd.ActiveDocument.Bookmarks("A5").Select
Objwrd.Selection.InsertAfter Format(tx5, "#,##0.00")

Objwrd.ActiveDocument.Bookmarks("A6").Select
Objwrd.Selection.InsertAfter Format(tx6, "#,##0.00")

Objwrd.ActiveDocument.Bookmarks("A7").Select
Objwrd.Selection.InsertAfter Format(tx7, "#,##0.00")

Objwrd.ActiveDocument.Bookmarks("A8").Select
Objwrd.Selection.InsertAfter Format(tx8, "#,##0.00")

Objwrd.ActiveDocument.Bookmarks("A9").Select
Objwrd.Selection.InsertAfter Format(tx9, "#,##0.00")

End Sub

 

[Taher DZ]

شكرا استاذ ربي يحفظك