Taher DZ

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

نقلتها سابقا ولكن ما اشتغلت ولكن عندما وقفت Sleep اشتغل الكود بصفة عادية

بوركت استاذ على تعبك ولكن عندي مشكلة في تنفيد البروجرسبار ماعرفت اين تكمن كما في الصورة الرجاء التعديل على المرفق 2026.rar

لم اعرف بالضبط اين تم التعديل وزد على ذلك حتى البروجرسبار لا يظهر تقدمه اثناء عملية فتح ملف الورد خطوة بخطوة بل يظهر كليا بنسبة 100 % بعد فتح وغلف الملف ورد

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

بقيت مشاكل في النقل بالترتيب انظر المرفق استاذ نقل ورد.rar

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

عملت كل ما قلته لي استاذ ولكن لا اعرف اين المشكلة يمكن تذبذبت افكاري اصبح الكود لا ينقل القيم اصلا اي رجعنا لنقطة الصفر وهل استغنى عن هذا 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

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

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

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

اساتدتي بقيت لي لخبطة في بعض نقل القيم ارجو التعديل اذا امكن كما في الصورتين علما ان الصحيح مكتوب يدويا للمقارنة وهل يمكن انشاء الجدول تلقائيا بمجرد الفتح من اكسس واستنناء المبالغ المعدومة نقل ورد.rar

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

يبدو المشكلة في الورد لاني جربتها على جهاز اخر فتمت العملية بنجاح والان هل من فكرة يتم تحويل المبلغ ماليا وليس رقم مثلا في الاكسس. 4.390.000.00ينقلها في الورد 4390000

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