اخواني
عملت برنامج ليخرج لي عدد السجلات المحدد ( الغياب ) في رسالة عند فتح النموذج1 ولكن هناك خطأ في الكود
ارجو الاطلاع عليه وتعديله
وبارك الله فيكم
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
مالك باشا النموذج المرفق المسمى نموذج1 غير صالح ولم استطيع قراءته أعد انشاء المثال مرة أخرى ربما نستطيع المساعدة ..
تحياتي ..
اخي ابو عدنان
السلام عليكم
عندما اضع الكود في النموذج يحدث الخطأ الذي تراه
بالنسبة للكود هو :
Dim intStore1 As Integer
intStore1 = DCount("[gg]=-1", [ÇáÛíÇÈ])
If intStore1 = 0 Then
Exit Sub
Else
If MsgBox("ááÚáã íæÌÜÜÜÜÜÜÏ ÚÜÜÜÜÜÏÏ - " & intStore1 & " - ãæÙÝ Ýí ÓÌá ÇáÛíÇÈ " & _
"áÛÇíÉ åÐÇ ÇáíÜÜÜÜÜæã" & vbCrLf & vbCrLf & _
" " & _
" " & _
" ", vbOKOnly Or vbExclamation Or vbDefaultButton1, _
"ÊäÈíÜÜÜÜÜÜÜÜå") = vbOK Then
'DoCmd.OpenForm "abd1", acNormal
DoCmd.CancelEvent
Else
Exit Sub
End If
End Ifجدول الغياب موجود لديك
النموذج 1 فارغ وضعه ووضعت الكود اعلاه عند التحميل او الفتح للنموذج
بحيث يعطني رسالة بعدد الغياب عندما تكون خانة gg نعم
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
تفضل اخي ابو عدنان
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
الف شكر وبارك الله فيك
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري