Shivan Rekany

استأذن من استاذنا ابوخليل هو مصدر المربع النصي مثلا استاذنا استخدمت هذا الكود If [code_sub] = 1 Then TT1.ControlSource = "N_Ar_1" If [code_sub] = 2 Then TT1.ControlSource = "N_Ma_1" If [code_sub] = 3 Then TT1.ControlSource = "N_En_1" اذا كان مربع Code_sub بيكون يساوي 1 حينئذ مصدر المربع باسم TT1 بيكون N_Ar_1 اذا كان مربع Code_sub بيكون يساوي 1 حينئذ مصدر المربع باسم TT1 بيكون N_Mr_1 اذا كان مربع Code_sub بيكون يساوي 1 حينئذ مصدر المربع باسم TT1 بيكون N_Er_1 الى اخره

اهلا بك اخي وضاح ليس هناك كود في الحدث عند الضغط للاسفل اولا ثانيا انت غيرت خاصية كل المربعات النصية والكومبوبوكس للنموذج قفل = نعم و تمكين = لا ثالثا هناك كود عند الضغط على زر ديليت لكي يعطيك الرسالة هل تريد الحذف ام لا رابعا خاصية key Preview للنموذج غير مفعلة اي هو يساوي لا لذلك عند الضغط على الزر ديليت لا يعطيك الرسالة خامسا اتفضل القي نظرتا الى القاعدة وبعدين وضح لي ماذا تريد بالضبط سادسا تحياتي تحريك السجلات و.rar

السلام عليكم ورحمة الله وبركاته سلام خاص للغائبين هناك احتمال ان يفيدك هذا الموضوع لاستاذنا @jjafferr لان فیھا انت تختار الحقول الاستعلام ... ای تقدر بعد اختیار الحقول ان تصدیرھا الێ اکسل والله يعلم

يجب ان يتم تحديث البيانات في الجدول لكي يحسبه والا سيحسب بيانات في الجدول قبل تحديث ... اي سيعطيك نتيجة غير صحيحة تقدر تستخدم هذا السطر بدل سطر حفظ السجل لكن لا اظن ان هناك فرق بينهما لهذا الامر DoCmd.RunCommand acCmdRefresh

ممکن ترفق النموذج ...

اتفضل الك هذا الكود عند الفتح النموذج اكتب هذا الكود او غيره في خصائص النموذج Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub اذا تريد ان تعطل زر الكيبور ديليت فقط اليك هذا Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDelete Then KeyCode = 0 '46 delete End Sub او اذا تريد تعطل كلا الزرين ديليت و باك سبايس لان باك سبايس اليك هذا الكود Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDelete Or KeyCode = 8 Then KeyCode = 0 End Sub

هل قصدك الغاء زر باسم delete للكيبورد ؟

عند كتابة رقم 9 او 10 في الحقل Num_brnamge اي في حدث بعد تحديث وايضا في حدث الحالي للنموذج استخدمت هذا الكود Tx = DCount("[service]", "Tabil_Visitors", "([Num_brnamge] =forms![frm].[Num_brnamge]and[service] =1 or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 2 or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 3 or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 6 or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 7or[Num_brnamge] =forms![frm].[Num_brnamge]and[service] = 8 )") اي بيحسب سجلات في الجدول تبل فيستوري بشرط ان يكون حقل Num_brnamge في الجدول بيكون يساوي مع المربع باسم Num_brnamge في النموذج و يكون حقل سيرفايس بيكون يساوي 1 او 2 او 3 او 6 او 7 او 8 وما يحسب الباقي اي 4 و 5 لذا بعد تحديث لحقل في نموذج الفرعي اعمل حفظ بعدين استدعي للكود في حدث الحالي لكي يحفظ التعديلات و بيعطيك النتائج بعد الحفظ DoCmd.RunCommand acCmdSaveRecord Form_frm.Form_Current Vfrm.rar

اذاً ... حمل المرفق في مشاركة استاذ @jjafferr احمله وفتحه واذا احتاجت شيء راح اشرح لك ان شاء الله

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

