اذهب الي المحتوي
أوفيسنا

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

Taher DZ

بواسطه Taher DZ
في قسم الأكسيس Access

 مشاركة

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

Taher DZ

Taher DZ

قام بنشر
قام بنشر

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

123.rar

Taher DZ

Taher DZ

قام بنشر
  • الكاتب
قام بنشر (معدل)
1 ساعه مضت, ابوخليل said:

تفضل

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

تم تعديل بواسطه Taher DZ
ابوخليل

ابوخليل

قام بنشر
قام بنشر

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

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

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

Taher DZ

Taher DZ

قام بنشر
  • الكاتب
قام بنشر
11 دقائق مضت, ابوخليل said:

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

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

Taher DZ

Taher DZ

قام بنشر
  • الكاتب
قام بنشر

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

منتصر الانسي

منتصر الانسي

قام بنشر
قام بنشر
منذ ساعه, Taher DZ said:

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

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

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

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

إلى هذا السطر 

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

 

Taher DZ

Taher DZ

قام بنشر
  • الكاتب
قام بنشر
9 دقائق مضت, منتصر الانسي said: 
OpenClsword (CurrentProject.Path & "\123.docx")

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

Taher DZ

Taher DZ

قام بنشر
  • الكاتب
قام بنشر

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

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

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

kanory

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

 

  • Like 1
Taher DZ

Taher DZ

قام بنشر
  • الكاتب
قام بنشر (معدل)

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

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

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

2026-01-15_18-35-25.jpg.f3cd5f1d916d1c483c14eefc9946741f.jpg2026-01-15_18-37-45.jpg.4dfa54535d814f996794ceac15855eb0.jpg

 

 

نقل ورد.rar

تم تعديل بواسطه Taher DZ
  • 2 weeks later...
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

kanory

قام بنشر
قام بنشر
7 ساعات مضت, Taher DZ said:

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

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

  • Like 1
Taher DZ

Taher DZ

قام بنشر
  • الكاتب
قام بنشر
9 ساعات مضت, kanory said:

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

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

kkhalifa1960

kkhalifa1960

قام بنشر
قام بنشر

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

Taher DZ

Taher DZ

قام بنشر
  • الكاتب
قام بنشر
57 دقائق مضت, kkhalifa1960 said:

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

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

kanory

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

 

Taher DZ

Taher DZ

قام بنشر
  • الكاتب
قام بنشر (معدل)
2 ساعات مضت, kanory said:

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

 

عملت كل ما قلته لي استاذ ولكن لا اعرف اين المشكلة يمكن تذبذبت افكاري

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

وهل استغنى عن هذا 

Dim Objwrd As Object
Sub OpenClsword(Docfile As String)
On Error Resume Next
    Dim GetObjwrd As Object
    Dim ClsObjwrd As Object
    If Not IsFileOpen(Docfile) Then
    Set Objwrd = CreateObject("Word.Application")
    Objwrd.Documents.Open (Docfile)
    Objwrd.Visible = True
    ' Me.co1.Caption = "أغلاق وورد "
        Exit Sub
            End If
    Set GetObjwrd = GetObject(, "Word.Application")
    Set ClsObjwrd = GetObjwrd.Documents.Open(Docfile)
    GetObjwrd.Application.DisplayAlerts = False
    If GetObjwrd.ActiveDocument.Saved = True Then
    ClsObjwrd.Close
    GetObjwrd.Quit
        Else
    If MsgBox("هل تريد حفظ المستند", _
     vbQuestion + vbYesNo, _
      "حفظ المستند") = vbYes Then
      ClsObjwrd.Close
    GetObjwrd.Quit
      Else
   GetObjwrd.ActiveDocument.Saved = True
   ClsObjwrd.Close
   GetObjwrd.Quit
       End If
       End If
        Set Objwrd = Nothing
        Set GetObjwrd = Nothing
        Set ClsObjwrd = Nothing
     'Me.co1.Caption = "فتح وورد "
     End Sub

Function IsFileOpen(strFile As String) As Boolean
Dim i As Integer
i = FreeFile
If Dir(strFile) = "" Then IsFileOpen = False: Exit Function
Err = 0
On Error Resume Next
Open strFile For Binary Access Read Lock Read Write As #i
If Err Then IsFileOpen = True
Close #i
End Function

