هاوي الأكسس

ما شاء الله تبارك الله اجابات كل واحدة اروع من الثانية أشكركم أستاذ أحمد وأستاذ عبدالفتاح جزاكم الله خير الجزاء تم حل مشكلتي..

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

السلام عليكم استخدمت الدالة IIF في استعلام لغرض استخراج اسم العائلة كالتالي : FamilyName: IIf([FourthName] Is Not Null,[FourthName],[ThirdName]) لكن لم يعمل معي!! الاستعلام لم يقبل الصيغة.. ( تم في البداية تقسيم حقل (FullName) الى اربعة حقول : الاسم الاول - الاسم الثاني - الاسم الثالث - الاسم الرابع حيث أريد بعد ذلك تحديد اسم العائلة من خلال الدالة IIF ) ممكن مساعدكم جزاكم الله خير أريد الحل حتى لو كان بطريقة أخرى المثال مرفق Test for family name.rar

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

السلام عليكم مجدداً أخي الكريم أبو آدم واجهة مشكلة عند استخدام الكود التالي حيث اريد استخدامه في نموذج مستمر وعند الضغط عليه أن يقوم بحفظ تقرير سجل محدد فقط وليس كامل السجلات.. Private Sub Command11_Click() Dim LResponse As Integer Dim MyFiLeName As String If Not NoData Then ' checks for no data event to prevent a mis fire DoEvents LResponse = MsgBox("Do you wish to Save the report", vbYesNo, "Save Now or loose it") If LResponse = vbYes Then MyFiLeName = "D:\New PDF Forms\" & Format([TabCompName]) & Format(Now, "dd-mm-yyyy hhnnss") & ".pdf" DoCmd.OutputTo acOutputReport, "TabCompanies", acFormatPDF, MyFiLeName, True DoEvents If LResponse = vbNo Then DoCmd.CancelEvent Else End If End If End If End Sub كيف أضيف شرط لجعل الكود يحفظ سجل معين فقط وليس جميع السجلات ؟ أرفق لك المثال Safe Report to PDF.rar

شكرا لك كثيرا استاذي الكبير استفدت من مثالك كثيرا وعملت تحديثات باستخدام أمر زر وبنفس الكود بما يناسبني كالتالي : Private Sub Command18_Click() Dim LResponse As Integer Dim MyFiLeName As String If Not NoData Then ' checks for no data event to prevent a mis fire DoEvents LResponse = MsgBox("Do you wish to Save the report", vbYesNo, "Save Now or loose it") DoEvents If LResponse = vbYes Then DoEvents MyFiLeName = "D:\Customer reports\" & Format([TabCompName]) & Format(Now, "dd-mm-yyyy hhnnss") & ".pdf" ' هنا يمكننا اظهار عنوان موقع الملف المحفوظ MsgBox "The report was safed successfully" & vbCrLf & MyFiLeName, vbInformation ' وبهذا الكود يمكننا اظهار فقط معلومة الحفظ ' MsgBox "The report was safed successfully" & vbCrLf, vbInformation DoCmd.OutputTo acOutputReport, "TabCompanies", acFormatPDF, MyFiLeName, True DoEvents If LResponse = vbNo Then DoCmd.CancelEvent Else End If End If End If End Sub

شكرا لك كثيرا استاذي الكبير استفدت من مثالك كثيرا وعملت تحديثات باستخدام أمر زر وبنفس الكود بما يناسبني كالتالي : Private Sub Command18_Click() Dim LResponse As Integer Dim MyFiLeName As String If Not NoData Then ' checks for no data event to prevent a mis fire DoEvents LResponse = MsgBox("Do you wish to Save the report", vbYesNo, "Save Now or loose it") DoEvents If LResponse = vbYes Then DoEvents MyFiLeName = "D:\Customer reports\" & Format([TabCompName]) & Format(Now, "dd-mm-yyyy hhnnss") & ".pdf" ' هنا يمكننا اظهار عنوان موقع الملف المحفوظ MsgBox "The report was safed successfully" & vbCrLf & MyFiLeName, vbInformation ' وبهذا الكود يمكننا اظهار فقط معلومة الحفظ ' MsgBox "The report was safed successfully" & vbCrLf, vbInformation DoCmd.OutputTo acOutputReport, "TabCompanies", acFormatPDF, MyFiLeName, True DoEvents If LResponse = vbNo Then DoCmd.CancelEvent Else End If End If End If End Sub كثير الشكر لك على المساعدة

