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

تفضل <><><><><><><><> قاعدة بيانات مدرسية.accdb

انا ضعيف جدا في الشرح..... لكن .... ماتم عمله هو ::::: 1- عملنا كمبوبكس وجعلنا مصدر بياناتة جدول الفصول 2- عملنا تقريرين فرعين وكل تقرير مرتبط باستعلام .... احد الاستعلامين ( يتم فيه تصفية اسماء الذكور فقط حسب الفصل المسجل في الكمبوبكس - يتم فيه تصفية اسماء الاناث فقط حسب الفصل المسجل في الكمبوبكس ) 3- جعلنا التقريرين الفرعين في تقرير واحد للعرض ... هذا ماتم عمله بارك الله فيك

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

هي نص .... كيف يكون رقم ...... الناتج ماهو 123456789

هل هذا هو طلبك اخي الكريم ...............

اول مرة يمر علي برنامج حسابات يتم الحذف بالجملة غالبا يتم حذف سجل واحد او اثنين بالكثير تم ادراجه بالخطأ . ويوضح سبب الحذف في حقل خاص في برامج الحسابات الاحترافية يتم الحذف وهمي فقط .. ولا يظهر بتاتا في السجلات ولا المجاميع .. ولكنه باقي في سجلات الجدول الفكرة انه قد يحتاج الرجوع اليه

ابشر من هنا

وعليكم السلام ورحمة الله تعالى وبركاته Sub ÊÑÍíá2() Dim Ws As Worksheet, F As Worksheet Dim X As Long, I As Long, Arr Set Ws = Sheets("Home"): Set F = Sheets("data") X = F.Cells(Rows.Count, 2).End(3).Row + 1 Application.ScreenUpdating = False Arr = Array("B2", "B3", "", "B4", "B5", "D2", "D3", "D4", "D5", "F2", "F3", "F4", "", "F5") For I = LBound(Arr) To UBound(Arr) If Arr(I) <> "" Then Arr(I) = Ws.Range(Arr(I)).Value Next I F.Cells(X, 2).Resize(, UBound(Arr) + 1) = Arr F.Range("D3:D" & F.Range("B" & Rows.Count).End(3).Row) = "=($D$1-C3)/(365)" F.Range("N3:N" & F.Range("B" & Rows.Count).End(3).Row) = "=sum(k3+l3+m3)" F.Cells(X, 1) = F.Cells(X, 1).Row - 2 Application.ScreenUpdating = True End Sub او Sub ترحيل3() Dim Ws As Worksheet, F As Worksheet Dim X As Long, I As Long, Arr Set Ws = Sheets("Home"): Set F = Sheets("data") X = F.Cells(Rows.Count, 2).End(3).Row + 1 Application.ScreenUpdating = False Arr = Array("B2", "B3", "", "B4", "B5", "D2", "D3", "D4", "D5", "F2", "F3", "F4", "", "F5") For I = LBound(Arr) To UBound(Arr) If Arr(I) <> "" Then Arr(I) = Ws.Range(Arr(I)).Value Next I F.Cells(X, 2).Resize(, UBound(Arr) + 1) = Arr With F.Range("A3:A" & F.Range("B" & Rows.Count).End(xlUp).Row) .Formula = "=IF(B3="""","""",IF(B3=""Name"",""Count"",N(A2)+1))" .Value = .Value With F.Range("D3:D" & F.Range("B" & Rows.Count).End(3).Row) .Formula = "=($D$1-C3)/(365)" .Value = .Value With F.Range("N3:N" & F.Range("B" & Rows.Count).End(3).Row) .Formula = "=sum(k3+l3+m3)" .Value = .Value End With End With End With Application.ScreenUpdating = True End Sub 2024-3-15 ترحيل بيانات 2.xlsm

جرب هذا الكود التالي:- Private Sub YourButton_Click() ' الكود الذي تريد عرضه Dim codeText As String codeText = "DLookup(""result"", ""test_order_tbl"", ""[test] = ' & T & ' And [ID] = [Forms]![visit_frm]![ID]"")" ' عرض الكود في مربع النص Me.YourTextBox.Value = codeText End Sub للعدم تواجدي أمام الكمبيوتر حالياً ، استبدل اسم الزر واسم مربع النص في نموذجك 😊

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

جرب ادخل بيانات جديدة منوعة بتاريخ هذا الشهر ستجد انها تظهر في البحث

