نظرا لكبر حجم الملف وبعد إذن أخى العزيز ابا جودى
جرب أن تكرر إستعلام SearchQuery مع تغيير إسمه الى SearchQuery2 وتغير المعيار التالى
Like "*" & [Forms]![FullSearch]![Text0].[Text] & "*"
الى
Like "*" & [Forms]![FullSearch]![Text0] & "*"
وتجعله مصدر للتقرير SearchQuery
بالتوفيق وكل عام أنتم بخير
الأخ الكريم طاهر الوليدي
كى تحصل على جواب يرضيك فأرفق مثال لما تريد كى يتم التعديل عليه .. فالمرفق هنا هو مجرد إجتهاد قد يكون او لا يكون ما تريده.
Database1.rar
الأخ الفاضل محمد صلاح1
عند البحث ببند الكل يتم تلوين كلمة البحث فى نتيجة البحث باللون الأحمر ولذلك ازرار التنقل فقط تنقلك للسجل التالى أو السابق.
فى الجداول يوجد حقول كثيرة فارغة لذا تظهر فى نتيجة البحث #نوع وللتغلب على هذا يتم تعديل مصدر عنصر التحكم بوضع شرط إذا وجد العنصر فارغا يعطيه قيمة (Null)
وكمثال على تصنيف عام يتم تعديل مصدر NaItemA1 الى
=IIf(IsNull([t0]);[NaItemA];IIf(IsNull([NaItemA]);"";Replace([NaItemA];[t0];"<font color=red >" & [t0] & "</font>")))
أما الفرز وقد تكلمنا عنه سابقا يتم تغيير Record Lock للفورم الى No Locks
تحياتى
الأخ الفاضل شامل2 .. جرب ما يلى
فى مربع التص .. Sum من N_Form .. اكتب فى .. Control Source .. له
=IIf(([Name_Field]="ثالثا: القيم والاتجاهات");"";Sum([Deg_Assment]))
هناك حل أن تجعل كود الصنف نص وليس رقم
وإن كان لابد ان يكون حقل كود الصنف رقم فإجعل خاصية Formate لهذا الحق (00000000) بحسب كم رقما تريد لهذا الكود كحد أقصى.
أرجو أن أكون أوضحت الفكرة
أخى Barna إقبل إعتذارى فلم أنتبه أنك شاركت
غير الكود الى
On Error Resume Next
Dim stLinkCriteria As String
stLinkCriteria = "[ID] =" & Me![Id]
DoCmd.OpenReport "TG", acViewPreview, , stLinkCriteria
كما تفضل أخى عبد اللطيف سلوم وطالب بمثال للتطبيق عليه .. أضم صوتى لصوته كى تحصل على أعلى فائدة ..
ولكن جرب أن تجعل خاصية التنسيق لـ ( إجمالى المبلغ ) ثابت و المنازل العشرية له 2