Moosak

ممتاز .. جميل جدا .. راائع ☺️ جميع هذه الأفكار الإبداعية محل ترحيب أخي @Hamtoooo 🙂 وأعجبني جمال تصميمك للنموذج أيضاً 😉👌

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

وعليكم السلام .. 🙂 حسب علمي القاصر .. أنه لا يوجد تأثير إلا أنه تظهر بعض المشكلات لأسباب مختلفة .. قد تكون بسبب الشبكة أو بسبب تصميم قاعدة البيانات .. أو ... أو ... وحسب ما أعلم أن الأصل والهدف الرئيسي من مشاركة قاعدة البيانات بين أكثر من مستخدم هو إما لعرض أو تحرير البيانات من قبلهم جميعا 🙂

وعليكم السلام ورحمة الله وبركاته .. 🙂 مجهود رااااااااااااااائع من شخص تحفة .... بسم الله ما شاء الله ويبقى الأكسس معين لا ينضب ... وقدرة جبارة على حل جميع التحديات 😊💪 بس ناقصنا ملف التجربة (المثال) .. 😅 علشان زي منته عارف حضرتك .. المبتدئين أمثالنا 😁✌️

لله درك يا محمد يا عصام @ابو جودي 🙂 بس ممكن يا باش مهندس تكرما تدينا شرح مبسط لكيفية الحصول على الباراميترات أو المعطيات ( بمعنى كيف نعبي هذي البيانات؟) .. فضلا عن شرح الأستاذ المبدع @SEMO.Pa3x

أخي صابر جرب مبدأيا تعديل غلق السجل المحرر من خصائص النموذج كما يلي : وإذا لم تجدي جرب غلق جميع السجلات : جرب وأخبرنا بالنتيجة 🙂

أنا أستخدم هذا الكود البسيط (لتفعيل/إلغاء تفعيل) الشفت وشغال معي بدون إشكال 🙂 : إلغاء أو تعطيل زر الشفت : Private Sub ShiftOff() On Error GoTo err CurrentDb.Properties("allowbypasskey") = False Exit Sub err: CurrentDb.Properties.Append CurrentDb.CreateProperty("allowbypasskey", 1, False) End Sub السماح بزر الشفت Private Sub ShiftOn() On Error GoTo err CurrentDb.Properties("allowbypasskey") = True Exit Sub err: CurrentDb.Properties.Append CurrentDb.CreateProperty("allowbypasskey", 1, True) End Sub

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

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

شكرا لك أخي العزيز derbali ammar 🙂 🌹

سوف يتم تحديث المكتبة قريبا إن شاء الله .. الجديد : 1- إضافة مجموعة كبيرة من الأكواد . 2- تعديلات طفيفة على البرنامج. قريبا إن شاء الله 🙂🌷

أرفق الملف أخي راشد ..

وعليكم السلام أخي أزهر 🙂 جرب هذا : ="[Nameread]='" & [x1] & "' And [dateread] Between #" & Nz([Forms]![fmainreader]![x2]) & "# And #" & Nz([Forms]![fmainreader]![x3]) & "#"

أخي العزيز @Abujaber لدي فكرة جميلة لبرنامجك بدل الطريقة الحالية 🙂 سابقا كنت طرحت موضوع في المنتدى لبرنامج (صانع الشهادات ) والذي أتممته ولله الحمد بمساعدة الإخوة الأعزاء في المنتدى وقد طرحت في الكثير من الأفكار الراااائعة .. وهذا رابط الموضوع : كان الموضوع أشمل قليلا عن مجرد صنع الشهادات ، كان لعمل الشهادات وتنسيقها وإرسالها بالإيميل وكذلك عمل إحصائيات بعدد الأشخاص ( برنامجي أعددته لقسم التدريب لدينا ) لذلك فهو يعطينا إحصائيات بعدد المتدربين خلال الفترة التي تحددها .. ، وكذلك يمكنك تغيير الإطار كما تشاء بدون الحاجة لعمل تقارير جديدة .. 🙂 بإذن الله عندما يتسنى لي الوقت المناسب سأقوم بطرح البرنامج هنا ليستفيد منه الجميع 😊✌️ وهذه بعض الصور الواقعية للبرنامج : إنتظرونا ... 😉✌️

ما هو نوع البيانات في الحقل ؟ ( رقمي ؟ نصي ؟ )