السلام عليكم ماذا عن تحويل تقرير الى ملف PDF في اكسس 2010 اعرف طريقة التحويل العادية والتي تظهر من خلالها نافذة اختيار لنوع الملف لا اريد هذه الطريقة العادية هل هناك كود يحول لنا التقرير مباشرة الى ملف من نوع PDF ? وشكرااااااااااا ............ تم إنشاء هذا الموضوع ، باخراج مشاركاته الخاصة عن موضوع يتعلق بتحويل التقرير لصيغة إكسيل ، تحقيقاً لغايات المنتدى ، وسياسته في وضوح غايات المشاركات والمواضيع / أبو آدم

السلام عليكم ورحمة الله وبركاته الأخوة الأعزاء بداية قمت بالبحث بخصوص اظهار نتيجة/ نتائج الفرز في التقرير لكن لم أجد ما يسعفني.. في قاعدة البيانات المرفقة قمت باستخدام أزرار التبديل لغرض تنفيذ الفرز تصاعدي أو تنازلي في نموذج مستمر المشكلة التي واجهتها هي كيف يمكنني اظهار نتيجة الفرز في التقرير أرجو الإطلاع على المثال جزاكم الله كل خير وبوركتم FarzResultInReport2003.rar

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

مرحبا من جديد لتوي قمت بتغيير النموذج الأول من نموذج عادي إلى نموذج مستمر ورغبت بتنفيذ نفس العملية عليه من خلال الضغط على الحقل المذكور عندما كان نموذج فردي لا توجد مشكلة.. لكن حين أصبح مستمر ظهرت مشكلة وهي أنه لا يتفح النموذج الثاني بطريقة صحيحة عندما يكون السجل جديد في النموذج الثاني أرجو الاطلاع على المرفق ومساعدتي جزاكم الله خير Test To open Subform2.rar

السلام عليكم الحمدلله والشكر كنت أبحث عن هذه الطريقة فمنذ فترة لم استخدمها ونسيت كيفيتها !! وكنت على وشك كتابة موضوع للمساعدة إلا أني وجدت هذا الموضوع فشكرا لكم جميعا لكن هدفي يختلف قليلاً وهو أني أرغب في فتح النموذج الفرعي من خلال الضغط المتكرر (دبل كليك) ويكون النموذج الفرعي من نوع متعدد السجلات وليس سجل لذلك استخدمت شرط فتح ليكون بنفس الحقل الذي سيتخذ قيمته من السجل الحالي.. في النموذج الفرعي بخصائص البيانات وعند شرط القيمة الإفتراضية وضعت التعبير التالي : [Forms]![TabCompanies]![TabCompanyID] وفي حقل TabCompanyID لنموذج TabCompanies عند الدبل كليلك وضعت أمر الفتح بشرط تساوي قيمتي الحقلين بنفس النموذجين والمثال مرفق لمن يرغب بالإستفادة هي نفس الطريقة فقط اختلاف طفيف Test To open Subform.rar

شكرا لك اخي الكريم Bluemind شرحك واضح ان شاء الله وفعلا أعرف الغاية من مربع التحرير والسرد ولكن لا اريده في النموذج المستمر لإدخال بيانات وإنما فقط للعرض كتقرير.. فمربع التحرير والسرد أحتاجه في نماذج أخرى لإدخال البيانات بينما في هذا النموذج المستمر.. أريده أن يكون فقط ليظهر البيانات.. فهل يمكننا تغير نوعه لمربع نص.. أم تقصد من شرحك أن تغيير مربع التحرير والسرد ليس ذو جدوى ولا يمكن تطبيق الطريقة ؟

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

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