Shivan Rekany

نعم بالضبط لكن لازم @Elsayed Bn Gemy بينطي الرأي هل يناسبه او نبحث عن طرائق اخرى

اخي واستاژي القدير سيد جمال السلام عليكم ورحمه‌ الله وبركاته تكدر تستخدم نموذج اخر نموژج بحث حين تبحث على المواد وتضغط على سجل اللي تريد بيضاف الى سجل فاتورة البيع وكما تعرف الطرائق البحث كتير تكدر تستخدمه واذا تريد راح نعمل نموذج على ذلك تحياتي

كيف ندخل اسم جديد حين بيكون سجل جديد مخفي ؟ او انا مافهمت قصدك اتفضل استخدم هذا الكود قبل اوبديت اي قبل تحديث لحقل اي دي نام If DCount("[id_name]", "STU", "[id_name]='" & Me.id_name & "'") > 0 Then MsgBox ("هذا الاسم مدخل مسبقا") Cancel = -1 End If اتفضل ملفك بعد تعديل chk.rar

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

بالنسبة لاضافة سجل جديد تكدر تستخدم هذا الكود بدل الكود السابق On Error Resume Next If Me.id_stu = NewRecord Or IsNull(Me.id_stu) = True Then Exit Sub Else Dim SQL As String Dim SQL1 As String SQL = "UPDATE stu SET stu.yn = false WHERE (stu.id_stu)<>[Forms]![stu]![id_stu]" DoCmd.RunSQL SQL Me.ÊÏÞíÞ7 = True Me.Refresh End If لكن ما فهمت قصدك اليك قاعدة بعد تعديل chk.rar

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

اتفضل اخي قاعدة بياناتك بعد تعديل اضفت فانكشن لتحويل الارقام الى الاحرف NoToTXT اضفت مربع نصي في تقرير وفي مصدره كتبت هذا الكود =" نؤيد لكم صحة المعلومات حيث بلغ المجموع الكلي للرواتب ( " & NoToTxt([Text0];"دينار";"فلس") & " ) لاغيرها" =" نؤيد لكم صحة المعلومات حيث بلغ المجموع الكلي للرواتب ( " & NoToTxt([Text0];"دينار";"فلس") & " ) لاغيرها" تكدر تغير دينار بدولار مثلا و فلس بالسنت مثلا تفقيط مبلغ.rar

هل من الممكن موظف يدخل البناية ويخرج واحد اخر شوف الصور اذا ما فهمت من قصدي غدا راح اشرح لك اللي مافي الصور تحياتي

اتفضل العملاء (1).rar

عفوا انت على الحق ما اضفنا الشرط في الكود text2 = NZ(DCount("[x1]","TblMaalomat","[x1]=" & me.text1),0) me.text1 هو مربع نصي في النموذج اللي بيدخل رقم القوومي اي غير مي تيسكت وان باسم ذلك المربع اللي تدخل رقم القومي في النموذج تحياتي

اتفضل هذا استخدمت هذا الكود بعد اضافة حقل اخر في جدول باسم yn Dim SQL As String Dim SQL1 As String SQL = "UPDATE stu SET stu.yn = false WHERE (stu.id_stu)<>[Forms]![stu]![id_stu]" DoCmd.RunSQL SQL Me.تدقيق7 = True Me.Refresh اليك ملفك بعد تعديل chk.rar

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

السلام عليكم ورحمه‌ الله وبركاته اخي الكريم كم مره‌ فتحت موضوعك وقرأت ونزلت المرفق لكن ما اعرف بالضبط ماتريد ممكن ترسم وتشرح ماتريد لعل وعسى اكدر اساعدك تحياتي

نفرض اسم جدولنا هو "TblMaalomat" ونفرض اسم مربع النصي في نموذج اللي نكتب فيها عدد التكرار هو "Text2" راح نستخدم هذا الكود لمربع نصي لرقم الوطني في النموذج text2 = NZ(DCount("[x1]","TblMaalomat"),0) تحياتي

كل شي تمام عندي الطباعة والتحويل تحياتي

اتفضل ما طلبت استخدمت هذا Between Forms![Form1]![txtFirstDate] And Forms![Form1]![txtLastDate] ويعمل عادي اتفضل ملفك بعد اضافة كود الاعلاه CrossTab.zip

اتفضلي الملف اضافة كود استاذ رمهان sa1.rar

اخي العزيز @وضاح النوبه السلام عليكم ورحمة الله وبركاته اولا من شان الرمز (@) لازم تكتب اسمه وليس اسمك لكي هو بيعرف ثانيا من شان الموضوع : 1 / لازم بيكون عندك حقل اخر لتسديد المبلغ وعندك حقل اخر للباقي 2 / بعد ذلك راح نشوف اي اسم من العملاء الباقي عنده صفر راح يحذفه وانا عملت الحقلين وعملت استعلام لجمع الباقي لكل العميل على وحده وعملت استعلام حذف لكل عميل اللي الباقي عنده اصغر من واحد وفي النموذج خلف الزر عملت كتبت كود فتح الاستعلام الحذف اليك قاعدة بياناتك بعد تعديل تحياتي العملاء.rar

شوف العلاج في المرفق ساعات عمل الموظفين.rar

لا والله اسف لانك ما قلت انه بيعمل تكرار كم مرات لذا ما انتبهت لهذا اتفضل من جديد ساعات عمل الموظفين.rar

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

شوف في المرفق القي نظرتا على استعلام المشكلة ساعات عمل الموظفين.rar

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

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

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