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

مفتوح المصدر تحصيل الديون.accdb 2025الموظفين.accdb

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

السلام عليكم بريمج صغير في حجمه وادواته .. ولكنه محكم ويفي بمتطلبات عملية الحضور والانصراف واحتساب ساعات ودقائق العمل . ومع ذلك هو قابل للتطوير واضافة خدمات اخرى مثل الغيابات والاجازات والعطل والاستئذان ونحوها ومثل جعل شاشة الحضور منفصلة عن البرنامج الاساسي واشياء اخرى كثيرة لا يمكن حصرها المهم ان العمل هذا يفي بالحاجات الأساسية والضرورية ....................... عملية التحضير تتم اما بادخال المعرف يدويا ثم النقر على انتر وإما استخدام قارىء الباركود كل ذلك تم تهيئته في البرنامج .. بطاقات وكشوف الباركود المطلوب قبل العمل على البرنامج هو نسخ ملف اداة الباركود barcodex.ocx الى نظام وندوز وتسجيلها تم العمل على وندوز 64 وأوفيس 32 بت الملف موجود ضمن المرفق ChkInOut.rar

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

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

تم إضافة النسخة 32 الى المشاركة الأولى 👍

صحيح @Foksh انت وصفت طريقه عملها بشكل مبسط . هذه المشكلة قد تكون موجوده عند كثير من المبرمجين دون ان يشعروا بها فالقاعدة مع التعود تكون عاديه جدا ولكن هناك فرق تاخير طفيف في كل عمليه وكل نموذج يفتح او يغلق . بعد الحذف سوف تلاحظ ان القاعدة اصبحت اخف واسرع الاداه بنظام 32Bit اصبحت جاهزه @ابوخليل في كامل الحماس لمعرفه نتيجة تجربتكم مرفق الملف .. CleanPhotoGallery_32Bit.zip

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

الحمد لله تم عمل تقرير الحركة اليومية كنت احاول الابتعاد عن الاكثار من الاستعلامات .. حسب طريقتي .. ولكن هذا لا يتأتى دوما اطلع على المرفق كل العمل من خلال النموذج الرئيسي frmInvoice حتى تكون العمليات في متناول يد المستخدم stock13 .rar

جدول TempVendorStatement يتم حذف بياناته ثم الحاق بيانات جديدة عند كل عملية فتح للتقرير بدون وجود الترقيم التلقائي لا مشكلة ولكن مع وجود الترقيم التلقائي مع كل عملية حذف والحاق يبدأ الترقيم التلقائي من آخر رقم تم ترقيمه مثلا لو فرضنا ان التقرير يفتح على 40 سجل عند الحذف والالحاق الثاني سيبدأ الترقيم من 41 وهكذا كل عملية تتزايد الارقام بعد كم شهر لو دخلت الى الجدول قد ترى الترقيم في خانة مئات الآلاف او الملايين الحل للرجوع الى الصفر هو بحذف بيانات الجدول المؤقته ثم عمل ضغط واصلاح .. سيرجع الترقيم ويبدأ من 1

هناك طرق كثيرة لتسجيل الشاشة بصيغة gif سواء عن طريق البرامج المخصصة أو المواقع التي تقوم بهذا العمل Online انا إستخدم برنامج ScreenToGif وهو برنامج مفتوح المصدر يمكنك تحميله من رابط البرنامج على Github https://github.com/NickeManarin/ScreenToGif/releases/tag/2.42.1 ويمكنك تحميل نسخة التنصيب او النسخة المحمولة واستخدامها سهل للغاية اما عن طريقة الرفع للمنتدى فهي نفس طريقة رفع الصور العادية مثل الصورة الموجودة في اول مشاركة لك في هذا الموضوع تحياتي

توسيــــــــــــع واستكمال 1- اضافة 78 هندسة لتوزيع الصور مع التمسية وترقيم فقط عليك كتابة الكود 2- اضافة ادراج النص مباشر الى نموذج المستهدف مع امكانية تكرار النص مع التسمية وترقيم ثم فقط عليك كتابة الكود 3- تحسين اللعبة التجريبة اسرعة وتحكم سريع اذا تبي تدرج صور تكون الجود واضح وحجم الصور مناسب للصور وليس النموذج وفكر عند تصميم رسم البياني يمكنك التجربة والاستمتاع (@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)=(@)-=-(@)-/Card تحميل المرفق اسفل الفيديو تحميل المرفق https://www.mediafire.com/file/4a2vq6eu305p41p/Control_Disain_Ms_V_2.rar/file

تمام استاذ عبد الله الف شكر تحياتي لك

وعليكم السلام ورحمة الله وبركانه اليك التصحيج Sub Filter_Class2() Dim WSdest As Worksheet: Set WSdest = Sheets("TI3DAD") Dim D1 As Object, D2 As Object, D3 As Object, D4 As Object Dim I As Long, x As Long, Y As Long, m As Long, z As Long Dim Réf As Variant, ky As Variant, Rng As String Set D1 = CreateObject("Scripting.Dictionary") Set D2 = CreateObject("Scripting.Dictionary") Set D3 = CreateObject("Scripting.Dictionary") Set D4 = CreateObject("Scripting.Dictionary") x = 0: Y = 0: m = 0: z = 0 With WSdest Application.ScreenUpdating = False .Range("M4:V32,X4:AG32,AI4:AR32,AT4:BC32").ClearContents I = 7 Do While I <= .Rows.Count If .Cells(I, 2) <> "" Then Rng = Left(Trim(.Cells(I, 2).Value), 1) Réf = Application.Transpose(.Cells(I, 2).Resize(, 13).Value) Réf = Application.Transpose(Réf) Select Case Rng Case "4" D4(z) = Join(Réf, "*") z = z + 1 Case "3" D3(Y) = Join(Réf, "*") Y = Y + 1 Case "2" D2(x) = Join(Réf, "*") x = x + 1 Case "1" D1(m) = Join(Réf, "*") m = m + 1 End Select I = I + 1 Else Exit Do End If Loop m = 4 If D4.Count > 0 Then For Each ky In D4.Keys .Cells(m, "M").Resize(, 13).Value = Split(D4(ky), "*") m = m + 1 Next ky End If m = 4 If D3.Count > 0 Then For Each ky In D3.Keys .Cells(m, "X").Resize(, 13).Value = Split(D3(ky), "*") m = m + 1 Next ky End If m = 4 If D2.Count > 0 Then For Each ky In D2.Keys .Cells(m, "AI").Resize(, 13).Value = Split(D2(ky), "*") m = m + 1 Next ky End If m = 4 If D1.Count > 0 Then For Each ky In D1.Keys .Cells(m, "AT").Resize(, 13).Value = Split(D1(ky), "*") m = m + 1 Next ky End If .Range("M4").CurrentRegion.Value = .Range("M4").CurrentRegion.Value .Range("X4").CurrentRegion.Value = .Range("X4").CurrentRegion.Value .Range("AI4").CurrentRegion.Value = .Range("AI4").CurrentRegion.Value .Range("AT4").CurrentRegion.Value = .Range("AT4").CurrentRegion.Value Application.ScreenUpdating = True End With End Sub 1تعداد.xlsm

اعرض الملف مثال على تصفية فائمة بناء على اخرى بدون كود مثال على تصفية قائمة بناء على ما يتم اختياره فى قائمة اخري بدون كود صاحب الملف محمد طاهر تمت الاضافه 03 أكت, 2011 الاقسام قسم الإكسيل