Shivan Rekany

اتفضل استخدمت هذا الكود Private Sub Text13_AfterUpdate() Dim X As Integer X = DCount("cheq_no", "MASTER1", "[cheq_no]='" & Me.Text13 & "'") If X > 0 Then MsgBox " åÐÇ ÇáÑÞã ãæÌæÏ ãÓÈÞÇ" Me.Text13 = "" Me.Text13.SetFocus End If End Sub اليك ملفك بعد اضافة الكود salr.rar salr.rar

اليك هذا في حدث عند فتح النموذج اكتب هذا Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub وفي حدث عند الضغط الازرار اكتب هذا Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 49 Then MsgBox "مرحبا" End If End Sub واضغط على مفتاح شيفت مع رقم واحد راح يظهر مسج بوكس بيقولك مرحبا وتكدر بدل مسج بوكس تنطي اي كود فيها 48 = 0 49 = 1 50 = 2 51 = 3 52 = 4 53 = 5 54 = 6 55 = 7 56 = 8 57 = 9

جرب هذا test70.rar

نعم بالطبع هناك مساعدة الك شوف ووافيني بالنتيجة test70.rar

في حقل تاريخ تكدر تعمل شرط بين تاريخين اي يعني Between [tarix1] And [tarix2]

عفوا ماكان فهمت مطلوبك والان حسب فهمي لطلبك صار كود تبعك الى هذا Dim frm1 As Form Set frm1 = Me.Parent If IsNull(Forms!mainfrm!CustName) = True Then Cancel = True MsgBox "áÇÒã ÊÏÎá ÇáÈíÇäÇÊ Ýí äãæÐÌ ÇáÇÈ ÇæáÇ", vbExclamation, "Required data." Forms!mainfrm!CustName.SetFocus ElseIf IsNull(frm1.[OrderID]) Then Cancel = True MsgBox "áÇÒã ÊÏÎá ÇáÈíÇäÇÊ Ýí äãæÐÌ ÇáÇÈ ÇæáÇ", vbExclamation, "Required data." frm1.[OrderID].SetFocus End If ملفك بعد تعديل NewRecordInSubFrm.rar

اليك هذا شوف نظرة اليها خلي كل واحد بيأخذ 1000 اجازات راح يظهر كلها في نموذج فرعي ولكل واحد على وحده تحياتي موظفين.rar

اذا ماكان غلطان انا مرة انا عملت لك في احم من المشاركات لكن انت رفضت واحتمال السبب انو ما فهمت مني في ذاك الوقت الان راح اشوفه اذا وجدت راح ارفع لك والا راح اعمل لك واحد جديد تحياتي

تفضل اخي انا غيرت خاصية ترقيم تلقائي لحقل اوردر اي دي الى نمبر وما غيرت شي من الاكواد الكود اللي عندك بيشتغل تماما لكن لازم اولا تكتب في نمذج الرئيسي اي تكتب اسم في نموذج الرئيسي وبعدين تكتب الرقم في نموذج الفرعي وبعدين تدخل البانات في نموذج اللي داخل نموذج فرعي شوف جرب ووافيني بالنتيجة NewRecordInSubFrm.rar

انت على الحق لكن كن معي بالبداية كان استعلام اللي باسم Req_Report كان مصدر التقرير وكان بها اكثر من 70 حقل وهذا الاستعلام كان سبب التجميد البرامج حين فتح التقرير انا عملت كوبى باست لاستعلامك وقللت عدد الحقول الى 7 قلت لعل وما حذفت استعلامك لاني قلت لعل وعسى انك بتحتاج له لانك هذا شغل تبعك وفي حقل اسم كان كتبته شرط على الرغم كل شي الان انا حذفت الاستعلام اللي انا عملته تقرير الإحصاء (1).rar

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

تمام هل يفتح التقرير اكثر من صفة الان ؟ فتح التقرير وشوفه

ممكن ترفق القاعده‌

هل هذا هو طلبك تقرير الإحصاء (1).rar

