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

Dim db As DAO.Database Dim rs As DAO.Recordset Dim fld As DAO.Field Dim searchNumber As Long Dim found As Boolean searchNumber = Me.C Set db = CurrentDb() Set rs = db.OpenRecordset("SELECT Salary.GradeNO, Salary.[1], Salary.[2], Salary.[3], Salary.[4], Salary.[5] FROM Salary ORDER BY Salary.GradeNO DESC;", dbOpenDynaset) i = 0 found = False Do Until rs.EOF For Each fld In rs.Fields If Not IsNull(fld.Value) And fld.Value = searchNumber Then found = True ElseIf found And Not IsNull(fld.Value) And i < Me.D And fld.Name <> "GradeNO" Then i = i + 1 Me.G = fld.Value Me.E = rs!GradeNO Me.F = fld.Name End If Next fld rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing

السلام عليكم ورحمة الله وبركاته اخواني الكرام.. قرأت أكثر المواضيع التي تتعلق بموضوع الباركود والـ QR . إلا انني أبحث عن شيء محدد ، ولا أخفيكم أنني حاولت ابتكار فكرة تعمل بشكل عكسي تقوم على مبدأ أنه عند قراءة الباركود داخل آكسيس يقوم بإدراج البيانات من الباركود الى مربعات نص محددة. على سبيل المثال ( تمت التجربة على QR ):- ( رقم المريض ، اسم المريض ، رقم الهاتف ، العمر ) هذه المعلومات تمت إضافتها في QR وانشاء صورة . المطلوب أنه عند قراءة هذا الـ OR في النموذج ان يتم ادراج القيم في مربعات النص التي يتم تحديدها ( علماً بأن النموذج هذا ليس له مصدر بيانات جدول او استعلام وغير مطلوب حفظ القيم داخل اي جدول . وهذه صورة QRتحتوي العديد من البيانات للتجربة لم أقم بارفاق ملف لأنني رغبت بان يكون الموضوع مفتوح بأكثر من اتجاه وليس ضمن فكرة محددة . المطلوب :- طريقة تجعلني عند قراءة الباركود ان يتم ادراج البيانات التي يحملها في مربعات نص محددة !!

السلام عليكم ورحمة الله وبركاته بالإضافة لما تفضل به الأستاذ موسى جزاه الله خيرا انا استخدم هذا البرنامج Universal Document Converter وهذا موقع الشركة: https://www.print-driver.com/download بعد إتمام عملية تنصيب البرنامج تابع الفيديو . ومرفق ملفك بعد التعديل. بالتوفيق jpg.rar شرج عمل برنامج Universal Document Converter.rar

السلام عليكم تفضل الحل بالكود معادلة الى كود2.xlsm

استاذ @gavan من وجهة نظري كل البرامج تعتمد على تقسيم القاعدة . فأنت هنا بالاكسس يمكنك تقسيم القاعدة أماميه وبها (الاستعلامات والنماذج و التقارير و الموديلات و الوحدات النمطية)، والقاعدة الخلفية وبها الجداول وممكن تقسم القاعدة الخلفية كمان مجموعة جداول بقاعدة والمجموعة الباقية بقاعدة أخرى والربط بين القاعدة الأمامية والقواعد الخلفية بالطريقة السليمة . تحياتي .

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) لكثرة الطلبات على برنامج إدارة الحضور والإنصراف للموظفين ، وددت مشاركتكم النسخة الأولى الغير مفتوحة المصدر حالياً ، لحين الإنتهاء من التعديلات التي ستتم على البرنامج . دون الإطالة في المقدمة ؛ سأشرح لكم بعض ميزات البرنامج :- أولاً سيتم إضافة الإعدادات الضرورية للبرنامج وهي :- تصنيف الموظفين ( ولكل تصنيف سيتم تحديد عدد أيام الإجازات السنوية له ) . تصنيف الإجازات ( طارئة ، مرضية ، ..... إلخ ) . تحديد وقت بداية ونهاية ساعات العمل الرسمي ، و تحديد مدة السماح للتأخير ( المرونة في العمل ) ، تحديد عدد مرات التأخير ليتم احتساب يوم إجازة في اليوم الأخير من المدة . ثانياً ومن الطبيعي وجود موظفين في قاعدة البيانات ، سيكون قسم لإدخال بيانات الموظفين بشكل بسيط من المعلومات ( ولكم حرية التوسع حسب رغبتكم وحاجتكم كمستخدمين ) ، وطبعاً لكل موظف رقم وظيفي خاص به اعتمد على سلسلة مكونة من التاريخ والوقت الحالي بدون مسافات بهذا التنسيق YYYYMMDDhhmmss ، بحيث لا يكون هناك تكرار نهائي لأي رقم موظف . ثالثاً لوحة تسجيل الحضور والإنصراف عن طريق الرقم الوظيفي ، وتدعم القراءة من الباركود الموجود على باجة الموظف ( طبعاً لاحقاً سيتم إضافة طباعة باجة أو بطاقة للموظف ) ، وفي هذه اللوحة لن تحتاج تحديد الحالة ( حضور أو إنصراف ) فقط أدخل رقم الموظف وسيتم احتساب وقت الحضور وتسجيل مدة التأخير بالدقيقة في الجدول ، وكذلك الأمر للإنصراف . رابعاً لوحة تسجيل الإجازات ، وطبعاً بناءً على المعطيات التي تم إدخالها في نماذج البيانات الأساسية في الإعدادات - سيكون الأمر بسيطاً جداً وتم اعتماد رقم الموظف في المرحلة الأولى من البرنامج وسيتم اعتماد اسم الموظف أيضاً لجلب البيانات لاحقاً . بخطوات بسيطة بعد ادخال رقم الموظف نحدد تاريخ بداية الإجازة ، ثم عدد الأيام المطلوبة كإجازة ، ثم سيتم تلقائياً احتساب يوم نهاية الإجازة ، وطبعاً نوع الإجازة المطلوبة ستقوم باختياره من قائمة نوع الإجازة . خامساً لوحة التقارير ، بحيث سيكون لدينا في المشروع تقرير واحد فقط لكنه سيخدم جميع الطرق التي تريدها كمستخدم ( تقرير للموظفين جميعاً مع وبدون تحديد فترة ، تقرير لموظف واحد مع وبدون تحديد فترة ) . *وطبعاً ما زالت قيد التطوير بشكل خاص ملاحظة:- تم حفظ البرنامج بصيغة Accde كونه قيد التطوير والتعديل حالياً اقترب عيد المسلمين مودعين به شهرهم الفضيل أعاده الله علينا وعليكم باليمن والبركات . وتقبل الله منا ومنكم الطاعات وصالح الأعمال . وسأختم به آخر تعديل على هذا المشروع البسيط ؛ متمنياً أن يكون على قدر الجهد المبذول فيه . وأعتذر بداية عن التأخير في انهاء العمل عليه ، ولكن لضيق الوقت ليس إلا . اليوم انهيت تأسيس الأساسيات في برنامج إدارة الحضور والإنصراف الذي يعمل بنظام بصمة الـ QR . وسأذكر بالتفصيل البسيط ما تم إضافته . الإضافات في النماذج :- ربط قارىء QR يعمل عن طريق الـ USB أو عن طريق الجوال بالنظام . دعم كامل لللغة العربية في قراءة رمز الإستجابة السريعة QR . اعتماد اسم الموظف بالإضافة الى رمز الـ QR . نظام التنبيه لضبط الإعدادات الرئيسية في البرنامج عند تشغيله أول مرة . إحصاء لعدد الموظفين ، الحضور ( على رأس عملهم ) ، المجازين ، المغادرات خلال اليوم . ترحيل بيانات الإجازات والمغادرات والحضور بشكل شهري ( بداية كل شهر ) . الإضافات في الأكواد :- تمت مراجعة جميع الأكواد من أي خطأ محتمل في التنظيم أو آلية العمل . تم إضافة فكرة تثبيت برنامج الربط Barcode2Win من خلال الأكواد ، وفي حال عدم وجوده يتم تحميله من الموقع الرسمي ( يتطلب انترنت ) . تم دمج العديد من الإستعلامات في الأكواد لتقليل مكونات وعناصر النظام وتخفيف العبئ عليه . تم تقسيم العديد من الوظائف لسهولة التعامل معها وصيانتها . تم إضافة نموذج لإعادة تهيئة النظام وتفريغ محتوياته ( الجداول ) ، طبعاً باسوورد تأكيد العملية مدمج في أكواد النموذج . العديد من المميزات التي ستجدونها في المشروع

