أبو امين

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

استاذي الكريم بارك الله فيك و جعلك منارة لكل متعلم : يرحم والديك تمام التمام

استاذي الكريم صباح الياسمين و العطر السؤال الثاني مرتبط بشاشة تحت اسم : framumnenational فيها زر للطباعة : تتكون البيانات من شهور مختلفة مثلا ماي له بيانات معينة : فيفري له بيانات معينة : جانفي له بيانات معينة . اريد البحث مثلا عن الشهر ثم طباعة بيانات ذلللك الشهر . جربت التصفية و الكود لكن لم يفلح معي شكرا استاذي على مرورك

01 / هذه شاشة اعداد تقرير يومي لمؤسسة تربوية : كل الاجزاء تشتغل عال العال لكن واجهتني مشل تتمثل في طباعة الجزء المعلم بالاصفر لانه جزء خاص بعملية الاحصاء حاولت بالعديد من الطرق لكن للاسف لم استطع السؤال الثاني يوجد بالمثال شاشة لتحيةة العلم اليومية بها زر لطباعة قائمة المعنيين بتحية العلم الشهرية حاولت طباعة القائمة الشهرية لكن لم افلح بالرغم من كوني اعتمدت كل الاكواد الممكنة المرفق : RapportQ.rar

ربما يفيدك هذا الكود : Sub PrintPDF() Dim objPDF As Object Dim strReportName As String Dim strOutputPath As String ' اسم التقرير الذي ترغب في طباعته إلى ملف PDF strReportName = "اسم_التقرير" ' المسار الذي سيتم حفظ الملف فيه strOutputPath = "مسار_الملف\اسم_الملف.pdf" ' إنشاء كائن PDF Set objPDF = CreateObject("AcroExch.PDDoc") ' فتح قاعدة البيانات المرتبطة بالتقرير DoCmd.OpenReport strReportName, acViewNormal ' حفظ التقرير كملف PDF DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, strOutputPath ' إغلاق التقرير DoCmd.Close acReport, strReportName ' إغلاق كائن PDF objPDF.Close ' تحرير الذاكرة Set objPDF = Nothing ' إعلام المستخدم بالانتهاء MsgBox "تم طباعة التقرير كملف PDF بنجاح!" End Sub قم بتغيير "اسم_التقرير" إلى اسم التقرير الذي ترغب في طباعته، و "مسار_الملف\اسم_الملف.pdf" إلى المسار الذي ترغب في حفظ الملف PDF فيه. بعد ذلك، يمكنك تشغيل الكود عن طريق فتح قاعدة البيانات في Access والذهاب إلى وحدة VBA. ثم، قم بتشغيل الكود "PrintPDF" لل

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

استاذي الكريم بارك الله في جهودك اظن انني لم استطع توضيح المطلوب : نفس التمشي الذي قمت به لكن يجب ان نلغي من عملية البحث خانة الاستا\ و الاقسام : مثلا اختار للبحث عن المراقب و اختار المادة و اختار المستوى و اضغط على بحث ليظهر في الجداول اسماء الاساتذة الذين يقومون بمراقبة المادة المعينة للمستوى المعين و ارجوا ان تفي الصورة بالغرض

استا\ي الكريم الجواب جميل و الطريقة اجمل منها لكن اريد التالي : نعوض القائمة المنسدلة للاستاذ بعدد المجموعة و نضيف خانة اخرى لنوع المراقبة مثلا مراقب او احتياط فمثلا عندما نختار : 01/ مراقب 02/ ثم نختار مادة العربية 03/ ثم نختار المستوى يظهر في الجدول ما اخترناه فقط و شكرا لك سلفا على الرد

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

Private Sub Report_Open(Cancel As Integer) Dim ctl As Control For Each ctl In Me.Controls If IsNull(ctl.Value) Or ctl.Value = "" Then ctl.Visible = False End If Next ctl End Sub هل يمكن جعل هذا الكود في موديل و استدعائه لجميع التقارير الموجودة في البرنامج

Private Sub Report_Open(Cancel As Integer) Dim ctl As Control For Each ctl In Me.Controls If IsNull(ctl.Value) Or ctl.Value = "" Then ctl.Visible = False End If Next ctl End Sub

اضافة : Dim txt As Control ثم نضيف الكود التالي : ctl.Fontsize=13 نضيف هذان الجزءان لكود الاستاذ الفاضل

