هاوي الأكسس

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

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

السلام عليكم استخدمت الدالة 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 شرحك واضح ان شاء الله وفعلا أعرف الغاية من مربع التحرير والسرد ولكن لا اريده في النموذج المستمر لإدخال بيانات وإنما فقط للعرض كتقرير.. فمربع التحرير والسرد أحتاجه في نماذج أخرى لإدخال البيانات بينما في هذا النموذج المستمر.. أريده أن يكون فقط ليظهر البيانات.. فهل يمكننا تغير نوعه لمربع نص.. أم تقصد من شرحك أن تغيير مربع التحرير والسرد ليس ذو جدوى ولا يمكن تطبيق الطريقة ؟

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

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

السلام عليكم أبو آدم لقد قمت بإعادة التجربة في قاعدة أخرى ولاحظت التالي : أن الكودين لإعادة تحديث النموذج يعملان بنفس الطريقة وصحيح أنهما يعيدان اظهار السجلات ما عدا السجل الذي لا يحتوي على قيمة (قيمة فارغة).. ولكن لاحظت أنهما يمكنهما إعادة اظاهر حتى السجل الذي لا يحتوي على قيمة (قيمة فارغة)... ولكن في حال قمنا بإجراء عملية بحث للسجل الذي لا يحتوي على قيمة ومباشرة طلبنا أمر تحديث النموذج.. عندها سيعاد اظهار كامل السجلات حتى الفارغة منها.. فقط عندما نطلب بحث في السجل الناقص ومباشرة ضغطنا الزر.. أما في حال طلبنا بحث في سجل يحتوي كامل البيانات ومباشرة طلبنا أمر تحديث.. فإن السجلات لن تظهر كاملة... . أعتقد معرفة المشكلة تكون مفتاح لصناعة الحل ! أتمنى ساهمت في تبسيط وتوضيح المشكلة .. حفظكم الله

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

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

شكرا لاهتمامك أخي الكريم ومعذرة لعدم ارسال مثال فقد توقعت أنه مجرد كود بسيط ! على كل حال لقد توصلت لحل المشكلة بتعديل بسيط في الكود وهو كالتالي : Private Sub TabItemName_Label_Click() If [TabItemName_Label] = -1 Then Me.OrderBy = "[TabItemName]" & " DESC" Me.OrderByOn = True Else Me.OrderBy = "[TabItemName]" Me.OrderByOn = True End If End Sub تقبل تقديري

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

هذه اجابة وافية أخي الكريم وفعالة.. لكن هناك مشكلة مع كود التحديث بعد البحث Private Sub Command10_Click() Me.SerchItemOriginal = Restor Me.SerchItemName = Restor Me.SerchItemID = Restor Me.RecordSource = "QueryTabItems" End Sub فقط عند اجراء اول بحث عند فتح النموذج وبعد ضغط الزر لتحديث النموذج.. تظهر الصورة التالية : بعد اجراء عملية البحث الأولى وضغط الزر مرتين .. يمكننا اجراء عملية بحث ثانية وثالثة وفقط نحتتاج لضغط الزر مرة واحدة.. الحل ممتاز ولكن تبقى مشكلة صغيرة وهي هذه حيث لابد من الضغط على الزر مرتين في أول عملية بحث! بعدها تجري الأمور بشكل طبيعي .. اذا بالامكان تطوير الكود ليقوم بالعمل من أول ضغطة على الزر !

جــــداً رائــــــــــــع يعمل وبشكل ممتاز أخي أبو آدم بارك الله فيك وتقبل شكري وتقديري

شكرا لك اخي أيضاً هذا يعمل ولحل مشكلة التحديث بعد البحث

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

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