ابوخليل

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

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

اخي الحبيب الرقم 64 لم يأتي ذكره في المشاركات السابقة وقد اجتهدت علما اني اعمل على 32 بت واوفيس 2003 وللعلم والفائدة : معظم برامجي المعمولة على 2003 تعمل على الاصدارات الحديثة الى 2013 بلا مشاكل وعلى كلا النظامين 64 ، 32 اذكر فقط وحدة نمطية واحدة خاصة بضبط النماذج لم تعمل وقتها في الاصدار 2010 وقمت بالغائها ومشي الحال

رجعت الى مثالي الاخير وجربت الخروج قبل وبعد الحفظ لم يتم ضافة سجل فارغ ؟ اكسس لا دخل له بذلك هل جربت المثال المرفق ؟ ام عدلت على مثالك ؟

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

السلام عليكم من واقع تجربة ومعاناة المشكلة في _ بعض اصدارات_ اوفيس 2007 اعتمد 2003 او 2010 وما فوق علما ان قليل جدا من الوحدات النمطية ( التي يضمنها المبرمج داخل 2003) تحتاج الى تعديل داخل 2010