ابوخليل

المرفق يشرح الفكرة db1.rar

فيما اذكر الاستاذ محمد صالح له مشاركة في قسم الاكسس تعالج هذه الاشكالية

طبعا ذكرت لك ما يمر بي غالبا والعلاج المتبع وبالنسبة للرسالة فلم ارها و لم تظهر لي من قبل اعانك الله اخي الحبيب

عبدالله ، وعبدالرحمن ............ لا بأس بأن لا نترك بينها فراغا ولكن كيف بــ صلاحالدين ... ونحوه افضل طريقة عند عمل المشاريع هو كتابة الاسم الرباعي مجزأً في حقول عدة وحينئذ نحن بغنى عن اكواد او معادلات اضافية حيث ان تجميع الاسماء كما تعلمون يسير

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

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

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

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

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