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

[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

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

[kanory]

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

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

لما لا تستخدم مسح البيانات القديمة وادراج الجديد

[Taher DZ]

9 ساعات مضت, kanory said:

لما لا تستخدم مسح البيانات القديمة وادراج الجديد

فكرة استاذ وكيف لي ان انفذها 

[kkhalifa1960]

دمج المراسلات بطريقة (Bookmarks) غير موثوقة . يفضل استخدام طريقة (Content Controls) . لو حابب . الشرح + المرفق الاول معدل بها . وافني بالرد .

[Taher DZ]

57 دقائق مضت, kkhalifa1960 said:

المرفق الاول معدل بها . وافني بالرد .

اي مرفق تقصد استاذ لكي اطلع عليه

[kanory]

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

فكرة استاذ وكيف لي ان انفذها 

انشأ مديول وضع فيه هذا

Public Sub FillBookmark(BMName As String, BMValue As String)

Dim rng As Object

If Objwrd.ActiveDocument.Bookmarks.Exists(BMName) Then
    Set rng = Objwrd.ActiveDocument.Bookmarks(BMName).Range
    rng.Text = BMValue
    Objwrd.ActiveDocument.Bookmarks.Add BMName, rng
Else
    MsgBox "Bookmark غير موجود: " & BMName, vbExclamation
End If

End Sub

ثم استخدم هذا في الزر لديك

جرب واعلمنا بالنتيجة

Private Sub أمر0_Click()

On Error GoTo Err_Handler

'فتح ملف الوورد
OpenClsword (CurrentProject.Path & "\123.doc")

'تعبئة الـ Bookmarks بدون تكرار
Call FillBookmark("AA", txtYear)
Call FillBookmark("A1", Format(tx1, "#,##0.00"))
Call FillBookmark("A2", Format(tx2, "#,##0.00"))
Call FillBookmark("A3", Format(tx3, "#,##0.00"))
Call FillBookmark("A4", Format(tx4, "#,##0.00"))
Call FillBookmark("A5", Format(tx5, "#,##0.00"))
Call FillBookmark("A6", Format(tx6, "#,##0.00"))
Call FillBookmark("A7", Format(tx7, "#,##0.00"))
Call FillBookmark("A8", Format(tx8, "#,##0.00"))
Call FillBookmark("A9", Format(tx9, "#,##0.00"))

Exit Sub

Err_Handler:
MsgBox "حدث خطأ أثناء التصدير إلى الوورد", vbCritical

End Sub