اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

لدي نموذج اسمه  FrmStuNotes  اريد عند الضغط على زر  عدد الانذارات السابقة إذا كان لا يوجد انذارات لهذا الطالب يظهر مربع نص في وسط النموذج به رسالة " لا يوجد انذارات سابقة للطالب : اسم الطالب "

 

حاولت باستخدام  isNull  ولم تفلح العملية

AAA.rar

قام بنشر

معذرة استاذ علي

بعض الاكواد الموجودة في المثال لم تعمل عندي فحذفت الجميع

انظر في مثالك المرفق

ادخل رقم الطالب في المربع الازرق

A2.rar

قام بنشر

شكرا اخي الكريم استاذ أبوخليل

 

 

معذرة استاذ علي

بعض الاكواد الموجودة في المثال لم تعمل عندي فحذفت الجميع

انظر في مثالك المرفق

ادخل رقم الطالب في المربع الازرق

 

أولا لك كل الصلاحيات في عمل أي شيئ في الملف المرفق ------- جزاك الله خيرا

هو عنوانك ايه

عشان اجي اخذ درس في الاكواد عندك

هههههههههههه

 

شكرا جزيلا

 

انا كنت بستخدم الدلة من غير المعيار الاخير فلذلك كانت تعطى نتائج فارغة

 

شكرا جزيلا

 

بعد هذا الكود قمت باستخدامه كالتالي

 

حيث الفكرة عند الضغط على مفتاح عدد الإنذارات السابقة في النموذج 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

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

 

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

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information