ما بها مشكلة راح نزداد مواده ايظا لكن شوف هذا بعد 6 مواد فقط لكن شوف وجرب اذا ما تكتب لمواد مثلا مواد اللغة الانكليزية اذا ما تكتبه شي فيها راح يحسبه ان المواد هو 5 مواد وليس 6 مواد وما راح يكتب له راسب شوف الوحدة النمطية Option Compare Database Function ShRebaz(Sp As Integer, En As Integer, Ar As Integer, Ge As Integer, Hi As Integer, Sc As Integer) Dim MaddeNacih As Integer Dim MaddeRasib As Integer Dim MaddeIbor As Integer Dim AddMewad As Integer MaddeNacih = 0 MaddeRasib = 0 MaddeIbor = 0 AddMewad = 6 If [Sp] = -1 Then AddMewad = AddMewad - 1 ElseIf [Sp] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Sp] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Sp] > 39 And [Sp] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [En] = -1 Then AddMewad = AddMewad - 1 ElseIf [En] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [En] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [En] > 39 And [En] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [Ar] = -1 Then AddMewad = AddMewad - 1 ElseIf [Ar] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Ar] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Ar] > 39 And [Ar] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [Ge] = -1 Then AddMewad = AddMewad - 1 ElseIf [Ge] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Ge] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Ge] > 39 And [Ge] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [Hi] = -1 Then AddMewad = AddMewad - 1 ElseIf [Hi] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Hi] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Hi] > 39 And [Hi] < 50 Then MaddeIbor = MaddeIbor + 1 End If If [Sc] = -1 Then AddMewad = AddMewad - 1 ElseIf [Sc] > 49 Then MaddeNacih = MaddeNacih + 1 ElseIf [Sc] < 40 Then MaddeRasib = MaddeRasib + 1 ElseIf [Sc] > 39 And [Sp] < 50 Then MaddeIbor = MaddeIbor + 1 End If If MaddeRasib > 0 Then ShRebaz = "راسب" ElseIf MaddeRasib = 0 And MaddeIbor = 1 Then ShRebaz = "عبور" ElseIf MaddeIbor > 1 Then ShRebaz = "راسب" ElseIf MaddeNacih = AddMewad Then ShRebaz = "ناجح" End If End Function وفي استعلام كتبت هذا SSS: ShRebaz(Nz([sport];-1);Nz([english];-1);Nz([arabic];-1);Nz([geography];-1);Nz([history];-1);Nz([science];-1)) ونرجوا من استاذنا جعفر او ابو خليل او اي واحد بها معلومات على الوحدات النمطية ان يشوفه لعل بها شي نقصان وهذا ملف بعد تعديل اسم الوحدة الوحدة النمطية هو iborornacihorrasib واسم الاستعلام هو Query2 تحياتي للجميع crossed.rar

تاريخ السداد تاريخ_السداد والفرق بينهما هو ( _ ) لذا سيسمح له ان بيعمل الحقول بهذه التسميات سوى لكن بعدين راح يصير له مشاكل حين بينطي لذاك الحقلين الاكواد

لا يا خي محمود بها فرق بين ذاك الحقلين لكن الرسالة بيقول انها حقل رقم سداد موجود اي يعني مكرر اذا عندك ابنين واسم واحد منها محمد هل من المعقول ان تسمي الاخر بنفس اسم اي باسم محمد ؟

نعم تكرار اسم الحقل غير باسم اخر لكن هناك ملاحظة من الاحسن ان تجنب من الكتابة اسماء الحقول بالعربية

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

اذا انا ما كان على الخطأ انت دخلت كمستخددم وليس المسؤل ادخل كمسؤل وجرب

نعم وهو <>0 اتفضل ملفك بعد تعديل -مكتب حوالات - نسخة.zip

الصق هذا في وحدة نمطية Option Compare Database Option Explicit Public Function DeleteAllRelationships() Dim db As Database Dim rex As Relations Dim rel As Relation Dim iKt As Integer Set db = CurrentDb() Set rex = db.Relations iKt = rex.Count Do While rex.Count > 0 rex.Delete rex(0).Name Loop MsgBox " تم حذف العلاقاتن بين الجداول بنجاح ", vbInformation, "العلاقات" End Function وفي زر حذف العلاقات اكتب Call DeleteAllRelationships

استخدم IF ISNULL(forms!nameforform!id)= TRUE THEN او IF FORMS!NAMEFORFORM!ID = "" THEN لعل تستفيد

اليوم خلاص دوامي لكن غدا ان شاء الله راح احاول تحياتي

اتفضل اخي ملفك بعد تعديل مع شرح بالصور اولا فتحنا تقريرك في وضع التصميم وشوفنا ما هو المصدر التقريرك كان مصدر تقريرك هو استعلام صرف كما مبينة في الصور وفتحنا استعلام الصرف في وضع تصميم وكتبنا شرط اكبر من صفر ( 0 ) لكل حقول الصرف كما مبينة في الصور وبعدين خرجنا فيه وحفظنا عمليتنا وفتحنا التقرير شوف بعد ما يظهر السجل اللي فارغة -مكتب حوالات - نسخة.rar