Unblock أقصد اخي الكريم او راجع هذا الموضوع قد يفيدك 😅

اضغط على قاعدة البيانات زر الماوس اليمين واختر UNLOCK .

😁😁😁 بارك الله في اخي سعد يسعدنا اننا استطعنا مساعدتك

وعليكم السلام ورحمة الله تعالى وبركاته Private Sub TextBox1_Change() Dim a As Variant, b As Variant, Clé$, Rng As Range, i&, j&, k&, m& Dim WS As Worksheet: Set WS = Worksheets("donnes") Dim desWS As Worksheet: Set desWS = Worksheets("search") Clé = "*" & desWS.[B3].Value & "*" Set Rng = desWS.Range("A6:G" & Rows.Count) a = WS.Range("D5", WS.Range("J" & Rows.Count).End(3)).Value If Me.TextBox1 = "" Then Rng.ClearContents Else Application.ScreenUpdating = False With desWS On Error Resume Next .AutoFilterMode = False ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2)) For i = 1 To UBound(a, 1) For j = 1 To UBound(a, 2) 'Filter by Uppercase and lowercase letters If LCase(a(i, j)) Like Clé Or UCase(a(i, j)) Like Clé Then k = k + 1 For m = 1 To UBound(a, 2) b(k, m) = a(i, m) Next Exit For End If Next Next Rng.ClearContents: Range("A6").Resize(k, UBound(b, 2)).Value = b Range("d6:d" & Rows.Count).NumberFormat = "dd-mm-yyyy" End With End If Application.ScreenUpdating = True End Sub بحث VBA V2.xlsm

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

