Shivan Rekany

اتفضل اليك ما طلبت Officna.mdb

القاعدة تبعك هو من نوع accdb قم برفع القاعدة من نوع accdr لكي نعمل العمليات والتجارب تحياتي

اظن ان استاذ جعفر مشغول لذلك قمت بالرد بدل منه اتفضل استخدم هذا amount_fin: IIf(Nz([amount];0)<Nz([cut];0);[amount];Nz([amount];0)-Nz([cut];0)) subtrac.rar

@ابوخليل

لانك ما قمت برفع المرفق اتفضل ماتريد حسب ما فهمت من سؤالك الظاهر من هذه الجملة ان في ذلك الحدث يظهر لك الرسالة وحضرتك تريد ان يبدل الرسالة برسالة بها نعم و لا وعند الضغط على نعم يعمل شيء وعند الضغط على ( لا ) يغلق النموذج اذا يجب ان تستخدم دالة IF If MsgBox("هذا المنتج متوفر لديك فعلا في قاعدة البيانات هل تريد تعديلة ؟", vbMsgBoxRtlReading + vbYesNo + vbQuestion, "تنبيه") = vbNo Then DoCmd.Close acForm, Me.Name Else ' اكتب ما تريد هنا End If الكود الاعلاه سیظهر لك رسالة اذا ضغطت على زر ( لا ) سيغلق النموذج وتقدر تتغير ME.NAME باسم اي نموذج تريد لكن يجب ان يكون اسمه بين هذا " " و اذا ضغطت على زر نعم تقدر تكتب ما تريد ان يفعله تحياتي

اولا شكرا لك استاذنا @أبو آدم قم بفتح القاعدة بيانات وافتح احد نماذج في وضع تصميم واضغط على كونترول و حرف جي الانكليزية ctrl + G سيفتح لك هذه النافذة في الاسفل نافذة كتابة الاكواد كما مبينة في الصورة قم بكتابة هذه الجملة واضغط على انتر لكي يتم تفعيل خصائص الورقة CommandBars("Property Sheet").Enabled = True واذا تريد عدم التفعيل اكتب هذا CommandBars("Property Sheet").Enabled = false واضغط على انتر تقبلوا تحياتي

اذا تريد ان يقبل الحفظ بعد اظهار الرسالة استخدم طريقة استاذ @king5star واذا تريد ان يرفض الحفظ استخدم هذا الكود هو نفس الكود فقط غيرت المكان و اضفت كانسيل Private Sub التاريخ_BeforeUpdate(Cancel As Integer) Dim Q As Integer Q = DCount("[التاريخ]", "جدول1", "[التاريخ]=[التاريخ]") If Q >= 3 Then MsgBox "لقد قمت بتسجيل اكثر من 3 مرات " Cancel = True End If End Sub 123456.mdb

اتفضل الك هذا تم استخدام هذا في التقرير مع فاصل الصفحات Dim MyPagRecCnt As Integer Private Sub Report_Page() MyPagRecCnt = -1 End Sub Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) MyPagRecCnt = MyPagRecCnt + 1 Counter = MyPagRecCnt If Counter Mod 15 = 0 Then Me.PageBreak17.Visible = True Else Me.PageBreak17.Visible = False End If End Sub بدء الصفحة برقم واحد.rar

اتفضل انا استخدمت هذا Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If Me.Lagnah_code Mod 2 = 0 Then Me.Fasil.Visible = True Else Me.Fasil.Visible = False End If End Sub مع فاصل الصفحات سجلين بتقرير.rar

هل تريد ان تتم حماية قاعدة بياناتك اذا نعم اليك هذا الرابط لكن اذا تريد شيء اخر اليك هذا الرابط

اتفضل اليك هذه الروابط و و او ابحث في المنتدى باسم ترحيل او استعلام الحاق او insert into ستجد كتير موضوعات على ذلك تقبل تحياتي

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

اتفضل قمت بتعديل على قاعدة بياناتك عندك طريقتين اولا اضفت حقل جديد في الجدول باسم weqit وبيأخذ وقت الان اي عند ادخال السجل و اكتب الشرط بين وقتين بالثانية والدقائق والساعة واليوم و الشهر والسنة طريقة الثانية عندك حقلين حقل للوقت والحقل الثاني للتاريخ في الاستعلام في حقل جديد ادمج حقلين واكتب فيها الشرط بين تاريخين انا عملت طريقة الثانية واضفت لك حقل في الجدول ايضا تقدر تستخدم اي طريقة لكن الطريقة الاولى اسهل وفي النموذج اكتب هكذا وسيعطيك نتيجة بين تاريخين server.rar

اعمل استعلام بين تاريخين بالوقت اي بالساعة والتاريخ

قم بتكبير حجم مربع نصي في وسط التقرير هكذا بدء الصفحة برقم واحد.rar

