safaa salem5

لو عندي تقرير عايزه اخلي فى اتاحه لتغيير المسافه بين كل سطر والاخر برقم معين هيتحط فى فورم فى الاعدادات New Microsoft Access Database.accdb

وبعدين دى مقابله . مش كفايه بقالى اكتر من شهرين مش بسأل ولا بدخل اصلا

شكرا انا خلاص قدرت احلها وبعدين انا سايباك للتجيله☺️

عندى فورم فيه 10 ازرار من النوع option وكمان حقل من النوع صوره عند الضغط على اى زرار يتم استعراض صوره موجوده في ملف البرنامج فى فولدر image. كل زرار ليه حقل فى جدول setting بحيث يتم تخزين قيمة الزرار عند الاختيار يساوى -1 اريد عند فتح الفورم يفتح حقل الصوره على اخر صوره تم اختيارها اللى قيمتها هتكون -1 علما بأن اسماء الحقول مثل اسماء الازرار مثل اسماء الصور تبدأ من CBC1 إلى CBC10 عايزه فى حدث عند الفتح يدور في جدول الاعدادات عن القيمه -1 فى الحقول من CBC1 إلى CBC 10 ولما يلاقيها يفتح الصوره اللى اسمها زى اسم الحقل دا عايزه اترجم دا لكود

واو

فى ناس فاهمه وهتجاوبنى دلوقتي

CBC_Normals_tbl Age HGB_R HGB_L 0 - 2 Days 14 - 22 14 3 - 6 Days 15 - 21 15 7 - 13 Days 13.5 - 21.5 13.5 14 - 29 Days 12.5 - 20.5 12.5 0 - 1 Mon 11.5 - 16.5 11.5 2 - 3 Mon 9.4 - 13 9.4 4 - 6 Mon 11.1 - 14.1 11.1 7 - 11 Mon 11 - 12.9 11 0 - 1 Yrs 11.1 - 14.1 11.1 2 - 6 Yrs 11 - 14 11 7 - 12 Yrs 11.5 - 15.5 11.5 Adult Male 13 - 17 13 Adult Female 12 - 15 12 لو عندي فورم اسمه cbc_frm به ثلاث حقول وهى age مثلا يساوى 5 ,gender مثلا يساوى male ,ageunit مثلا يساوى years عايزاه يعمل فلتره ويجيب قيمة HGB_R وHGB_L الملاحظات كما هو واضح فى الجدول حقل age احيانا يشمل قيمة age معgender واحيانا Adult Maleاو Adult Female

تمام متشكره جدا لحضرتك هل ممكن اضيف للكود لبعض الحقول انه يتم تخزين قيمة حقل اللون فقط كدا يعنى rs.fields(fieldNamePrefix & "color").Value = Me.Text.ForeColor

مش متعوده ما الاقيش اجابه لسؤالى فى المنتدى

؟؟

عند الضغط على close تخرج رساله كالاتى حدث خطأ اثناء حفظ البيانات the microsoft access database engine does not recognise 'main' as a vaild name or expression انا اكتشفت ان الرساله بتخرج فقط فى حاله وجود سجل فى الجدول اما فى حالة عدم وجود سجل(اضافة السجل لاول مره ) لاتخرج رساله ويعمل بشكل طبيعى مع العلم ان المفروض الجدول دا عباره عن سجل واحد فقط لاغير لانه جدول اعدادات ممكن تحديث حقوله فقط Private Sub SaveColorToTable() Dim db As DAO.Database Dim rs As DAO.Recordset Dim activeField As String Dim fieldNamePrefix As String Dim criteria As String On Error GoTo ErrorHandler ' الحصول على الحقل النشط من النموذج activeField = Forms!settings_font_color_frm.activeField ' التحقق مما إذا كان النموذج محملاً If CurrentProject.AllForms("settings_font_color_frm").IsLoaded Then ' تعيين قاعدة البيانات وفتح سجل Set db = CurrentDb Set rs = db.OpenRecordset("settings_Report_tbl", dbOpenDynaset) ' التحقق مما إذا كان الحقل النشط غير فارغ If Not IsNull(activeField) Then ' تحديد البادئة لاسم الحقل fieldNamePrefix = activeField ' إعداد معايير البحث بناءً على الحقل النشط criteria = fieldNamePrefix & " IS NOT NULL" rs.FindFirst criteria If Not rs.NoMatch Then ' تحديث السجل إذا كان موجودًا rs.Edit rs.fields(fieldNamePrefix & "color").Value = Me.Text.ForeColor rs.fields(fieldNamePrefix & "size").Value = Me.Text.FontSize rs.fields(fieldNamePrefix & "font").Value = Me.Text.FontName rs.fields(fieldNamePrefix & "bold").Value = Me.Text.FontBold rs.fields(fieldNamePrefix & "slope").Value = Me.Text.FontItalic rs.fields(fieldNamePrefix & "underline").Value = Me.Text.FontUnderline rs.Update MsgBox "تم تحديث السجل بنجاح.", vbInformation Else ' إضافة سجل جديد إذا لم يكن هناك سجل موجود rs.AddNew rs.fields(fieldNamePrefix & "color").Value = Me.Text.ForeColor rs.fields(fieldNamePrefix & "size").Value = Me.Text.FontSize rs.fields(fieldNamePrefix & "font").Value = Me.Text.FontName rs.fields(fieldNamePrefix & "bold").Value = Me.Text.FontBold rs.fields(fieldNamePrefix & "slope").Value = Me.Text.FontItalic rs.fields(fieldNamePrefix & "underline").Value = Me.Text.FontUnderline rs.Update MsgBox "تم إضافة سجل جديد بنجاح.", vbInformation End If Else MsgBox "الحقل النشط غير محدد.", vbExclamation End If ' إغلاق السجل وتحرير الموارد rs.Close Set rs = Nothing Set db = Nothing Else MsgBox "النموذج غير محمل.", vbExclamation End If Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء حفظ البيانات: " & Err.Description, vbExclamation If Not rs Is Nothing Then rs.Close Set rs = Nothing End If If Not db Is Nothing Then Set db = Nothing End If End Sub