2025.rar

تم تعديل بواسطه Taher DZ
kkhalifa1960

kkhalifa1960

قام بنشر
قام بنشر (معدل)
18 ساعات مضت, Taher DZ said:

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

تفضل استاذ @Taher DZ الشرح بالتفصيل

بما ان Bookmarks ليست امنه نستخدم  Content Control بدلا منها

افتح ملف الوورد المراد وجهزه بالاماكن واذا لم يكن Developer Tab مفعل اتبع الخطوات التالية

خطوات تسمية Content Control في Word

تفعيل تبويب المطوّر (Developer Tab)

افتح Word → File → Options → Customize Ribbon.

فعل خيار Developer عشان يظهر في الشريط.

إدراج Content Control

من تبويب Developer اختر Plain Text Content Control أو Rich Text Content Control وضعه في المكان المطلوب.

فتح خصائص الحقل

اضغط على الـ Content Control اللي أضفته.

من تبويب Developer اضغط على زر Properties.

إدخال التعريف (Tag)

في نافذة الخصائص هتلاقي خانه مهمه:

Tag: يستخدمه الكود للتعامل مع الحقل.

اكتب مثلاً:

Tag = 1      وهكذا لباقي Content Controls  كما بالشرح المرفق
حفظ  مستند الوورد مثلاً باسم 1960

بعد تسمية كل Content Control، احفظ المستند.

الآن تقدر تستدعي الحقول بالكود  بالاسم (ContentControls.Item(1)).  اليك المرفق به نموذجان . جرب وأي استفسار انا حاضر .  ووافني بالرد .:fff:

                                                             image.thumb.gif.8f87e4e6415183985ec4c1150d980712.gif                                                               

Taher DZ.rar

تم تعديل بواسطه kkhalifa1960
  • Like 1
Taher DZ

Taher DZ

قام بنشر
  • الكاتب
قام بنشر
4 ساعات مضت, kkhalifa1960 said:

جرب وأي استفسار انا حاضر .  ووافني بالرد .:fff:

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

Foksh

Foksh

قام بنشر
قام بنشر
5 ساعات مضت, kkhalifa1960 said:

بما ان Bookmarks ليست امنه نستخدم  Content Control بدلا منها

دفعني الفضول للسؤال عن هذه النقطة والتوضيح لها أستاذ خليفة ،،

لماذا ليست آمنة !!!

Taher DZ

Taher DZ

قام بنشر
  • الكاتب
قام بنشر

 

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

بالنسبة للسنة محتاجها اكثر من موضع في ملف الورد عملت العلامة رقم 1  لكل المواضع التي احتاج بها السنة ولكنها نقلت قيم اخرى هل لك فكرة

بقيت مشاكل في النقل بالترتيب

انظر المرفق استاذ

 

نقل ورد.rar

kkhalifa1960

kkhalifa1960

قام بنشر
قام بنشر
7 ساعات مضت, Taher DZ said:

بالنسبة للسنة محتاجها اكثر من موضع في ملف الورد عملت العلامة رقم 1  لكل المواضع التي احتاج بها السنة ولكنها نقلت قيم اخرى هل لك فكرة

بما انك وصلت لهنا النتيجة انك فهمت الموضوع لكن اذكرك لاتنسى حفظ مستند الوورد بعد أي تعديل   .  تفضل المرفق بعد التعديل بطلبك  4 اماكن مختلفة . طالع كود الاكسس ومستند الوورد .

اليك المرفق .:fff:

6 ساعات مضت, Foksh said:

لماذا ليست آمنة !!!

هذه الطريقة لا تمنع المستخدم من تعديل النصوص المدمجة بشكل عشوائي . كما ظهرت في تجارب المستخدم السابقة .:fff:

Taher DZ-1.rar

Moosak

Moosak

قام بنشر
قام بنشر
14 ساعات مضت, kkhalifa1960 said:

بما ان Bookmarks ليست امنه نستخدم  Content Control بدلا منها

 

فعلا مع التجربة لاحظت أن البوكمارك يمكن أن تنحذف أو تنلغي بسهولة مع أي تعديل للملف ..
فكرتك عبقرية فعلا :rol:👌

  • Thanks 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

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

×
×
  • اضف...

Important Information

  I accept