دروب مبرمج

اضافة كلمة DISTINCT لجملة الإستعلام تمكن من عرض القيم بدون تكرار يعني لو في الجدول بيانات متكررة اكثرة من مرة راح يعرضها مرة وحدة فقط طريقة الإستخدام SELECT DISTINCT [Company] FROM [Orders] بهذه الجملة سيتم عرض جميع الشركات في جدول الطلبات بدون تكرار اسم الشركة هذا الموقع جعلته المرجع الخاص بي لجميع جملة الإستعلام SQL https://www.w3schools.com/sql/sql_distinct.asp

المعادلة صحيحة طبيعي اذا مثلا طلعت اجازة اليوم ما راح ترجع بنفس اليوم مثلا انت موظف و قدمت على طلب اجازة يوم واحد فقط تبدء من تاريخ : 16/05/2023 ما راح ترجع في نفس اليوم راح ترجع ثاني يوم يعني تاريخ نهاية الإجازة في : 17/05/2023 لكن لو حبيت انها تنتهي في نفس اليوم فقط تقدر تضيف (+1) للمعادة و بتكون الاجازة تبدء و تنتهي في نفس اليوم

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

تفضل و عند اختيار اسم الموظف AVI.rar

ما هو اسم التقرير ؟؟؟

تفضل هذا التعديل AVI.rar

استخدم هذا الكود Dim SetSql As Variant, varFilter As Variant SetSql = Null varFilter = Null '--------------- جزء فلترة النموذج حسب القائمة المسندلة ---------------- varFilter = (varFilter) & "[natnump] =" & Me.name1.Column(0) With Me.Form If Not IsNull(varFilter) Then .DataEntry = False: .Filter = varFilter: .FilterOn = True Else .FilterOn = False End If .Requery End With '--------------- جزء تغيير مصدر النموذج الفرعي ---------------- If Len(txtyear) = 0 Or IsNull(txtyear) Then Me.äãæÐÌ_ÝÑÚí_gadamat_ishraf2.SourceObject = "Table.alaqat" Else Me.äãæÐÌ_ÝÑÚí_gadamat_ishraf2.SourceObject = "Query.qry_alaqat" End If السجل الاشرافي.rar

اضف المكتب التالية و في اسفل محرر الأكود الصق الشفرة التالية Public Function Choose_Folder() As String On Error Resume Next Dim FolderPath As String, Addfile As Object With Application.FileDialog(msoFileDialogFolderPicker) .Show Choose_Folder = .SelectedItems(1) End With End Function و ضع ازرار بجوار مربع النص و الصق الكود التالي به [مكان الحفظ] = Choose_Folder و سيكون مربح الحوار بهذا الشكل فقط اختر الفولدر و اضغط موافق و سيتم تخزين موقع الفولدر في مربع النص تفضل برنامجك بعد التعديل و لتصفح الملفات و اختيار الملفات استخدم الكود التالي Dim Addfile As Object Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = True .InitialFileName = "" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = True Then Dim fPath As Variant For Each fPath In .SelectedItems Debug.Print fPath Next Else Exit Sub End If End With الاذاعةقبل الكود.accdb

تفضل الصق هذه الشفرة في سجل الأكواد Module1 Public Function Get_Last_PRICE(ITEM_CODE As String) As Double On Error Resume Next Get_Last_PRICE = Nz(DLast("PURSHASED_PRICE", "ITEMS", "[ITEM_CODE] Like '" & ITEM_CODE & "'"), 0) End Function و في صفحة المبيعات و صفحة المشتريات في حدث عند التغيير ضع الكود التالي [ITEM_PRICE] = Get_Last_PRICE([ITEM_CODE]) وهذه هي النتيجة لم استطع ارفاق التعديل بسبب كبر حجم الملف

تفضل حساب عدد ايام الإجازات الفعلية بدون اجازات نهاية الإسبوع + الإجازات الرسمية حسب جدول الإجازات WM2000.mdb

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

شلون قياسي ؟ هل تقصد مثل ميزان الحرارة او شريط التقدم ؟

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

هيا جرب هذا الفلتر ممكن يفي بالغرض تبحث بجزء من الاسم المساعدة في الكومبو بوكس.zip

اجل خذا التعديل بس وقف الخطأ و بتكون العميلة على اكمل وجه انشاء الله baset2.accdb

طيب جرب هذا baset2.accdb

من الخصائص غير ذلك منبثق اجعله نعم

لإخفاء الشريط السفلي و تحويل العناصر من اليمني الى اليسار اذهب الى خيارات

طيب اتفضل هذا رغم اني حتى الآن فكرتك ما وصلتني يعني ما فهمت طلبك بالضبط لكن شوف هذا التعديل ادخل على النموذج يعني افتح التقرير من النموجذ يا تختار الرقم او تختار الرقم و الإسم baset2.accdb

تفضل هذا التعديل baset2.accdb لم افهم هذا الطلب و ضح بزيادة عندي شعور بإننا بدينا نوصل للحل الله يسهل الحال

اخي كيف تريد الجمع لا يوجد سجل به الاوقات و تم بالفعل عمل ما علق به استاذي الجليل @ابوخليل اما انك تريد جمع الأوقات لؤطر واحد بدون تحديد الايام ؟؟

نفس الكود طبقه على التقارير تفضل هذا مثال مثال.accdb

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

اين يوجد هذا التوقيت لكي يتم جمعه ؟؟

تفضل طلبك و لا تنساني بدعوة طيبة مثال.accdb