ابوخليل

مطلوبك واضح والحل هو ما ذكرته لك لعلي اجد متسعا من الوقت وسأعمل لك مثالا يساعدك على فهم ما ذكرت لك

السلام عليكم حلوة جدا تصاميم الواجهات وهذا يدل على صاحبها وذوقه الرفيع واضح ان مطلوبك يتركز حول الترقيم التلقائي المنوع اولا انظر الى هذا الموضوع فهو يتحدث عن هذا الشأن http://www.officena.net/ib/index.php?showtopic=49961#entry305187 ثانيا : وركز معي ؛ عند ربط جدولين رئيسي وفرعي بعلاقة متكاملة ثم انشاء نموذج رئيسي واخر فرعي فاننا حين نختار الرقم المعرف صاحب العلاقة (رقم المجموعة ) في النموذج الرئيسي فانه سينتقل الرقم آليا الى النموذج الفرعي ( رقم المجموعة ) وبكذا تكون قطعت نصف الطريق حينها يمكنك عمل ترقيم تلقائي آخر داخل الفرعي يبدأ من الواحد لتطبيق ما ذكرته اعلاه يمكنك ارفاق مثال بجدولين ونموذجين فقط فقط واجعله على الامتداد mdb

كما هو ظاهر يوضع في حدث عند تحميل النموذج ( نموذج بداية التشغيل )

وجدت في مكتبتي هذا المثال لابن مسقط وهو يعالج هذه الجزئية إيقاف بالمدة.rar

Private Sub Form_Load() Dim xdate As Date Dim Ndate As String Dim mssg As String xdate = #12/23/2014# If xdate <= Date Then MsgBox "انتهت الفترة التجريبية فضلا اتصل على 123456789" Quit Else Ndate = CStr(xdate - Date) mssg = "المدة المتبقية" & " " & Ndate & " " & "يوم" MsgBox mssg DoCmd.Close End If End Sub

السلام عليكم حاول استيراد كائنات القاعدة هذه في قاعدة جديدة

السلام عليكم اخونا عبدالفتاح اسأل الله الكريم لك العفو والمعافاة اخونا ابو آلاء مطلوبك مقدور عليه ولكني لم اتمكن من رؤية الامثلة بسبب استخدامي لاكسس 2003 المطلوب منك ارفاق جدول ببعض المحافظات واكوادها ايضا جدولا آخر بكم اسم كذا مع ارقامهم القومية اجعل المرفق على الامتداد mdb

dim i as integer i=dlookup("raseed","jadwal") if text1>i then msgbox"الرصيد & i & اقل من المطلوب " Undo exit sub end if text1 هو حقل الطلب raseed هو حقل الرصيد jadwal هو الجدول المشتمل على حقل الرصيد اجعل الكود اعلاه في حدث بعد التحديث لحقل الطلب

جرب هذه الطريقة ان كانت تناسبك ss11.rar

جرب على جهاز آخر .. لعل وعسى

اولا : خفض امان وندز الى الحد الأدنى ثم اعد تشغيل النظام ثانيا : تسجيل المكتبة هنا C:\WINDOWS\SysWOW64\barcodex.ocx

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

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

بل له علاقة عند اختلاف النظام انسخ وسجل ملف الاكتف داخل المجلد sysWow64 هذا المجلد تجده بجانب المجلد system32

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

جرب هذه : Dim m M = NZ(Dlookup("cod","cod_info")) If m = 0 then End if

لعل هذا الرابط يفيدك http://www.officena.net/ib/index.php?showtopic=56108&hl=

هل تصلح لك هذه الطريقة انظر استعلام التوحيد داخل المثال db1.rar

كل الاعضاء عندهم او يستطيعون عمل ذك ويمكنهم التواصل معك عبر الخاص ينقل لقسم الاعلانات

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

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

بالطبع لا المشكلة موجودة في اول مثال وقد عالجتها في مثالي الاخير فلم تعد تظهر ولا ادري لماذا تظهر عندك حاول صياغة الاكواد بطريقة أخرى واساس المشكلة او اصلها كالتالي : حين ندخل بيانات فأنها تثبت في الجدول ثم نقوم بالخطوة الثانية وهي المسح ( وليس الحذف ) فتختفي البيانات مع بقاء السجل فارغ الحل : احد امرين : الاول :تغيير الكود الى حذف السجل بعبارة sql او استعلام حذف الثاني : جعل النموذج غير منضم والحاق البيانات بـ sql او استعلام الحاق ايضا

هذه المشاركة مكانها منتدى اكسل انظر هنا ... اعتقد هو مطلوبك http://www.officena.net/ib/index.php?showtopic=44222#entry257375 http://www.officena.net/ib/index.php?showtopic=45984#entry273031

تفضل تم سحب الجداول احصائية الانسولين2.rar

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