الحــــــل : 1- تعديل الحقول من خصائص الجداول من مربع تحرير وسرد الى مربع نص 2- اعادة استدعاء حقل النص في خانة السرد والتحرير بالنموذج تحياتي اخي واستاذي @Moosak🌹 4444.accdb

السلام عليكم اخى هذه الرسالة التى تظهر لى هل من حل لها

شكرا جزيلا وربنا يبارك فيك وفي جميع الأخوة الأعضاء

تفضل استاذ @UserUser2 https://www.print-driver.com/how-to/convert-access-to-jpeg اقرأ هذا المحتوي ونزل الطابعة (How to Convert Access Report to JPEG)

تفضل استاذ @gavan فيديو + المرفق https://www.youtube.com/watch?v=YrZjKERU5NU connect data base access.zip

هذا لانشاء باركود . اما لقراءة بيانات الباركود الذي اشرت اليه بمشاركتك الاولى .؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

لا أعتقد أنه من الممكن تحويل التقرير وحفظه بصيغة صورة JPG بدون وسيط 🤔

تفقد الحقول في الجدول اذا كانت القيمة الافتراضية صفر .. اجعل القيمة فارغة اما ان كان الصفر ناتج من الكود البرمجي والاداة المصاحبة nz اجعل بدل الصفر علامتي تنصيص هكذا = nz( x , 0) اجعلها = nz( x , "")

السلام عليكم ورحمة الله وبركاته أستأذن أستاذنا وعملاق الإكسيل الأخ الفاضل الخلوق استاذ طارق حرصا على وقته لعدم وضوح المطلوب سابقاَ أن أرفق هذا الحل جمع 2.xlsx

الحمد لله تم ايجاد الحل المناسب ،، كود يقوم بتقسيم وتوزيع القيم الموجودة في الـ QR والتي تفصل بينها فاصلة "," على مربعات النص بعد تحديدها . والكود التالي كان هو الحل :- Private Sub cmdQR_Click() Dim txtBoxA As TextBox Dim txtBoxB As TextBox Dim txtBoxC As TextBox Dim txtBoxD As TextBox Set txtBoxA = txtContent Set txtBoxB = txtContent1 Set txtBoxC = txtContent2 Set txtBoxD = txtContent3 Dim qrText As String qrText = Nz(ReadQRCode.Value, "") Dim qrValues() As String qrValues = Split(qrText, ",") If UBound(qrValues) >= 3 Then txtBoxA.Value = qrValues(0) txtBoxB.Value = qrValues(1) txtBoxC.Value = qrValues(2) txtBoxD.Value = qrValues(3) 'هنا نستطيع إضافة أي إجراء Else MsgBox "Error QR code !" End If End Sub

