يوسف أحمد

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

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

السلام عليكم اخي العزيز حقل العموله هو حقل محسوب والأفضل عمله باستعلام او ضمن جمله مكافئة له لتكون مصدر لبيانات النموذج ( qbf ) او التقرير ان كنت لا تريد حفظ الاستعلام . وإذا أردت ذلك بالكود فاستخدم الخاصيه value بدلا من الخاصيه text حتى تحصل على القيمه الرقميه للعنصر مثل Text2.text غيرها الى Text2.value اعمل هذا مع كل مربعات النصوص بالكود وان لم تصل الى نتيجه ضع مثال ليتم العمل عليه بالتوفيق بارك الله فيك اخي العزيز أسير الشروق وجعلك سباقا الى الخير دائما

و اياكم اخي العزيز توصلنا للحل و الحمد لله .. تفضل SELECT Invoice.Inv_Nu, Invoice.In_date AS Show_date, Invoice.In_desc AS البيان, Invoice.In_value AS مدين, "" AS دائن, Invoice.ID FROM Invoice UNION all ( SELECT Payment.Pays_Nu AS Show_Nu, Payment.Pay_date AS Show_date, Payment.Pay_desc AS Show_dosc, "" AS Dr, Payment.Pay_Mount AS Cr, Payment.ID FROM Payment) order by show_date asc تفضل المرفق بعد التعديل بالتوفيق و شكراً جزيلاً لك لقد افدتني بسؤالك الجميل استعلام توحيد .rar

حاولت عملها و لكن لم اتمكن ... يبدو ان هذا غير متاح ... و ما قدمته لك هو حل و قد يكون هناك حل آخر .... و لك الخيار

السلام عليكم اخي العزيز الحل هو بعمل استعلام مبني على استعلام التوحيد و يتم به الترتيب ... اسم الاستعلام الجديد ( qryNew ) انظر المرفق ارجو ان يكون هو المطلوب بالتوفيق استعلام توحيد .rar

ان شاء الله لن يطول اكثر من هذا كلامك صحيح و اشكرك جداً على اختبارك للحل و ملاحظاتك القيمة و بإذن الله الكود التالي سيحل جميع المشاكل السابقة On Error Resume Next Dim rs As Recordset Set rs = Me.Recordset With rs .MoveFirst If Me.ok = 0 Then .MoveNext DoCmd.OpenReport "report", acViewNormal, , "ok=yes" Else DoCmd.OpenReport "report", acViewNormal, , "ok=yes" .MoveNext End If End With Set rs = Nothing وهذا الملف بعد التعديل ارجو ان يكون هو المطلوب هذه المرة بالتوفيق اخي العزيز print4.rar

استخدم الكود التالي On Error Resume Next Dim rs As Recordset Set rs = Me.Recordset With rs .MoveFirst If Me.ok = 0 Then Exit Sub Else DoCmd.OpenReport "report", acViewNormal, , "ok=yes" End If .MoveNext End With Set rs = Nothing مع ملاحظة تغيير اسم التقرير الى rpt1 حسب الكود ولكنني تركته بالمثال مثل ما سميته انت ( report ) مع انني لا احبذ استخدام مثل هذا الاسم وانصحك مجدداً بعدم استخدام اسماء محجوزة اشكرك على التنبيه و بالتوفيق print4.rar

يوجد اختلاف في الكود الذي وضعته لك في سطر واحد DoCmd.OpenReport "report", acViewNormal و انت كتبته هكذا DoCmd.OpenReport "report", acViewNormal, "[id]=" & Me.txtid غيره مثلما وضعته لك و اخبرني بالنتيجة استدراك :: نعم يوجد تكرار ... انتظر عودتي فأنا اعمل على التعديل بالتوفيق

السلام عليكم اخي العزيز ضع الكود ادناه في حدث بعد التحديث لمربع التحرير والسرد mm me.txtName=me.mm.column(0) me.txtFile=me.mm.column(1) حيث txtName هو اسم مربع النص الخاص بالاسم txtFile هو اسم مربع النص الخاص برقم الملف mm هو اسم مربع التحرير و السرد بالتوفيق

و عليكم السلام و رحمة الله و بركاته و لا يهمك اخي العزيز لعمل ذلك قم اولاً بتغيير مصدر سجلات التقرير الى الآتي : SELECT [no].id, [no].name, [no].ok FROM [no] WHERE ((([no].ok)=Yes)); لا حظ هنا بأننا اخترنا سجلات التقرير و التي يكون فيها الحقل ok يحمل القيمة نعم بعد ذلك غير الكود السابق في حدث عند النقر لزر امر الطباعة الى التالي : On Error Resume Next Dim rs As Recordset Set rs = Me.Recordset With rs .MoveFirst Do Until .EOF If Me.ok = 0 Then .MoveNext Else DoCmd.OpenReport "report", acViewNormal .MoveNext End If Loop End With Set rs = Nothing ارجو ان يكون هو المطلوب بالتوفيق

و فيك بارك اخي العزيز ابو الآء شرفني مرورك العطر