بالنسبة لوظيفة الحماية انا متأكد منها 100% والمستخدم العادي لا يرى الا الشهر الماضي فقط .. حتى يصل اليوم المحدد هنا يختفي الشهر الماضي فلا يرى الا الشهر الحالي اما المدير فهو يرى كل شيء حتى ما قبل سنوات ......................... هذه انتهينا منها ............... بقي ملاحظاتك على البحث : البحث انواع .. منه التراكمي كلما تبحث بحقل يظهر النتيجة وتبحث في الحقل الأخر يزيد النتيجة مثلا تبحث عن الحساب واحد والنوع 2 في الحقلين بنفس الوقت : يعطيك جميع الحسابات التي =1 وجميع الانواع التي =2 .... سواء اشتركت او انفردت ومنه التطابقي .. اي يجب ان تكون الاختيارات كلها ضمن السجل مثلا تبحث عن الحساب واحد والنوع 2 في الحقلين بنفس الوقت : لا يعطيك الا السجل الذي يحمل القيمتين ومنه المفرد : وهو الذي يبحث عن قيمة واحدة فقط --------------------------------------------------------------------------------- فانظر اخي الطيب ما يصلح لك حتى نعمل على تطبيقه

على الرغم من انه ليس المطلوب لكن طريقتك اوحت لي بفكرة ساحاول اطبقها وساوفيك بالنتيجة ولا اجمل تمام لكن لاتعمل مع النصوص العربية

هل هذا ماتقصد ؟؟؟؟ . qtest-2.rar

اذكرها من فضلك أو نحن نفرضها !!!!!!!!!!!!!!!!!

وضح من فضلك حدد قيمة الرقم المرادف لقيمة النص اللي بالحقل الأخر منشان تظهر القيمة الرقمية يعني مثلا (L=5---N=7 ..........)

شكرا جزيلا وبارك الله فيك

هل هذا ماتقصد ؟؟؟؟ . qtest-1.rar

مرفقك اخي الكريم 😊

لم يحدث شئ كود عمل فورمات للخلية عند التعديل.xlsm

جزاك الله خيرا اخي الكريم FOKSH فعلا كودك اتم المطلوب علي اكمل وجه شكرا جزيلا وجزاك الله خيرا علي تعبك

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

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

لقد استخدمت علامة التنصيص الغير صحيحة > ' . والصحيح استخدام علامة التنصيص هذه " New Microsoft Access Database.accdb

طيب رأيي ان ما يتم حمايته لا يظهر من الأساس الا للمدير ما الفائدة من عرض سجل محمي ؟

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

دعنا ننتهي من هذه نصيحتي ان تبقي النماذج كماهي واذا مصر على التكبير .. اضف هذا السطر لحدث التحميل لكل نموذج DoCmd.Maximize ولاحظ انك ستحتاج الى اعادة ضبط مقاسات الحقول لأنه غير مناسب صفحة تفتح بعرض 30سم والحقول بكامل عرضها لا تتجاوز 10سم على كل حال اليك المرفق .. تم عمل نموذج رئيسي كبداية عدل ما تريد ثم ارفعه لعمل الطلب الرئيسي FinancialPrg1.rar

تفضل أستاذ @طير البحر محاولتي فورمين وتقرير واحد وموديول به المتغير . اليك الشرح والمرفق . ووافني بالرد . DDTestAdd.rar

استخدم هذا الكود في النموذج وقم بمسح المعيار من الاستعلام الداخلي DoCmd.OpenReport "Report Name", acViewPreview, "", "[Number]=" & Number, , acNormal

حل اخر بالاكواد للبحث بالاسم او الرقم Private Sub TextBox1_Change() 'Sheet Segl clinic Dim a As Variant, b As Variant, clé As String Dim i&, j&, k&, m& Dim WS As Worksheet: Set WS = Worksheets("Segl clinic") Dim F As Worksheet: Set F = Worksheets("search") If Me.TextBox1 = "" Then F.Range("b6:c" & Rows.Count).ClearContents Else On Error Resume Next a = WS.Range("F6", WS.Range("G" & Rows.Count).End(3)).Value ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2)) clé = "*" & F.Range("b3").Value & "*" For i = 1 To UBound(a, 1) For j = 1 To UBound(a, 2) If LCase(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 F.Range("B6:C" & Rows.Count).ClearContents F.Range("b6").Resize(k, UBound(b, 2)).Value = b End If End Sub '********************** Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Not iGblInhibitTextBoxEvents Then TextBox1.Value = "" End If End Sub العيادة VBA.xlsm

العيادة.xlsx

وعليكم السلام ورحمة الله وبركاته =IF(AND(I2<>"",K2<>"تم التجديد",(I2-NOW())<100),IF(I2>NOW(),"باقي "&(ROUND((I2-NOW())+1,0))&"","منتهي قبل "&(-ROUND((I2-NOW())+1,0))&""),"")

مشاركة مع استاذي @ابوخليل تفضل استاذ @ازهر عبد العزيز محاولتي بالمرفق التالي . Query2 الحقل AA . DD503.accdb

اذا الحقل يشتمل على تاريخ صحيح .. فالمفترض ان هذه الدالة تظهر تاريخ اليوم جرب اضبط تنسيق التاريخ الى short Date