?????

مطلوب تعديل الكود اسفل زرار نسخه احتياطيه لانه مش بيشتغل و كمان عايزه كود ضغـــط وإصــلاح البرنامـــج وكود إستعـــــادة نسخة إحتياطية New Microsoft Access Database.accdb

خطوات تنفيذ فلترة ديناميكية في Microsoft Access: إعداد قاعدة البيانات: تأكد من أن لديك جدول يحتوي على البيانات التي تريد عرضها في القائمة المنسدلة. إنشاء نموذج: افتح قاعدة البيانات في Microsoft Access. انتقل إلى "النماذج" (Forms) وأنشئ نموذجًا جديدًا (أو افتح نموذجًا موجودًا). إضافة مربع نص للبحث: في وضع التصميم للنموذج، أضف مربع نص (Text Box) إلى النموذج. هذا سيكون مربع البحث حيث سيدخل المستخدم النص للفلترة. إضافة قائمة منسدلة: أضف قائمة منسدلة (Combo Box) إلى النموذج. هذه القائمة ستعرض النتائج المفلترة. كتابة استعلام للفلترة: حدد القائمة المنسدلة في وضع التصميم. في خصائص القائمة المنسدلة، ابحث عن خاصية Row Source. انقر على زر ... بجانب Row Source لفتح محرر الاستعلام. اكتب استعلامًا يستخدم معلمة للفلترة. مثلاً: SELECT اسم_الحقل FROM اسم_الجدول WHERE اسم_الحقل LIKE "*" & [Forms]![اسم_النموذج]![اسم_مربع_النص] & "*"; استبدل اسم_الحقل باسم الحقل الذي يحتوي على البيانات، واسم_الجدول باسم الجدول الذي يحتوي على البيانات، واسم_النموذج باسم النموذج، واسم_مربع_النص باسم مربع النص الذي أدخل فيه المستخدم النص للبحث. تحديث القائمة المنسدلة عند إدخال النص: حدد مربع النص في وضع التصميم. في خصائص مربع النص، انتقل إلى حدث After Update (بعد التحديث). أضف كود VBA لعمل إعادة استعلام للقائمة المنسدلة عند تحديث النص. اضغط على ... بجانب After Update لفتح محرر الكود، وأدخل الكود التالي: Private Sub اسم_مربع_النص_AfterUpdate() Me.اسم_قائمة_المندولة.Requery End Sub استبدل اسم_مربع_النص باسم مربع النص الذي أدخل فيه المستخدم النص، واسم_قائمة_المندولة باسم القائمة المنسدلة.

هو انا لازم يكون عندى موقع عشان اعمل القصه دى كلها.. طب لو لازم هل فى مواقع مجانيه