هذا الكود يحضر لك قائمة بجميع الطابعات المنصبة في جهازك وبياناتها 🙂 تستطيع من خلال التعديل على الكود جعله يحفظ أسماء الطابعات في جدول خاص بها .. Sub ShowPrinters() Dim strCount As String Dim strMsg As String Dim prtLoop As Printer On Error GoTo ShowPrinters_Err If Printers.Count > 0 Then ' Get count of installed printers. strMsg = "Printers installed: " & Printers.Count & vbCrLf & vbCrLf ' Enumerate printer system properties. For Each prtLoop In Application.Printers With prtLoop strMsg = strMsg _ & "Device name: " & .DeviceName & vbCrLf _ & "Driver name: " & .DriverName & vbCrLf _ & "Port: " & .Port & vbCrLf & vbCrLf End With Next prtLoop Else strMsg = "No printers are installed." End If ' Display printer information. MsgBox Prompt:=strMsg, Buttons:=vbOKOnly, Title:="Installed Printers" ShowPrinters_End: Exit Sub وهذا كود ثاني أسهل منه يحضر لك أسماء الطابعات فقط 🙂 Sub ListPrinters() Dim prt As Printer For Each prt In Printers Debug.Print prt.DeviceName Next prt End Sub ثم استخدم هذا الكود لتعيين طابعة معينة لتقرير معين : Sub SetReportPrinter(rptName As String, PrinterName As String) Dim rptName As String DoCmd.OpenReport rptName, acViewPreview Set Reports(rptName).Printer = PrinterName 'Or some printer returned by your search code DoCmd.SelectObject acReport, rptName DoCmd.PrintOut DoCmd.Close acReport, rptName End Sub

عندما يتواضع الكبااااااار

السلام عليكم ورحمة الله وبركاته 🙂 اليوم بفضل الله تعلمت شي جديد وحبيت أحطه في تطبيق عملي مباشرة ً .. 😎 وفي نفس الوقت حبيت أشارككم الفائدة 😄 معلومة اليوم تتحدث عن الحدث : Form.Repaint للنموذج ويمكن كتابته هكذا Me.Repaint ووضيفته مشابهة للـ DoEvents تقريبا إلا أنه مع التجربة والمقارنة وجدته أسرع في التنفيذ . معناه الحرفي ( إعادة الرسم ) ووضيفته بشكل عام هو إظهار أي تحديثات معلقة للنموذج في أثناء تنفيذ أي حدث 😁 .. وللمزيد من المعلومات هنا ستجدون رابط الشرح من مايكروسوفت : <<< اضغط هنا >>>> المهم .. هذا تطبيقي على الحدث وتكمن في تحريك الأزرار عند الضغط عليها بشكل يضفي طابع جمالي وجديد للنماذج 🙂 ( قد لا تبين حركة الأزرار العلوية في الصورة التوضيحية .. لذلك سترونها بوضوح من خلال الملف المرفق 😁 ) وهذا شكلها في الأكواد المستخدمة : Function AnimateBtns1() Dim x As Integer Dim y As Integer For x = 1 To 6 Me("b" & x).Visible = True For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top + y Me.repaint Next y For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top - y Me.repaint Next y Me.repaint Next x End Function Function AnimateBtns2() Dim x As Integer Dim y As Integer For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top + y Me.repaint Next y Me.repaint Next x For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top - y Me.repaint Next y Next x End Function تحياتي 🙂 ✌️🌷🌹 حركة الأزرار.accdb

تم حل المشكلة أخي @figo82eg 🙂 بدل الدالتين بهذه .. لنوع الملف : =IIf(Not IsNull([Full]) And InStr(1;[Full];".")<>0;Right([Full];Len([Full])-InStrRev([Full];"."));"") لاسم الملف : =IIf(Not IsNull([Full]) And InStr(1;[Full];".")<>0;Left([Full];InStrRev([Full];".")-1);[Full]) ولعيون الحبيب @ابو جودي تم حل قضية الخانات الفاضية أو الأسماء الغير صحيحة 😏 : وعندما تكون فاضية كذلك : إمتداد.accdb

إحنا مش هنستعبط على البرنامج بأه 😂

أمااااااااااااااااااااااااال خلاص تمت الإضافة

تفضل أخي @ra7yl2006 🙂 هذه جملة الإحصاء التي استخدمتها للحصول على الناتج : =DCount("*";"[Gyab_Query]";"[كود الموظف] =" & [Forms]![المرتبات]![كود الموظف] & " And [gMonth] =" & [Forms]![المرتبات]![MonthCbo] & " And [gYear] =" & [Forms]![المرتبات]![yearCbo] & " ") ولكن بعد العديد من التعديلات الضرورية على بنية الجداول والنموذج مع إنشاء استعلام جديد باسم Gyab_Query للحصول على تاريخ وسنة الغياب .. aa.rar

تفضل أخي @figo82eg 🙂 للحصول على نوع الملف : =Right([Full];Len([Full])-InStrRev([Full];".")) للحصول على اسم الملف : =Left([Full];InStrRev([Full];".")-1) حيث أن [Full] هو اسم الحقل الذي يحوي أسم الملف كاملا إمتداد.accdb

وعليكم السلام ورحمة الله وبركاته 🙂 وضعت هذه الدالة في عمود جديد بالاستعلام "المرتبات Q" وهي تحسب عدد أيام الغياب كلها بدون حصر التواريخ في فترة محددة .. Gyab: CInt(DCount("[كود الموظف]";"[تسجيل الغياب1]";"[كود الموظف] =" & [idemp])) لا أدري أين تريد وضع شرط الفترة الزمنية التي ستحسب عليها عدد أيام الغياب ؟

وعليكم السلام ورحمة الله وبركاته أخي عمر .. إن كنت تستخدم نسخة 2007 أو أقدم .. فجرب تغيير كلمة Recordset2 إلى Recordset يمعنى شيل رقم 2 من الحكاية .. وجرب 🙂