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

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

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

المنتدى الجميل أرفع ملف يتم ربطه بقاعدة البيانات المرفقة وهو مفتوح المصدر وهو عباره عن برنامج لمتابعة حركة السيارات وصياناتها وقطع الغيار وصرف الوقود ومعدلات الصرف وحركة السيارت أرجو أن ينال إعجابكم ويجعله نافعا لمن يستخدمه أسألكم الدعاء بظهر الغيب CARV.7.5.rar CARV.7.5_be.rar

بارك الله فيك وزادك الله من فضله

السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا واحسن الله اليكم جميعا على هذا العمل الرائع وسرعة الاستجابة وهذا المطلوب وشكراً لكم من أعماق قلبي على عطائكم الدّائم. إ

قمت بالتعديل على ملف الاخ @ابوخليل هنـــــا والذي تمت الإشارة إليه أنه الإجابة الصحيحة للموضوع الذي ذكرته اتمنى أن تلبي التعديلات متطلباتك طبعا بالإضافة للتعديلات الخاصة بالجداول المذكورة في ردي السابق ستجد التعديلات في النموذجين frmInvoice و SubformInvoiceDetail (قمت بوضع تعليقات في الأماكن التي قمت بالتعديل فيها لتوضيح ماتم تعديله) ولكن لدي ملاحظة هامة فجدول tblInvoiceDetail يخالف نموذج التطبيع الاول في قواعد البيانات حيث يتم تكرار عمود الكمية ثلاث مرات وكان بالإمكان جعله عمود واحد وستجد أني قد أضفت الجدول tblInvoiceDetailV2 ويحتوي على عمود واحد للكمية والاستعلام qryInvoiceDetailV2 الذي عند فتحه ستجد وكأنه الجدول tblInvoiceDetail الخاص بك (يمكنك حذف الجدول tblInvoiceDetailV2 والاستعلام qryInvoiceDetailV2 فلم أضعهما إلا للتوضيح فقط) تحياتي stock6 .rar

وعليكم السلام ورحمة الله وبركاته .. مشاركة مع أخي @moho58 . أخي الكريم .. الواجب والأصل أن تحدد الشرط الثاني ما إذا كان رقمي أم نصي أم تاريخ . لأن لكل حالة تحتلف صيغة الكود . فعلى سبيل المثال :- اذا كان الحقل نصي :- Private Sub cmd_rpt_Details_Click() Call Make_QR_Barcode DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]='" & Me.RAIANESAMI & "'" End Sub اذا كان الحقل رقمي :- Private Sub cmd_rpt_Details_Click() Call Make_QR_Barcode DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]=" & Me.RAIANESAMI End Sub أما اذا كان الحقل تاريخ على سبيل المثال :- Private Sub cmd_rpt_Details_Click() Call Make_QR_Barcode DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]=#" & Format(Me.RAIANESAMI, "dd/mm/yyyy") & "#" End Sub لاحظ أنني استخدمت اسمك بدلاً من اسم الحقل والمطابق لشرطه ( مربع النص ) = RAIANESAMI

محاولة بسيطة في انتظار الاخوة Private Sub cmd_rpt_Details_Click() Call Make_QR_Barcode DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' OR [Type_Item]='" & Me.Type_Item & "'" End Sub

وعليكم السلام ورحمة الله وبركاته دالة COUNTA (لا تعمل مع التصفية) دالة SUBTOTAL وهي في حالتين =SUBTOTAL(3, A1:A10) تقوم بعدّ كل القيم غير الفارغة في A1:A10 حتى المخفية. اي لا تعمل مع التصفية =SUBTOTAL(103, A1:A10) تقوم بعدّ القيم غير الفارغة فقط في الصفوف الظاهرة بعد التصفية أو الإخفاء اي تعمل مع التصفية الرقم 103: يمثل (عدّ القيم غير الفارغة) مع تجاهل الصفوف المخفية يدويًا أو بواسطة التصفية. اليك طلبك 05- محرك بحث يعمل على تصفية البيانات حسب كل خلية على حدى 23-10-2025.xlsm

وعليكم السلام ورحمة الله تعالى وبركاته ادا كان هدا ما تقصده جرب هدا =IFERROR(TEXT(DATE(2000+LEFT(B2,2),MID(B2,3,2),RIGHT(B2,2)),"DD/MM/YYYY"),"") او Option Explicit Sub ConvertDate() Dim lr As Long, r As Long, xDate As String, n As String Dim scWS As Worksheet: Set scWS = Sheets("Sheet1") lr = scWS.Cells(scWS.Rows.Count, "B").End(xlUp).Row For r = 2 To lr xDate = scWS.Cells(r, "B").Value If xDate <> "" Then n = Format(DateSerial(2000 + Left(xDate, 2), _ Mid(xDate, 3, 2), _ Right(xDate, 2)), "dd/mm/yyyy") scWS.Cells(r, "D").Value = n End If Next r End Sub New Microsoft Excel Worksheet.xlsx

أخي الكريم الأستاذ// أبوحمزة السلام عليكم ورحمة الله وبعد اذن استاذنا الحبيب / سعيد بيرم ولاثراء الموضوع تم ضبط ملفك وضبط المعادلات ما عليك الا ان تدخل رقم السيارة عند الدخول وسوف يكمل لك كل البيانات بصورة تلقائية بالاضافة لرقم المسلسل وادخال التاريخ مقسم الي يوم - شهر - سنة والوقت الي ثواني - دقيقة - ساعة والكود موجود في حدث Private Sub Worksheet_Change(ByVal Target As Range) لورقة دخول السيارات 2014 تقبل تحياتي 1- دخول و خروج السيارات.rar

بسم الله الرحمن الرجيم وبه نستعين اخى العزيزالاستاذ // ابوحمزه حياكم الله فضلا شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=49733&hl= برنامج متابعة حركة السيارات للأستاذ الفاضل أخى // ضاحى " ابوعمرو" جزاه الله تعالى عنا خيرالجزاء............وجزاكم الله خيرا