mrnooo2000

تفضل اخى تم تغيير اسماء الحقول و الجداول الى الانجليزية حتى لا تسبب لك مشاكل فى كتابة الاكواد db2.rar

اشرح لى ما تريد عمله بتفصيل اكثر

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

تفضل اخى و لكن الحقول المذكورة مرتبطة بالجدول و تم انهاء ارتباطها db2.rar

تفضل اخى db2.rar

تفضل اخى تم اضافة استعلام و كود الرسم البيانى موجود فى النموذج XLS_chart.rar

تفضل اخى اليك ما تريد هذا الاستعلام SELECT Users.name FROM Users LEFT JOIN [SELECT attendance.attend_name, attendance.attend_user_ID FROM attendance WHERE (((attendance.meet_no)=[forms]![form1].[text0]))]. AS qmeet ON Users.ID = qmeet.attend_user_ID WHERE (((q…

تفضل اخى فقط غير الرسالة الموجودة بحدث عند الفتح للنموذج db1.rar

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

الاخت الكريمة ضعى هذا الكود فى النموذج Private Sub Form_AfterUpdate() If DMax("id", "11") + 1000 >= 2000 Then Me.AllowAdditions = False End Sub Private Sub Form_Load() If DMax("id", "11") + 1000 >= 2000 Then Me.AllowAdditions = False End Sub

تفضل اخى Test.rar

الاضافة الى ماذا اخى !!!!! ارفق مثال لما تريد حتى تكون الامور واضحة

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

ضع مرفق ووضح ما تريد به لكى يمكن مساعدتك

فى هذه الحالة امامك خباربن اخى الاول ان تضع الكود Me.TBL2.Form.AllowAdditions = True فى كود زر الانتقال الى سجل جديد او ان تضع الكود If Me.NN.Value > 0 Then Me.TBL2.Form.AllowAdditions = True فى حدث بعد التحديث لحقل عدد الجولات و يمكنك ان تضيف الرسالة التى تري…

نعم اخى هذا لاننى كنت استخدم رقم البنك عموما اليك هذا التعديل CurrentDb.Execute "UPDATE a2 SET a2.Paid = " & Me.a2 & ", a2.chn = " & Me.a3 & ", a2.bank = '" & Me.a4 & "', a2.dpaid = '" & Me.a1 & "' WHERE (((a2.Ns)=" & DLookup("ns", "a2", "paid=" & 0 & " and n=…

ان شاء الله مساءا

تفضل اخى استخدم هذا الكود If Me.Recordset.recordcount = Me.Parent.NN Then Me.AllowAdditions = False Else Me.AllowAdditions = True فى حدث بعد التحديث و حدث عند التحميل للنموذج الفرعى كما بالمرفق AZ1.rar

اليك اخى ما طلبت بعد اجراء التعديلات المطلوبة dataemp_1.rar

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