co2002co

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

احرااااااااااااااااااااج حسستني اني من المطبلين بجد الحين اجرب

رووووووووووووووووووووعه

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

عملتها بهاذي الطريقه هل ماقمت به صحيح برمجيا Test2.rar

ok جربت ونسخت الكود

مشكور سيد جعفر هل ممكن احول هذا الاستعلام الى vba

اريد ان احسب الوقت الحالي واقارنه بالوقت الموجود بالجدول اذا كان الفرق بين نطاق 30 دقيقه لا اكثر ولا اقل يعطيني رساله تنبيه مثال الساعه الان 8:00:00 وبالجدول الساعه 7:22:00 في هذا المثال لا يعطي رساله تنبيه لان الفرق اكثر من نصف ساعه Test.rar

للرفع

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

صبح صبح يا عم الحج FD ولا تسالني عن معناها

هههه استحملنا سيد قلت لك حليت الموضوع خلاص غيرت علامة التنصيص "" الى -1 ومشي الحال كانت كل الغرف عليها "" وهالشي راح يعرض الكل الي نعم + لا وانا ابي فقط نعم

يسلمو سيد جعفر بس في سؤال ليه لما اختار الكل لا يعمل تصفيه يعض الكل يجي مني اوقات Select Case Rooms.Value Case 1 Room_Number = 1: Room_Check = -1 Case 2 Room_Number = 2: Room_Check = -1 Case 3 Room_Number = 3: Room_Check = -1 Case 4 Room_Number = 4: Room_Check = -1 Case 5 Room_Number = "": Room_Check = "" غيرت عامل التصفيه Select Case Rooms.Value Case 1 Room_Number = 1: Room_Check = -1 Case 2 Room_Number = 2: Room_Check = -1 Case 3 Room_Number = 3: Room_Check = -1 Case 4 Room_Number = 4: Room_Check = -1 Case 5 Room_Number = "": Room_Check = -1

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

وتبيني انا العبد الفقير الى الله اسوي كل هذا الي قلته المهم الجمع يعطيني كامل الارقام انا ابي فقط اجمع كل فئه على حده ويطلع لي مجموع الصح لكل فئه على حده اعرف مافهمتني مو اول مره تقولها لي اعيد الفئه المطلوبه 1 =لا 1=لا 1=لا 1=نعم المجموع فقط = 1

طيب وفي معيار الي مو مستوعب طيب كيف اجمع

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

للاسف لا بس انت اعطيتني المفتاح بجد اشكرك If IsNull(Me.c) Then MsgBox "الحقل فارغ" Exit Sub End If DoCmd.Requery On Error Resume Next Dim strSQL As String strSQL = "INSERT INTO Table2 ( c ) SELECT Table1.c" Me.c = "" If IsNull(Me.c) Then MsgBox "ÇáÍÞá ÝÇÑÛ" Exit Sub End If DoCmd.Requery On Error Resume Next Dim strSQL As String strSQL = "INSERT INTO Table2 ( c ) SELECT Table1.c" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.RunCommand acCmdSelectRecord Me.c = "" MsgBox "OK" DoCmd.SetWarnings True

راح اشرح العمليه كامله وانت لك حرية تطبيقها اريد ان اعمل جدول تجميعي لليوم كامل (24 ساعه) ومن ثم نقل هذه القيمه الي الجدول الاخر بنفس التاريخ انا رمزت للتاريخ ب بالارقام شهر 1 واليوم 1 (1_1) مشكلتي الاساسيه هي كيف انقل القيمة لليوم كامل واضعها في الحقل والتاريخ الصحيح مدري وصلت الفكره او لا

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

جرب المثال المرفق If IsNull(Me.c) Then MsgBox "الحقل فارغ" Exit Sub End If DoCmd.Requery On Error Resume Next Dim strSQL As String strSQL = "INSERT INTO Table2 ( c ) SELECT Table1.c" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord MsgBox "OK" DoCmd.SetWarnings True اريد ان احذف الحقل المنقول فقط بعد النقل

Test.rar اريد ان انقبل قيمة الحقل c فقط ومن ثم حذف قيمة الحقل دون الاضرار بقيم الحقول الباقيه

انا ابي انقل قيمة حقل وحذفه بعد النقل فقط الحقل المنقول الحقل فقط راح ارفق مثال

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بكل خير كنت استخدم DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord لتحديد الصف وحذفه كامل لكني اريد فقط حذف قيمة معينه لنفترض ان بالجدول 10 حقول واريد حذف الحقل رقم 5 فقط مع الابقاء على القيم كما هي

تستاهلن كل خير ان شاء الله تفيدو كما استفدتو لا حرمنا ولا حرمتو من العطاء