مثال جميل كجمال روحك طيب الله دنياك و اسرك بالخير و الهناء طلب لو ما فيش ازعاج الكود كامل لكن لو اردناه ان يكون جامع يجب ان نضيف له نوعية الخط و الحجم حتى نجمع في المثال العديد من الجواني : هل يمكن اضافة : نوع الخط حجم الخط لنفس المثال

الله الله عليك استاذي دمت منارة للعلم ... اضاء به الله دربك و نور حياتك

استاذي لا اقصد لابل الفو رم و انما اقصد تغيير لون etiquette داخل النموذج المرافقة لخانة النصوص و اتذر عن الهائك

استاذي الكريم و اذا كنت اريد تغيير جميع اللابل في الفورم من خلال التعديل على الكود .. هل بالامكان فعل ذلك يعني نفس الفكرة لكن مع label الموجودة في الفورم اي الموجودة في النموذج

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

اريد وضع هذا الكود في موديل لاقوم باستدعائه في جميع النماذج الموجودة بالبرنامج Private Sub Form_Load() Me.Section(acDetail).BackColor = RGB(215, 255, 7) ' يمكنك تغيير قيم RGB حسب اللون الذي تريده End Sub كود تغيير لون النموذج

تم ايجاد الطلوب ،لا نشكلة في عدم الاجابة

يمكنك استخدام VBA لربط جدول Access بجدول Google Sheets باستخدام Google API. يتطلب هذا الأمر إعدادات API وترخيص الوصول إلى جدول Google Sheets. فيما يلي مثال بسيط لنسخ بيانات جدول Access إلى جدول Google Sheets باستخدام Google API: Sub ExportToGoogleSheets() Dim db As DAO.Database Dim rs As DAO.Recordset Dim conn As New ADODB.Connection Dim rsGoogle As New ADODB.Recordset Dim strConn As String ' Connection string to Google Sheets strConn = "Provider=MSDataShape;Data Provider=Google Sheets; " & _ "Data Source=spreadsheet_key; " & _ "User ID=username;Password=password; " & _ "Extended Properties=""HDR=Yes;"";" ' Open connection to Google Sheets conn.Open strConn ' Open recordset for Access table Set db = CurrentDb Set rs = db.OpenRecordset("SELECT * FROM myTable") ' Loop through records and copy to Google Sheets Do Until rs.EOF rsGoogle.Open "SELECT * FROM Sheet1", conn, adOpenKeyset, adLockOptimistic rsGoogle.AddNew rsGoogle.Fields("Field1").Value = rs.Fields("Field1").Value rsGoogle.Fields("Field2").Value = rs.Fields("Field2").Value rsGoogle.Update rsGoogle.Close rs.MoveNext Loop ' Clean up rs.Close Set rs = Nothing Set db = Nothing conn.Close Set conn = Nothing End Sub تغيير "spreadsheet_key" إلى مفتاح جدول Google Sheets الخاص بك و "username" و "password" إلى اسم المستخدم وكلمة المرور الخاصة بحساب Google الخاص بك. يجب أن تضمن مكتبة ADODB في مشروع VBA الخاص بك. تحتاج أيضًا إلى تنزيل برنامج تشغيل Microsoft OLE DB Provider for ODBC Drivers وتثبيته للحصول على الوصول إلى Google Sheets. يمكنك تنزيل البرنامج التشغيلي من خلال الرابط التالي: https://www.microsoft.com/en-us/download/details.aspx?id=13255 بعد تثبيت البرنامج التشغيلي، قم بإعداد اتصال ODBC باستخدام بيانات اعتماد Google الخاصة بك والمفتاح المميز لجدول Google Sheets الخاص بك. يمكنك إعداد الاتصال الخاص بك باستخدام Control Panel في Windows. المطلوب : اين اضع هذا الكود هل اضعه في زر امر ام في وحدة نمطية

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

و عندما تكون الوحدات النمطية محمية بكلمة مرور ما ذا نضيف للكود : DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Derbali\edusoft.accdr", acForm, [Modifiable9], [Modifiable9], False

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

صراحة طبقت المثال مثل ما هو موجود بالمرفق لكن فشلت العملية : استعملت في هذا المثال القائمة المنسدلة كما اشرت لها لكن العملية لم تنجخ و يتوقف النقل في وسط الطريق : edusoftUpdate.accdb

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