علي المصري قام بنشر ديسمبر 12, 2014 قام بنشر ديسمبر 12, 2014 لدي نموذج اسمه FrmStuNotes اريد عند الضغط على زر عدد الانذارات السابقة إذا كان لا يوجد انذارات لهذا الطالب يظهر مربع نص في وسط النموذج به رسالة " لا يوجد انذارات سابقة للطالب : اسم الطالب " حاولت باستخدام isNull ولم تفلح العملية AAA.rar
ابوخليل قام بنشر ديسمبر 12, 2014 قام بنشر ديسمبر 12, 2014 استخدم Dcount لعد المخالفات في الجدول فإذا كان اكبر من صفر يظهر العدد وإلا يظهر عبارة "لا يوجد"
علي المصري قام بنشر ديسمبر 12, 2014 الكاتب قام بنشر ديسمبر 12, 2014 شكرا استاذ ابو خليل جربت ولم تفلح .... أو اني استخدمت الصيغة بطريقة خاطئة ارجو التعديل على الملف
ابوخليل قام بنشر ديسمبر 12, 2014 قام بنشر ديسمبر 12, 2014 معذرة استاذ علي بعض الاكواد الموجودة في المثال لم تعمل عندي فحذفت الجميع انظر في مثالك المرفق ادخل رقم الطالب في المربع الازرق A2.rar
علي المصري قام بنشر ديسمبر 12, 2014 الكاتب قام بنشر ديسمبر 12, 2014 شكرا اخي الكريم استاذ أبوخليل معذرة استاذ علي بعض الاكواد الموجودة في المثال لم تعمل عندي فحذفت الجميع انظر في مثالك المرفق ادخل رقم الطالب في المربع الازرق أولا لك كل الصلاحيات في عمل أي شيئ في الملف المرفق ------- جزاك الله خيرا هو عنوانك ايه عشان اجي اخذ درس في الاكواد عندك هههههههههههه شكرا جزيلا انا كنت بستخدم الدلة من غير المعيار الاخير فلذلك كانت تعطى نتائج فارغة شكرا جزيلا بعد هذا الكود قمت باستخدامه كالتالي حيث الفكرة عند الضغط على مفتاح عدد الإنذارات السابقة في النموذج frmStuNotes تظهر رسالة عدم وجود مخالفات لهذا الطالب مع اسم الطالب وفي حالة وجود مخالفات يظهر النموذج FrmNumberOfWarning ويظهر العدد في مربع النص المخصص له وبيانات هذا الطالب Dim i As Integer i = DCount("[eSIS#]", "TblStuNotes", "[eSIS#]=" & Me.eSISNo) If i > 0 Then DoCmd.OpenForm "FrmNumberOfWarning", , , , acFormReadOnly Else DoCmd.CancelEvent MsgBox "لا يوجد إنذارات لهذا الطالب" & vbNewLine & " " & vbNewLine & _ "No warnings for the student" & _ vbNewLine & " " & vbNewLine & Me.SName, vbOKOnly, "تنبيه Warning" End If جزاك الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.