أكسس وبس

عند عمل معاينة التقرير تظهر هذه الرسالة التى بالصورة

السلام عليكم يا اخوانى المشكلة مازالت على نموذج البحث

اشكرك يااخى اعمل الكود على مربع الناتج فى نموذج البحث

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

الملف New Microsoft Access Database.rar

اشكرك يا اخى الكريم الحل ده للمشكلتين اخى الكريم جربت الحل بتاعك ولكن ده عند كل ما افتح النموذج يظهر اخر كود ولكن حاول ان تفتح الملف المرفق انا عامل فكرة اخرى خالص وهو مربع نص ليس له عنصر تحكم بدالة =DLast("IDMem";"Members") وهو لكى يذكر مستخدم البرنامج اخر كود كتبه حتى لا يكرر وبالتالى تظهر رسالة تكرار لأ بمجرد ما ينتهى من التسجيل ويضغط على اضافة عضو يظهر فى مربع النص اخر كود كتبه

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

اخوانى جمعة مبارك ان شاء الله

اخوانى لدى مشكلتين فى المرفق الاولى : خاصة باظهار اخر كود للعضو ولان التسجيل الاكواد يدوي وليس تلقائي عملت نموذج Members عند فتحه مباشرة من قائمة النماذج فى الملف يظهر اخر كود للعضو فى مربع النص نص39 بالدالة ( =DMax("IDMem";"Members") ) وعند فتحه عن طريق النموذج Home ثم الضغط على مفتاح ( تسجيل الاعضاء واشتراكات ) لا يظهر اخر كود العضو الثانية : تقريباً نفس المشكلة عند فتح النموذج Members مباشرة من قائمة النماذج تظهر المجاميع فى النموذج الفرعى عند التقليب بين السجلات وعند فتحه عن طريق النموذج home ثم التقليب بين السجلات لا تظهر المجاميع New Microsoft Access Database.rar

اكرمك الله وجزاك الله خيرا

اخوانى بالبحث وجدت عمل للاستاذ زهرة العبدلله لحساب السن بالسنة والشهر بناء على ادخال تاريخ الميلاد Option Explicit '************************************************************* ' Age() اسم دالة السنوات '************************************************************* Function Age(varDateBirth As Variant) As Integer Dim varAge As Variant If IsNull(varDateBirth) Then Age = 0: Exit Function varAge = DateDiff("yyyy", varDateBirth, Now) If Date < DateSerial(Year(Now), Month(varDateBirth), _ Day(varDateBirth)) Then varAge = varAge - 1 End If Age = CInt(varAge) End Function '************************************************************* ' AgeMonths() اسم دالة الشهر '************************************************************* Function AgeMonths(ByVal StartDate As String) As Integer Dim tAge As Double tAge = (DateDiff("m", StartDate, Now)) If (DatePart("d", StartDate) > DatePart("d", Now)) Then tAge = tAge - 1 End If If tAge < 0 Then tAge = tAge + 1 End If AgeMonths = CInt(tAge Mod 12) End Function **************************************************************************** Private Sub DateBirth_AfterUpdate() Me.strAge = Age([DateBirth]) & " سنه " & " و " & AgeMonths([DateBirth]) & " شهر" End Sub تعتمد على ادخال تاريخ الميلاد ولكن فى الملف المرفق عملت تاريخ الميلاد ناتج من معادلة بعد التحديث للرقم القومى فلم احصل على نتيجة السن وعند ادخال تاريخ الميلاد يدوي نحصل على تاريخ الميلاد New Microsoft Access Database.rar

اشكرك يا اخى الكريم وجزاك الله خيراً

اخوانى عملت كودين لاغلاق مختلفين للخروج من النموذج 1- DoCmd.Close يقوم بالاغلاق مباشرة 2- فى الكود عندم اضغط على زر خروج تظهر هذه الرسالة On Error GoTo Err_Command10_Click If Me.Dirty Then Me.Dirty = False DoCmd.Close Exit_Command10_Click: Exit Sub Err_Command10_Click: MsgBox Err.Description Resume Exit_Command10_Click ايهما افضل منعاً للمشاكل فى استخدام البرامج ويكون سلسل فى العمل كذلك اريد كود السجل التالى والسابق

اشكرك يا اخى وجزاك الله خيراً الامر مهم لان عشان البرنامج مالى بالدرجة الاول نريد تحديد الوظائف حتى لا يكون هناك مجال للحذف وبالتالى ضياع حقوق اخى الكريم اكرمك الله اقول لحضرتك على فكرة عملته فتحت القاعدة على اوفيس 2010 ثم حفظتها على اصدار 2003 - 2002 وبعد ذلك رفعت الملف على البرنامج ده ونجحت وجارى التجريب

اخى الكريم اشكرك جارى التجريب اخى الكريم المشكلة انها لايتعامل مع ملف اكسس 2010 تظهر رسالة عند اختيار الملف هذا ليس ملف اكسس رغم ان الملف محفوظ على اوفيس 2003

اخوانى السلام عليكم ورحمة الله وبركاته اريد عمل وظائف للمستخدمين بحيث يكون المدير او الادمن له حق حذف سجلات فى النماذج والتعديل فى السجلات وكذلك له حق فتح نموذج المستخدمين والمستخدم العادى ليس الحق فى الحذف والتعديل وفتح نموذج المستخدمين عملت نموذج User1 من جدول User جمعية اخر.rar

تحياتي لك يا اخى الكريم وبارك الله فيك وعليك

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

خلاص احذف مفتاح استعادة المحذوفين

تمام الله يبارك عليك وينور استاذ والله بس بالنسبة لنموذج Up3Years زودت مفتاح ( التجهيز لمراحل آخرى ) ايه الترتيب بتاعت المفاتيح ممكن نلغى مفتاح ( استعادة المحذوفين ) فى النموذج Up3Years ونخلى الاستعادة عند السداد الاشتراكات المتأخرة افضل منعاً للخلبطه ايه رأي حضرتك يكون افضل لو الاستعادة عن طريقة الخطوة الاخيرة الى حضرتك عملتها فى نموذج Members2

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

اخى الكريم بعد تسديد الاشتراكات فى نموذج Members2 للعضو مثلاً سليمان فى جدول الاشتراكات 2014/2015 20 25/12/2014 30/6/2015 كده سنة 2015/2016 20 20/2/2016 30/6/2016 كده سنة 2016/2017 20 11/12/2016 30/6/2017 كده سنة نيجى على الغرامات نلاقيه وصل لـ 3 سنوات نضع فى حقل غرامة 100% 20ج من غير معادلة ثم نضع فى حقل جمعية عمومية 10ج من غير معادلة مفروض بعد سداد الاشتراكات اخر نهاية اشتراك 30/6/2017 اقل من 3 سنوات يرحل سليمان لجدول Members وهكذا ونخلى مفتاح حفظ او مجرد اغلاق النموذج يرحل او الاسهل وهذا جدول الغرامات يتم ادخال البيانات بدون معادلات لان نسب الغرامات تتغير حسب قرار مجلس الادارة غرامة 20% سنة غرامة 50% سنتان غرامة 100% ثلاث سنوات او اكثر غرامة جمعية عمومية 20 10

اخى ضفت جدول الغرامات ونموذج الغرامات مع نموذج Members2 جمعية اخر.rar

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