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

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

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

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

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

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

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

سجل حساب جديد

تسجيل دخول

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

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

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

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

Important Information

  I accept