kanory

انظر المرفق ..... ربما هو طلبك ... pro.accdb

ممكن مثال لمطلوبك للتوضيح ...

الحمد لله رب العالمين

me.kan=" "

طيب بلاش الكود .... جرب المرفق عسى يكون المطلوب ... kan_a.accdb

استخدم هذا الكود .... Call SetWindowPos(handleW1, 0, 0, 0, 0, 0, TOGGLE_UNHIDEWINDOW)

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

وعليكم السلام اوقف عمل هذا الجزء 'Me.Undo

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

حياك الله شيخ الزهارين ..... بالتوفيق ... ليش حذف افضل اجابة ؟؟؟؟؟ ههههههه

انسخ ملفات ال PDF الى مجلد بجوار القاعدة وسمي المجلد مثلا Kanory ثم استبدل الكود لديك بهذا الكود ... Me.AcroPDF1.LoadFile (CurrentProject.Path & "\" & "kanory" & "\" & Me.mo3amlano & ".pdf") Me.AcroPDF1.setShowToolbar (False) Me.AcroPDF1.Height = 5000 Me.AcroPDF1.Width = 10000 Me.AcroPDF1.setView ("FullScreen") Me.AcroPDF1.Visible = True كدة هيشتغل معاك البرنامج في اي مكان في جهاز الحاسب بدون مشاكل .... بشرط وجود مجلد Kanory بجوار القاعدة .....

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

ملفات ال PDF بدلا من 1 - 2 -3 اصبجت برقم العميل 11 - 12 - 13 عدلها

شيك على المكتبات لديك حسب الصورة ... لأان البرنامج يعمل لدي ....

وعليكم السلام لاحظ تغيير اسماء ملفات PDF حسب رقم الموظف ..... جرب المرفق واعلمنا بيالنتيجة mm.rar

واياك ...

مثالك بعد التعديل ..... تعديل (1).mdb تم تعديل الحدث ... Me.Text72 = Mid(Costomer, 1, 12) & "0" & Mid(Costomer, 13, 2)

حسب الصورة لاستعلامات التحديث .... اضافة 0401 اضاف 000 حذف اول رقمين حذف اول سته ارقام عكس شرحك ..... ارجو التوضيح ..... على العموم انظر المرفق بدون الحاجة للاستعلامات ..... فقط ادخل الرقم ثم انتر تجد الرقم معدل مباشرة جرب وأعلمنا بالنتيجة ... تعديل (1).mdb تم استخدام هذا الحدث .... Me.Text72 = "0401" & Mid(Costomer, 7, 8) & "000"

مشاركة بالفكرة السابقة ..... للتجربة على ملفك ........ kanory.mdb

فكرة بفكرة يمكن تنفيذها وهي : اولا نحتاج تغيير امتداد ملفك الى ملف امتداد ملف اكسس ثانيا نفحص هذا الملف هل هو ملف اكسس صالح فيعطي رسالة بذلك او معطوب فيعطي رسالة ايضا بذلك . . . . افكر في تنفيذها إن اردت .... جاري العمل على ذلك ..............

ربما هذا يفيدك .... copy.accdb

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

ممكن مثال لماتريد للتطبيق عليه

استخدم هذا الفانك ولاحظ التغيرات وحاول فهم التعديل ...... Function kanory1() On Error Resume Next Dim RSB As DAO.Recordset Dim RSD As DAO.Recordset Dim RSJ As DAO.Recordset Set RSB = CurrentDb.OpenRecordset("tblTempS", 2) Set RSD = CurrentDb.OpenRecordset("tblTempe", 2) Set RSJ = CurrentDb.OpenRecordset("tblTempS", 2) Dim I As Integer ', ClassDay As String, BM RSB.MoveLast RSB.Edit RSB!F24 = "الجهة" RSB.Update RSB.MoveFirst '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Do Until RSB.EOF see: If RSB!F24 Like "*الجهة*" Then g = RSB!f7 ' ElseIf RSB!F20 Like "*الخدمة الرئيسية*" Then ' t = RSB!f5 ' ElseIf RSB!F20 Like "*الخدمة الفرعية*" Then ' s = RSB!f6 End If RSB.MoveNext If RSB!F24 Like "*الجهة*" Then GoTo se Loop '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ se: Do Until RSJ.EOF If IsNumeric(RSJ!F25) Then RSD.AddNew RSD!f3 = RSJ!F2 RSD!f4 = RSJ!F25 RSD!f5 = RSJ!F22 RSD!F6 = RSJ!F18 RSD!f7 = RSJ!F16 RSD!F8 = RSJ!f14 RSD!F9 = RSJ!F13 RSD!F10 = RSJ!F10 RSD!f11 = RSJ!F8 RSD!f12 = RSJ!F6 RSD!f1 = g ' RSD!F2 = t ' RSD!f3 = s RSD.Update End If RSJ.MoveNext If RSJ!F24 Like "*الجهة*" Then g = "" t = "" s = "" GoTo see End If Loop DoCmd.OpenTable "tblTempe" DoCmd.Close acForm, "frmdrjat" End Function

تابع هذا الموضوع