mrnooo2000

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

اخوانى الكرام اشكر جميع الاخوة على التواصل القائمة النهائية الان 1- الصلاحيات و المستخدمين 2- متابعة العمليات على الجداول ( الاضافة و التعديل ) 3- حماية القاعدة من النسخ 4- اخفاء شاشة الاكسس 5- اخفاء الجداول و باقى الكائنات 6- النسخ الاحتياطى 7- الضغط و الاصلا…

استخدم التنسيق الشرطى db3.rar

اخى الكريم ضع المسار مباشرة هكذا MyFile = Dir( "E:\test\tt.mdb")

ما شاء الله قائمة اقتراحات كاملة تصلح لبرنامج منفصل و كلها جيدة عموما ننتظر مشاركتك اخى الكريم و ننتظر ابداعاتك و اعتقد ان الامر بعد هذه القائمة المقدمة منك قد انتهى و اعتقد ان الموضوع الان كافى تماما سننتظر اليوم و نبدأ فى تقسيم العمل للمشاركين بدء من الغد ان…

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

تفضل اخ وليد اليك طلبك بطريقتين واحدة فى التقرير و واحدة فى النموذج up.rar

استخدم هذا الكود فى حدث الزر و عدل المسار الى ما لديك Dim MyFile, MyPath, MyName MyFile = Dir(CurrentProject.Path & "\1.mdb") If Len(MyFile) = 0 Then MsgBox "الملف غير موجود" Else ExecuteFile CurrentProject.Path & "\1.mdb" End If

؟؟؟؟؟ مش فاهم قصدك ايه هل تقصد احداث فى الجدول فى حد علمى هذا غبر متاح ممكن ذلك باضافة ملفات run time الخاصة بالاكسس 2007 لكن سيحتاج ذلك الى تسطيب البرنامج على الجهاز اضافة جيدة

استخدم هذا الكود فى حدث عند الضغط للزر Dim x x = Me.OpenArgs DoCmd.Close DoCmd.OpenForm "from1", , , , , , x بالنسبة للنموذج الثانى استخدم نفس الكود مع تغيير اسم النموذج و اليك المرفق الحسابات 4.rar

اخى الكريم ضع هذا الكود فى النموذج Const SW_SHOWNORMAL As Long = 1 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal l…

بعد اذن اخى ابو عدنان تفضل اخى لا اعلم على اى حقل ستتم المقارنة فى المثال تتم المقارنة على الحقول الثلاثة بالجدولين و يتم عرض النتائج من خلال استعلام توحيد و تظهر السجلات و امامها رقم صفر للسجلات الموجودة بالجدولين و تظهر السجلات و امامها رقم واحد للسجلات المو…

دائما تأتينا بكل ما هو رائع و جميل أستاذنا أبو عدنان بارك الله فيك و فى مالك و ولدك لكن ملاحظة بسيطة حقل ال pass يحتاج ان يكون حجمه اكبر من ذلك لان مسار القاعدة من المحتمل ان يكون اكبر من 50 و ذلك فى الجدول MSys_Pass

تفضل اخى اليك ما طلبت الحسابات 4.rar

لايمكن اضافة زر الى التقرير فى 2003 لكن ممكن عمل قائمة لزر الماوس الايمن و تضع بها امر الاغلاق

جرب اخى استبدال الكود الذى يظهر به الخطأ بالكود التالى If val(Me.Total) Mod val(Me.Qest) > 0 Then

اخى القاعدة تعمل لذى يرجى توضيح ماهية المشكلة عموما الموضوع بسيط اليك المعادلة Qactual = IIf(Qorder Mod Qmin = 0, Qorder, Qmin * (Int(Qorder / Qmin) + 1)) حيث َ الكمية المطلوبة Qorder Qmin أقل انتاجية Qactual الكمية الفعلية

تفضل اخى db2.rar

ضع مرفقك ليتم التطبيق عليه

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