اخي @AboSaad17 السلام عليكم ورحمة الله وبركاته هل تعرف ما هو عمل ذلك السطر من الكود ؟ ذاك السطر هو لايقاف الكتابة بعد تحديث الاول للنموذج ... لذا ممكن تخبرنا ماذا تريد بالضبط ... حسب فهمي حضرتك ما محتاج لهذا الكود فقد قم بحذف ذاك السطر وايضا سطر اللی یبدأ بـ DOCMD انا عطيتك ذاك الكود بعد تحديث لحقل صحابة لكن بعد اضافة حقل التاريخ انا عطيتك السطر الاخير من الكود فقد في حدث بعد تحديث النموذج

السبب يرجع لان بعد كتابة في حقل الصحابي بيحفظ السجل وبيعطيك الرسالة لان لا يجوز ان يكون حقل التاريخ فاضي لذلك انا قمت بتغيير مكان الكود الى بعد تحديث النموذج صحابه3.rar

اتفضل استخدمت هذا الكود وهو اولا يتم الحفظ السجل وبعد بيعمل تحديث للكومبوبوكس Private Sub الصحابي_AfterUpdate() DoCmd.RunCommand acCmdSaveRecord Me.يتبع_ل___الأب__.Requery End Sub * من الاحسن ان تکتب الاسماء الحقول باللغة الانكليزية صحابه2.rar

اتفضل تم حذف الكروب الاضاف استاذ @jjafferr قبل اكتمل من الكتابة حضرتك رديت بالصور شكرا لك لکن انا لا رجعت وقلت ساکتمل لانی قد بدأت بالکتابە ھھھھھە db1 (1).rar

انا فخور بك و مسرور جدا لان حضرتك معنا في هذا المنتدى التعليمي العظيم حين انا افكر في الامر .. اعرف جيدا حضرتك تعبت بهذا العمل الراقي وعطيت كل خطوات بين ايدينا ووضحت لنا كل شيء لذلك انا اشكرك و ادعوا من الله ان يزيدك من علمه تحياتي اخوك شفان ريكاني

في البداية انا اتابعكم ارفق نسخة مصغرة من القاعدة وانشاء الله راح نجد الحل شکرا لک ..

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

شکرا استاذ جعفر اتفضل اخي 2018 الجمعيه.rar

اتفضل اضغط مرتين على حقل تايب انا غيرت اسم Type الى type1 لان اسم Type محجوزە ... Documents.rar

نحن نشكرك وبانتظارك ... الله يحفظك

@عبد الله قدور @jjafferr لكي يكتمل الموضوع >>> من الجید ان ترفقوا القاعدة لاستفادة اكثر تحياتي لكم

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

اخی @حسين العربى السلام عليكم ورحمة الله وبركاته كن معي خطوة خطوة اولا في الاستعلام حضرتك استخدمت هذا الكود Inx: Nz(DSum("[Qote_item]";" tabol_item";"[item_no]='" & [item_no] & "'");0) شوف الاخطاء فيه 1 / هناك فراغ في البداية اسم الجدول " tabol_item" 2 / ليس لديك حقل في الاستعلام باسم [item_no] وحضرتك طلبت ان يجمع حقل (ا[item_no]) في الجدول ( "tabol_item" ) بشرط ان يكون حقل ([item_no]) بيكون يساوي مع الحقل في الاستعلام اللي باسم ( [item_no] ) وهو غير موجود اصلاً بل الحقل الموجود مسمية باسم item_code 3 / لان الحقل item_no و الحقل item_code هم حقول رقمية وحضرتك استخدمت "'" مع الحقل ل«لک لا یعطيك النتيجة الان الكود يجب ان يكون هكذا Inx: Nz(DSum("[Qote_item]";"tabol_item";"[item_no]=" & [item_code]);0) لكن لا تنسى ... اكتب بعض مواد في الجدول للتجربة

اتفضل استخدم كلمة Union SELECT conform.Qote_item, conform.item_no FROM conform; UNION SELECT tabol_item.Qote_item, tabol_item.item_no FROM tabol_item;

اذن لاستعمال مع شريطين استخدم اند مع الشروط اليك المثال على بيع نقدي بيع نقدي: IIf([Adfah]="نقدي" And [Nwaha]="13";[Price];0) مبلغ الاجل والنقدي بالاستعلام (1).rar