Taher DZ

تم الغاء name1 واستبداله باسم الحقل الموجود في الجدول Lieu_Marij في الكود المعدل فنجحت العملية شكرا لك استاذ Foksh ربي يحفظك

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

ركز مع الصورة تصل الى التقرير وعليكم السلام استاذ ليس بتقرير له مصدر سجلات بل تقرير كله اكواد في اكواد

اليك المرفق استاذ للتعديل علما اني موقف الكود القديم في حدث عند التحميل 'هنا كود الفصل القديم متوقف ' Dim LongName As String, Myst As Integer, Myend As Integer ' 'Valid for 5 Names only ' Dim PartName(5) As String, k As Integer ' LongName = Me.dal.Caption '.text 'Myst = 1 ' For i = 1 To Len(LongName) ' Myend = Myend + 1 ' If Mid(LongName, i, 1) = " " Then ' k = k + 1 ' ' to assign the First Name ' If i <> Len(LongName) Then ' PartName(k) = Mid(LongName, Myst, Myend - Myst) ' End If ' ' to Start count the letters of a new word ' Myst = Myend + 1 ' If k = 5 Then ' MsgBox "More than Five names is not allowed " ' Exit Sub ' End If ' End If ' If i = Len(LongName) Then ' k = k + 1 ' PartName(k) = Mid(LongName, Myst, Myend - Myst + 1) ' End If 'Next i 'هنا يكون استدعاء الكود 'Me.name1 = PartOfName([name1], 1) Me.da5.Caption = Format(rs!Date_Marj, "yyyy/mm/dd") & " بـ" & name1 & " تحت رقم : " & rs!N_Act_Marj Wil12.rar

سأوافيك بها غدا بحول الله

شكرا استاذ على التعديل الصحيح والان كيف يستدعى الكود في التقرير علما ان name1 هو المعني Me.Da5.Caption = Format(rs!Date_Marj, "yyyy/mm/dd") & " بـ" & name1 & " تحت رقم : " & rs!N_Act_Marj

السلام عليكم أساتذي الكرام 1- ياريت مساعدة بالتعديل على الاستعلام والمتمثل في : التعديل على كود الفصل في الاسم المركب سوى احادي او ثنائي او ثلاثي او رباعي المهم يكون الفصل في الاسم المركب قبل " - " لوحده الحالي: الماء الأبيض - تبسة / الكود يفصلها " الماء " و " الأبيض " المطلوب : الماء الأبيض - تبسة / الكود يفصلها " الماء الأبيض " 2- كيف يستدعى كود الفصل في تقرير مثلا وشكرا فصل ماقبل المطة.rar

شكرا استاذة على التعدبل

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

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

ثانيا كيف استبدل التسميات ب Titles1=Array(Me.Reporte_Title.ItemData(0,1,2,3,4))

Nz(txtCopies, 3) تقصد يكون هكذا استاذ

اي تعليق استاذ !!! مالذي تغير ؟

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

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

لم افلح في التجربة استاذ اليك الكود عبر المفكرة txt حاول التعديل عليه Prin3.rar

اعتذرا لصاحب الموضوع وكي تعم الفائدة ممكن استاذ تعمل معروف وتزيد للكود طباعة الصفحة اي نسخ الطباعة 3 مرات بزر واحد

ياسبحان الله استاذي لقد تم حذف كل ماتم تعديله من طرفك فاصبح المرفق يشتغل عادي شي عجيب 😙 هات ماعندك لنرى ابتكارك استاذ 💐

شكرا لك استاذي العزيز kanory قمت بإنشاء مربع نص غير منظم مخفي وسميته KA وعملت المعيار بالنموذج Frm_MenhaRules كما تم تعريف ME.KA [Forms]![FrmMenah]![ka] Me.ka = [Forms]![FrmMenah]![Etar].Column(1)

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

هل من مساعدة اساتذتي المطلوب حسب الصورة

السلام عليكم معذرة لاني لم افتح موضوع جديد لاني اراه تكملة للموضوع القديم قمت بتغيير مصدر مربع تحرير وسرد etar فوقعت في مشكلة عند فتح نموذج الشرط حاولت كثير بان اجد حلا فلم اجده Private Sub N100_Click() Dim fieldValue As String Dim keywords As Variant Dim keyword As Variant Dim found As Boolean Dim strWhereCondition As String ' الكلمات أو أجزاء الكلمات المراد البحث عنها keywords = Array("etar") ' يمكنك إضافة كلمات أخرى هنا ' جلب القيمة من الحقل Field1 مع التعامل مع القيم الفارغة fieldValue = Nz(Me!Etar.Column(1), "") ' التحقق إذا كانت القيمة تحتوي على أي من الكلمات المطلوبة found = True For Each keyword In keywords If InStr(1, fieldValue, keyword, vbTextCompare) > 0 Then found = True Exit For End If Next keyword ' إذا تم العثور على أي كلمة، افتح النموذج If found Then strWhereCondition = "[Menha_Type] = '" & Me![Etar].Column(1) & "'" DoCmd.OpenForm "Frm_MenhaRules", acNormal, , strWhereCondition If Me.Etar.ListIndex = 0 Then Me.Frm_sub.SourceObject = "FrmMenah_sub" 'Me.Frm_MenhaRules.SourceObject = Menha_Name 'Menha_Name = CmdMenha.Column(2) End If Else ' إذا لم يتم العثور على أي كلمة MsgBox "الحقل لا يحتوي على النصوص المطلوبة.", vbInformation, "تحذير" End If Exit_N100_Click: Exit Sub Err_N100_Click: MsgBox Err.Description Resume Exit_N100_Click End Sub ) تغير المصدر.rar

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

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

مشكور استاذ على الافكار الجميلة والاهتمام بالمواضيع