نجوم المشاركات

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

السلام عليكم 🙂 نفس عمل اخوي ابوخليل ، ولكن بشكل موسع لخطوة الحذف 🙂 هذا الاستعلام فيه شيئين ، وقت الدخول T_Min (اول قيمة في تاريخ اليوم) والخروج T_Max (آخر قيمة) ، وفيه حقلين T1 , T2 اللي ممكن نعمل استعلام حذف ونستعمل الامر Between لهم فيحذفون بقية قيم اليوم : . SELECT DateSerial(Year([CHECKTIME]),Month([CHECKTIME]),Day([CHECKTIME])) AS D_mm, CHECKINOUT.USERID AS U_mm, Min(CHECKINOUT.CHECKTIME) AS T_Min, Max(CHECKINOUT.CHECKTIME) AS T_Max, Min(DateAdd("s","1",[CHECKTIME])) AS T1, Max(DateAdd("s","-1",[CHECKTIME])) AS T2 FROM CHECKINOUT GROUP BY DateSerial(Year([CHECKTIME]),Month([CHECKTIME]),Day([CHECKTIME])), CHECKINOUT.USERID ORDER BY DateSerial(Year([CHECKTIME]),Month([CHECKTIME]),Day([CHECKTIME])), CHECKINOUT.USERID; . جعفر

وعليكم السلام 🙂 خليني اشوف لك بخور يناسب هذه المشكلة ، يمكن يفيدك 🙂 او تعطينا معلومات اكثر ، او مرفق 🙂 جعفر

مع اني لا أحب اليوزر فورم ولا أطيق التعامل معه بالاضافة الى اني لا أحب تسمية الاوراق ياللغة العربية(Youmia) الكود من اليوزر االى الشيت Dim Y As Worksheet Dim Arr_From() Dim Arr_To() Dim Ar_range() '++++++++++++++++++++++++++++++++++++++++++++++ Private Sub cmd_toSheet_Click() Dim i%, How_many%, Bool As Boolean Dim k% Set Y = Sheets("Youmia") Ar_range = Array("B8", "B47", "B86") Arr_From = Array("TB", "TC", "TD" _ , "TE", "TG", "TF", "TH") Arr_To = Array("B", "C", "D", _ "E", "G", "F", "H") ' For i = LBound(Arr_From) To UBound(Arr_From) ' Me.Controls(Arr_From(i)) = Chr(Application.RandBetween(65, 90)) ' Next For i = LBound(Arr_From) To UBound(Arr_From) If Me.Controls(Arr_From(i)) = vbNullString Then MsgBox "Empty TextBox " Exit Sub End If Next For i = 0 To 2 How_many = Application.CountA(Y.Range(Ar_range(i)).Resize(30)) Bool = IIf(How_many = 30, True, False) If Not Bool Then Exit For Next With Y.Range(Ar_range(i)).Cells(1).Offset(How_many) For k = LBound(Arr_From) To UBound(Arr_From) .Offset(, k) = Me.Controls(Arr_From(k)) Next End With End Sub Osama_User.xlsm

مشاركة مع اساتذتي الاجلاء New Microsoft Access Database-2.rar

شكرا على المعلومة 🙂 جعفر

تم حل المشكل و يتعلق بإعدادات اللغة unicode

أعتذر إن كنت خرجت عن قواعد المنتدى .. إنما أردت أن أجعل كل استفساراتي التي تصب في مصب (تصميم الجداول) في مشاركة واحدة لأني ظننت أن بعضها يؤدي لبعض .. لكن يظهر أني توسعت في الموضوع لذلك سأحاول أن أطرح استفساراتي بهذا الخصوص بمواضيع متفرقة وسأحاول أن أكون أكثر تحديداً .. والله الموفق

انت لم تطلع على الاستعلام ما في الصورة يختلف استعلام جديد باسم qry_In_Out

سؤال: اذا كنت تريد وقت الدخول ووقت الخروج فقط ، فتقدر تأخذ اول سجل وآخر سجل للمستخدم لذلك اليوم ، وخليه يبصم كثر ما يريد 🙂 جعفر

البيانات في المرفق ليست حقيقية تماما فحقل النوع يشتمل على الدخول فقط "I" ولا يوجد الخروج لذا قمت بالتعديل على اليوزر رقم 2 وعدلت في حقل النوع فوضعت توقيعين متتالين خروج الآن سيكون مصدر البيانات الأساسي هو الاستعلام qry_In_Out بدلا من الجدول طبعا سوف يتم التصفية على اول توقيع خلال يوم محدد سواء دخول او خروج انظر في المرفق att2000_1.rar

بعد التجربة يعطي النتيجة المطلوبة، يجب تجنب استعمال last و first لأن النتيجة المطلوب تحقيقها غير مضمونة على الرابط التالي نوقشت الفكرة https://www.officena.net/ib/topic/108275-مشكلة-غريبة-فى-استعلام-خاصية-last/

استخدم Max بدلا من Last

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

الضفحة Salim من هذا الملف TwoDates.xlsm

تفضل لك ما طلبت دبل كليك1.xlsm

السلام عليكم 🙂 1. تم اضافة حقل الشعبة ، لكي نفرق به بين الصفوف ، وتم تغيير جميع الكلمات التي تحتوي على ( إ ) الى ( ا ) عادية ، حتى يسهل على المستخدم اختيار هذه المعلومة ، في الصف و المرحلة ، وانا انصحك ان تغيرها في الاسم كذلك ، حتى تكون بياناتك متطابقة. (صدقني ، انا شفت: عبدالاله ، عبد الاله ، عبدالإله ، عبد الإله ، وبهذه الطريقة لن تستطيع ان تبحث عن الطالب الذي تريده !!) . 2. محاولتك كانت ممتازة ، ولكني عملت بعض التعديلات ، وتغيير التشكيلة ، واضفت حقل التسلسل Class_Seq . 3. تغيير التشكيلة . 4. هذا الاستعلام سيصبح مصدر بيانات التقرير . 5. وبما ان التقرير لا يحترم ولا يقبل فرز الاستعلام ، فيجب ان نعمل الفرز في التقرير . والنتيجة . جعفر 1354.المدرسة (1).accdb.zip

تفضل يا صديقي Hisham.xlsx

إليكم أيها الزملاء برنامج كنترول Control2021pro لكنترول هذا العام البرنامج للمرحلتين الابتدائية و الاعدادية: البرنامج سهل وبسيط ويشمل على : للترمين- لكشوف للنتيجة بعد انهاء الرصد للترمين - شهادات للترمين - كشوف الجان بالاضافة إلى سرعة عالية جدا فى اداء العمليات الحسابية والمعالجات المختلفة و يمكن التحكم فى كل وظائف البرنامج بواسطة لوحة التحكم ارجو منكم تجربته وأنتظر تعليقاتكم ... تـــم رفع أخر تعديلات للبرنامج هنا 161502775899311.rar

أحسنت أستاذ رومانى عمل قيم

شكراً لك استاذ رومانى برنامج رائع

أخي الكريم أرجو أن يلبي المرفق طلبك ترحيل حسب إسم العميل.rar