السلام عليكم و رحمة الله و بركاته اخواني الاعزاء اقدم لكم الامر BrowseTo و هو خاص فقط باكسس 2010 فما فوق و هو يقوم بفتح نموذج ( او تقرير ) و في نفس الوقت يغلق النموذج الآخر . اترككم مع المثال بالتوفيق للجميع Database1.rar

بارك الله فيك اخي علي ما كنت اقصده هو ما تفضلت به انت في سؤالك الاضافة عن طريق نموذج ادخال افضل من نموذج التحديث .. مع انه يمكن عمل ذلك و لكن يبقى الاسم لابد من ادخاله عن طريق نموذج الادخال... هناك نقاط اخرى بالمرفق و هي : 1: لا بد من تلافي الخطأ عند عدم ادخال الرقم او العمر و اظهار رسالة للمستخدم ( تم التعديل بنفس الكود بحدث عند النقر لزر الامر ) 2: بالنسبة لإدخال الرقم عن طريق مربع نص فهذا غير محبذ لأنه قد يوقع المستخدم في خطأ بإدخاله رقم غير موجود بالجدول لذلك يفضل ان يكون الرقم قائمة منسدلة ( مربع تحرير و سرد ) يختار منها المستخدم الرقم المراد العمل عليه مع ملاحظة تغيير خاصية ( الالتزام بالقائمة ) الى نعم لمنع ادخال رقم غير موجود في الاصل. ( ايضاً هذا تم عمله ) لاحظ خاصية مصدر الصف لمربع التحرير و السرد الخاص بالرقم. 3: عند اختيار الرقم قد ينسى المستخدم لاي اسم هذا الرقم و الافضل هو اظهار الاسم مع الرقم للتأكد من ذلك ( ايضاً تم عمله ) بإضافة مربع نص txtName ليحمل الاسم الخاص بالرقم تلقائياً بعد اختيار الرقم من القائمة و هذه العملية تجدها بالكود في حدث بعد التحديث لمربع التحرير و السرد الخاص بالرقم. بالتوفيق 11.rar

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

بارك الله فيكم جميعا استاذ ابو خليل. بالنسبه لعدم ظهور الكود مرتبا فهل هو بسبب استخدام متصفح معين و ما هو افضل متصفح لاستخدام المنتدى لتظهر الاكواد بشكلها الصحيح? مع جزيل الشكر و التقدير ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ تجربة باستخدام متصفح سفاري Dim rs As Recordset Dim i As Integer Set rs = Me.Recordset With rs .MoveFirst Do Until .EOF For i = 1 To Nz((Me.txtNoOfPrint), 0) DoCmd.OpenReport "rpt1", acViewNormal, , "id= " & Me.txtId Next i .MoveNext Loop End With Set rs = Nothing الحمد لله نجحت ... اشكرك استاذ ابو خليل على تعديلك للكود بمشاركتي السابقة .. فجزاك الله خير الجزاء

اضافة الى ما تفضل به الاستاذ ابو خليل جزاه الله خير اضع الحل بطريقة مختلفة قليلاً Dim rs As RecordsetDim i As IntegerSet rs = Me.RecordsetWith rs .MoveFirstDo Until .EOF For i = 1 To Nz((Me.txtNoOfPrint), 0) DoCmd.OpenReport "rpt1", acViewNormal, , "id= " & Me.txtId Next i .MoveNextLoopEnd WithSet rs = Nothing حيث id هو اسم حقل الرقم ( number ) txtId هو اسم مربع النص الخاص بحقل الرقم id txtNoOfPrint هو اسم مربع النص الخاص بعدد مرات الطباعة للسجل ( و اسمه بالمثال code ) rpt1 هو اسم التقرير ملاحظه هامه : تنسيق حقل عدد مرات الطباعه في المثال نص و المفروض ان يكون رقم . بالتوفيق للجميع

بارك الله فيك استاذنا العزيز ابو خليل اعتقادك في محله و كنت انا مخطئ و لم انتبه لطلب اخي السائل انه يريد طباعة الكل دفعة واحدة . و قد يكون مع المستعجل الزلل لي عوده بإذن الله

بارك الله فيك استاذ ابو خليل و جزاك خير الجزاء على كل ماتقدمه بعد اذنك اضع الكود اللازم Dim i As IntegerFor i = 1 To Me.txtNoOfPrint DoCmd.OpenReport "rpt1", acViewNormal, , "id=" & Me.txtIdNext i حيث txtNoOfPrint هو اسم مربع النص الذي يحتوي على رقم يحدد عدد مرات الطباعة ( في مثالك هو code ) rpt1 هو اسم التقرير id هو اسم حقل الرقم ( number في مثالك ) txtId هو اسم مربع النص الخاص بالرقم ( number في مثالك ) انصحك اخي بعدم استخدام اسماء محجوزة كــــ number و report و name بالتوفيق للجميع

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

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

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

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

تفضل اخي العزيز ابو ليمونة ارجو ان يكون هو المطلوب بالتوفيق UUU1.rar

السلام عليكم لعمل ذلك ضع الكود التالي في حدث عند التنشيط للنموذج الذي يحتوي مربع التحرير و السرد Combo1.Requery حيث ان combo1 هو اسم مربع التحرير و السرد بالتوفيق