اتفضل اليك هذا الموضوع فقط امسح فقرات لحذف الجداول

اتفضل Public Function RqmQawmi(National_no As String) If (Mid([National_no], 8, 2) = 1) Then RqmQawmi = "القاهرة" ElseIf (Mid([National_no], 8, 2) = 2) Then RqmQawmi = "الإسكندرية" ElseIf (Mid([National_no], 8, 2) = 3) Then RqmQawmi = "بورسعيد" ElseIf (Mid([National_no], 8, 2) = 4) Then RqmQawmi = "السويس" ElseIf (Mid([National_no], 8, 2) = 11) Then RqmQawmi = "دمياط" ElseIf (Mid([National_no], 8, 2) = 12) Then RqmQawmi = "الدقهلية" ElseIf (Mid([National_no], 8, 2) = 13) Then RqmQawmi = "الشرقية" ElseIf (Mid([National_no], 8, 2) = 14) Then RqmQawmi = "القليوبية" ElseIf (Mid([National_no], 8, 2) = 15) Then RqmQawmi = "كفر الشيخ" ElseIf (Mid([National_no], 8, 2) = 16) Then RqmQawmi = "الغربية" ElseIf (Mid([National_no], 8, 2) = 17) Then RqmQawmi = "المنوفية" ElseIf (Mid([National_no], 8, 2) = 18) Then RqmQawmi = "البحيرة" ElseIf (Mid([National_no], 8, 2) = 19) Then RqmQawmi = "الإسماعيلية" ElseIf (Mid([National_no], 8, 2) = 21) Then RqmQawmi = "الجيزة" ElseIf (Mid([National_no], 8, 2) = 22) Then RqmQawmi = "بني سويف" ElseIf (Mid([National_no], 8, 2) = 23) Then RqmQawmi = "الفيوم" ElseIf (Mid([National_no], 8, 2) = 24) Then RqmQawmi = "المنيا" ElseIf (Mid([National_no], 8, 2) = 25) Then RqmQawmi = "أسيوط" ElseIf (Mid([National_no], 8, 2) = 26) Then RqmQawmi = "سوهاج" ElseIf (Mid([National_no], 8, 2) = 27) Then RqmQawmi = "قنا" ElseIf (Mid([National_no], 8, 2) = 28) Then RqmQawmi = "أسوان" ElseIf (Mid([National_no], 8, 2) = 29) Then RqmQawmi = "الأقصر" ElseIf (Mid([National_no], 8, 2) = 31) Then RqmQawmi = "البحر الأحمر" ElseIf (Mid([National_no], 8, 2) = 32) Then RqmQawmi = "الوادي الجديد" ElseIf (Mid([National_no], 8, 2) = 33) Then RqmQawmi = "مطروح" ElseIf (Mid([National_no], 8, 2) = 34) Then RqmQawmi = "شمال سيناء" ElseIf (Mid([National_no], 8, 2) = 35) Then RqmQawmi = "خارج الجمهورية" ElseIf (Mid([National_no], 8, 2) = 31) Then RqmQawmi = "الأحمر" Else RqmQawmi = "جنوب سيناء" End If End Function محافظة الميلاد.rar

لون_الخط.mdb

تقدر تستخدمه اي مكان تريد Copy of جمعية.rar

استاذنا @jjafferr اليك هذا السؤال تقبلوا تحياتي

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

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

اظن حضرتك تبحث عن هذا الموظوع لاستاذنا الكبير جعفر

فی البدایە انا حاولت ایضا لكن لا يظهر لكن انا نظرت الى خصائص شريط التقدمي وكان فيها خاصية ماكس وانا كتبت الكود على الرغم عدم ظهوره لكن طلعت صح الكود اذاً وانا لا اعرف سبب عدم اظهاره تحياتي

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) Call PageFooterSection_Paint End Sub Private Sub PageFooterSection_Paint() If Not IsNumeric(Me.text0) And Not IsNumeric(Me.text1) And Not IsNumeric(Me.text2) Then Me.text0.BackColor = vbWhite: Me.text1.BackColor = vbWhite: Me.text2.BackColor = vbWhite Else If Me.text0 > Me.text1 And Me.text0 > Me.text2 Then Me.text0.BackColor = vbRed Me.text1.BackColor = vbWhite Me.text2.BackColor = vbWhite ElseIf Me.text1 > Me.text0 And Me.text1 > Me.text2 Then Me.text0.BackColor = vbWhite Me.text1.BackColor = vbRed Me.text2.BackColor = vbWhite ElseIf Me.text2 > Me.text1 And Me.text2 > Me.text0 Then Me.text0.BackColor = vbWhite Me.text1.BackColor = vbWhite Me.text2.BackColor = vbRed End If End If End Sub TEST TRY2.accdb