وعليكم السلام ورحمه الله وبركاته تفضل اخى Option Explicit Sub Search_Delete() Dim Arr As Variant, SH As Worksheet, dic As Object Dim I As Long, Unique_No As String, R As Range, P As Long Application.ScreenUpdating = False: Application.EnableEvents = False Set SH = ThisWorkbook.Worksheets("ورقة1") Arr = SH.Range("B2:F" & SH.Cells(Rows.Count, 2).End(xlUp).Row).Value Set dic = CreateObject("Scripting.Dictionary") dic.CompareMode = 1 For I = LBound(Arr) To UBound(Arr) Unique_No = Arr(I, 1) & Arr(I, 4) & Arr(I, 5) If Not dic.Exists(Unique_No) Then dic.Add Unique_No, P P = P + 1 Else If R Is Nothing Then Set R = SH.Cells(I + 1, 1) Else Set R = Union(R, SH.Cells(I + 1, 1)) End If End If Next I If Not R Is Nothing Then R.EntireRow.Delete Application.EnableEvents = True: Application.ScreenUpdating = True End Sub

الحمدلله 🙂🌹 ضع الحل هنا ليستفيد الإخوة من تجربتك 👍🏻

أستاذ @abouelhassan أكتب سؤالك في موضوع جديد إتباعا لإرشادات المنتدى 🙂

اهلا بشمهندس foksh اكيد كل الاحتمالات واردة ( ومايتعب في البرمجة هو نسيان احد هذه الاحتمالات ) كلامك صحيح لقد تم تحديد عطلة عيد الفطر السعيد بثلاثة ايام تكتب في الجدول كالاتي اليوم الاول عيد الفطر تاريخ كدا ثم اليوم الثاني عيد الفطر تاريخ كدا واخيرا اليوم الثالث عيد الفطر تاريخ كدا وان صدف ان يكون احد هذه الايام عطلة طبيعي لن يتم احتسابه تحياتي

تفضل ما أردت ان شاء الله ورقة عمل (1).xlsx

حالياً ليس لدي جهاز كمبيوتر ، لكن ليوم الغد إن شاء الله سأحاول ارفاق تجربة موثقة ، إن لم يسبقني أحد الاساتذة 😊

يعني فرضياً ، تحديد اجازة عيد الفطر ، كيف ستكون ؟؟ ان كانت تبدأ من صباح الأربعاء 09/04/2024 ويشملها جمعة وسبت أيام عطلة افتراضية أيضاً 😉 ليس تعقيداً للأمور ولكن الاحتمالات واردة.

السلام عليكم استاذ @Eng.Qassim شلونك ان شاء الله تكون بالف خير جربت الكود وهو شغال لازم تعمل كود لكل شهادة على حده (دكتوراه و ماجستير و دبلوم عالي) الخ تسلم شيء روعة والله انا عم اعمل برنامج لاضافة الخدمة (العقد والاجر اليومي) الخ انت عارف ان اغلب الموظفين القدماء لايتناسب الراتب مع الخدمة (تسكين) الخ ربي يحفظك من كل مكروه تحياتي

السلام عليكم تفضل أخي ، المرفق إذا لم يكن هذا ما تريد ، برجاء عمل ماتريد يدويا وارساله للتوضيح جمع2.xlsx

ممكن يكون لها حل ... انتظر حتى اصل لجهازي او ممكن تجد اجابة من الاخوة الكرام

اللهم آمين وإياك إن شاء الله، الله يجعلك من اهل الجنة ويرحم والديك في الدنيا والاخرة الشكر لله عز وجل ربي يسعدك.

وعليكم السلام ورحمة الله وبركاته نفضل أخي الكريم مستخلصات الاعمال الجنوبية- V3.1.2 - Copy.xlsm