عندى الكود دا وعايزه امنع حقل creat انه يكون صفر انا عارفه الطريقه فى حالة وضع التصميم فى الجدول ولكن انا عايزه اعملها من الكود فى حدث عند التغيير وليس بعد التحديث لانى لو عايزه اكتب 0.9 مثلا بمجرد ما اكتب الصفر بتخرج رساله منع الصفر Private Sub creat_Change() Dim X As Double Dim weight As Double Dim gfr As Double Dim age As Integer Dim rsltcreat As Variant Dim rsltGFR As Variant ' التحقق من أن Me.creat هو رقم If IsNumeric(Me.creat.Text) Then X = Nz(Me.creat.Text, 0) ' التحقق من أن قيمة X ليست صفرًا If X = 0 Then MsgBox "قيمة creat لا يمكن أن تكون صفرًا. يرجى إدخال قيمة صحيحة.", vbExclamation Me.creat = Null Me.txt_creat = Null Me.gfr = Null Exit Sub End If Me.txt_creat = X ' التحقق من وجود قيمة صحيحة للوزن If IsNumeric(Me.weight.Value) Then weight = Me.weight.Value age = Me.age ' حساب معدل الترشيح الكبيبي (GFR) باستخدام صيغة Cockcroft-Gault If Me.gender = "Male" Then gfr = (140 - age) * weight / (72 * X) Else gfr = (140 - age) * weight / (72 * X) * 0.85 End If ' تعيين قيمة GFR في الحقل وتنسيقها Me.gfr = Format(gfr, "0.00") Else Me.gfr = Null End If Else Me.txt_creat = Null Me.gfr = Null End If ' حساب قيمة Me.creat_s rsltcreat = IIf(IsNumeric(Me.txt_creat), Me.txt_creat, Null) If Not IsNull(rsltcreat) Then If rsltcreat < Nz(Me.creat_l, 0) Then Me.creat_s = "L" ElseIf rsltcreat > Nz(Me.creat_h, 0) Then Me.creat_s = "H" Else Me.creat_s = Null End If End If ' حساب قيمة Me.gfr_s rsltGFR = IIf(IsNumeric(Me.gfr), Me.gfr, Null) If Not IsNull(rsltGFR) Then If rsltGFR < Nz(Me.gfr_l, 0) Then Me.gfr_s = "L" ElseIf rsltGFR > Nz(Me.gfr_h, 0) Then Me.gfr_s = "H" Else Me.gfr_s = Null End If Else Me.gfr_s = Null End If End Sub

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

هل ممكن عمل ذلك عن طريق كود ولو ممكن مثال من حضرتك

طريقة اخفاء بعض العناصر من ليست بوكس

لتحديث أو إضافة بيانات إلى جدول. في هذا المثال، سنستخدم جدولاً اسمه Employees يحتوي على الحقول التالية: EmployeeID (رقم الموظف - مفتاح أساسي) FirstName (الاسم الأول) LastName (الاسم الأخير) Position (الوظيفة) الخطوات: افتح قاعدة البيانات في Microsoft Access. انتقل إلى "التطوير" (Developer) ثم اختر "الوحدات البرمجية" (VBA) أو اضغط على ALT + F11 لفتح محرر VBA. اختر إدراج (Insert) ثم وحدة نمطية (Module) لإضافة وحدة برمجية جديدة. الصق الكود التالي في الوحدة النمطية: Sub UpdateOrAddEmployee(EmployeeID As Long, FirstName As String, LastName As String, Position As String) Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Set db = CurrentDb() ' تحقق مما إذا كانت البيانات موجودة بالفعل strSQL = "SELECT * FROM Employees WHERE EmployeeID = " & EmployeeID Set rs = db.OpenRecordset(strSQL, dbOpenDynaset) If rs.EOF Then ' إذا لم يكن هناك سجل مطابق، أضف سجل جديد rs.AddNew rs!EmployeeID = EmployeeID rs!FirstName = FirstName rs!LastName = LastName rs!Position = Position rs.Update MsgBox "تم إضافة موظف جديد." Else ' إذا كان هناك سجل مطابق، قم بتحديثه rs.Edit rs!FirstName = FirstName rs!LastName = LastName rs!Position = Position rs.Update MsgBox "تم تحديث بيانات الموظف." End If rs.Close Set rs = Nothing Set db = Nothing End Sub

عارف ليه لان المفروض القيم اللى المفروض تتنقل فاضيه عشان كدا الرساله بتظهر والقيم دى المفروض بتيجى معايا من الفورم السابق حط اى قيم

نفس الكلام بيفتح سجل جديد مش بيفتح عالسجل الموجود والمتوافق مع الكود

عندى فورم اسمه visit_frm موجود به زرار اسمه result مطلوب عند الضغط على زرار result يتم فتح فورم اسمهculture_frm الفورم دا موجود به استعلام انه يفتح الفورم عند نفس ID,tcode واللى هتتنقل قيمتهم من الفورم السابق اللى بيحصل معايا انه فى كل مره بيفتح سجل جديد مع ان فى سجل متوافر فيه الشروط تساوى ID,tcode مع نظائرهم فى الفورم New Microsoft Access Database.accdb

ياريت انا كمان محتاجه النقطه دى جدا

معتقدش فى شرح وافى اكتر من اللى انا شرحاه وعموما انا عملت الكود مش محتاجه غير اخر نقطه اللى هى تحديد الحقل اللى هيتم تحته الحدث بناء على الاختيار من مربع الاختيار