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

[Taher DZ]

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

123.rar

[ابوخليل]

تفضل

123.rar

[Taher DZ]

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

تفضل

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

تم تعديل يناير 14 بواسطه 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]

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

[Taher DZ]

اساتدتي بقيت لي لخبطة في بعض نقل القيم ارجو التعديل اذا امكن 

كما في الصورتين علما ان الصحيح مكتوب يدويا للمقارنة

وهل يمكن انشاء الجدول تلقائيا بمجرد الفتح من اكسس واستنناء المبالغ المعدومة

 

 

نقل ورد.rar

تم تعديل يناير 15 بواسطه Taher DZ

[Taher DZ]

في 14‏/1‏/2026 at 21:11, kanory said:

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

هل من شيء يضاف الى الكود يمنع التكرار عند الدخول مرة ثانية او ثالثة اي لاينقل المبلغ مرة ثانية الا اذا كان فيه تعديل يقوم بتعديله واذا لم يكن يتركه على حاله