دروب مبرمج

تفضل و عند اختيار اسم الموظف 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

الموضوع شييق و متعب للعقل تفضل هذه المحاولة فقط افتح التقرير رقم 2 و سيقوم بجمع البيانات و عرضها تلقائيا baset2.zip

استبدل هذا السطر بهذا بما انها قاعدة محلية Dim rst As New DAO.Recordset

سوف نطبق الطريقة على جدول EMPLOYEES1 انشئ موديول جديد و الصق فيه الشفرة التالية *** للعلم الشفرة سوف نستخدمها لجميع الجداول الاساسية Public Function TransData(TABLE1 As String, TABLE2 As String) Dim SetSql As String SetSql = "INSERT INTO " SetSql = SetSql & TABLE2 SetSql = SetSql & " SELECT * FROM " SetSql = SetSql & TABLE1 DoCmd.RunSQL SetSql End Function للتنفيذ ضع اسم الجدول الاساسي ثم اسم الجدول الجديد الذي سيتم نقل البيانات عليه Call TransData("EMPLOYEES1", "EMPLOYEES") تفضل المثال الخاص بك و التنفيذ من خلال نموذج Data.rar