مشاركة مع الاخ @Foksh Option Compare Database Option Explicit Private Sub Command0_Click() ExecuteIfChromeOpen End Sub Function IsChromeRunning() As Boolean Dim strCommand As String Dim strOutput As String Dim objWShell As Object Set objWShell = CreateObject("WScript.Shell") strCommand = "tasklist /FI ""IMAGENAME eq chrome.exe""" strOutput = objWShell.Exec(strCommand).StdOut.ReadAll If InStr(strOutput, "chrome.exe") > 0 Then IsChromeRunning = True Else IsChromeRunning = False End If Set objWShell = Nothing End Function Sub ExecuteIfChromeOpen() If IsChromeRunning() Then MsgBox " المتصفح كروم قيد التشغيل. سيتم تنفيذ الأمر", vbInformation, "تأكيد" DoCmd.OpenForm "البيانات" Else MsgBox "يجب فتح المتصفح .", vbExclamation, "المتصفح مغلق" End If End Sub واليك المرفق بالتوفيق Database313.accdb

تفضل استاذ @Abdelaziz Osman المرفق بعد التعديل حسب طلبك . اليك الشرح والمرفق . codeM-2.rar

وعليكم السلام ورحمة الله 🙂 استخدم طابعة افتراضية تحفظ التقرير على شكل صور .. مثل : https://www.ab-tools.com/en/software/freeimageprinter/ أو https://virtual-imageprinter.en.softonic.com/ ويمكنك أن تعين هذه الطابعة كطابعة افتراضية لهذا التقرير بحيث يتم الحفظ مباشرة عليها 🙂

تم إجراء بعض التعديلات والتحديثات على نظام إدارة الحضور والإنصراف كالآتي لما سبق في النسخة الأولى :- إضافة صورة للموظف إما من داخل الكمبيوتر أو من خلال الماسح الضوئي Scanner ، وسيتم تخزين الصور برقم الموظف في مجلد Data الذي سيتم انشاءه تلقائياً عند فتح البرنامج إذا لم يكن موجوداً مسبقاً . تم إضافة الباركود برقم الموظف لإستخدامه لاحقاً في كرت الموظف لتسجيل الحضور والإنصراف . تم تعديل بعض الإحتسابات لحساب التأخير العادي و المتكرر و احتساب الغياب بطريقة تضمن عدم وجود الخطأ بنسبة كبيرة . تم إضافة ميزة تمديد الإجازة للموظفين الذين لهم إجازة غير منتهية ( سارية ) . أو اعتبارها إجازة جديدة وسيقوم النظام بتفعيل الإجازة بعد نهاية الإجازة الحالية الغير منتهية . تم إضافة نظام تتبع عدد الإجازات - ( لتجربته في نموذج طلب إجازة ) - وترحيلها من رصيد الإجازات السنوية ( حسب درجة الموظف الوظيفية ) في الإعدادات تم إضافة طباعة كرت للموظف ( باجة ) بشكل بسيط ولكم مستقبلاً حرية التعديل حسب الرغبة ؛ بحيث تشمل البيانات الأساسية للموظف مع صورته ورقم الباركود لإستخدامه في جميع خصائص النظام . وهنا سيكون الخط المستخدم للباركود مدمجاً في الملف المضغوط لتثبيته على الكمبيوتر - مرة واحدة طبعاً . تم تعديل طريقة عرض التقارير ( للتأخير والغياب ) بحيث تعمل باستعلام داخلي مدمج في الأكواد . سيتم إضافة ملحق لجعل الجوال يقوم بوظيفة قارئ الباركود لقراءة باركود الموظفين عن كارت الموظف لتسجيل الحضور والإنصراف ( كنظام البصمة ). ....... والمزيد ما زال العمل على التطوير جارياً ، لذا عذراً منكم بأن الملف حالياً سيبقى بصيغة ACCDE ، وسيتم إضافة الملف مفتوح المصدر قريباً لأي ملاحظات أو استفسارات ، يسعدني متابعة ملاحظاتكم للعمل على التطوير قدر المستطاع ليشمل معظم الحاجات