hassan omara

الحمد لله فلقد توصلت الي الحل وهو اضافة كود في حدث عدم وجود بيانات وهو DoCmd.CancelEvent وفي زر امر الطباعة لا اضيف شي بل سوف احذف Err_Command31_Click: يتم حذف هذا السطر فقط ----> MsgBox Err.Description Resume Exit_Command31_Click فلن تظهر رسالة وبذالك استطيع اضافة طباعة اي كمية تقارير بزر واحد وبالطبع لن يطبع التقارير التي لا يوجد بها بيانات ولن تظهر رسالة خطأ وشكرا

لقد وجدت هذا الكود ويتم وضعه في حدث عدم وجود بيانات Private Sub Report_NoData(Cancel As Integer) MsgBox "عفواً.. لا توجد بيانات ! سيتم إغلاق التقرير.", _ vbMsgBoxRight + vbMsgBoxRtlReading + vbCritical + vbOKOnly, _ "تنبيه" DoCmd.CancelEvent End Sub وكود اخر وهو On Error Resume Next DoCmd.OpenReport "اسم التقرير", acViewPreview If Err = 2501 Then Err.Clear لالغاء ظهور رسالة التنبيه ولكن للأسف الكود الاول اشتغل تمام بس الكود التاني وهو لالغاء رسالة التنبيه لا يعمل ارجوا الافادة حيث ان زر الطباعة موجود في نموذج مستقل

عندي قاعدة بيانات وادخل بها البيانات و وعملت عدة تقارير بناءا علي استعلامات وعندي زر امر للطباعة واريد هذا الزر ان يطبع التقارير التي بها بيانات فقط بمعني عندي 10 تقرير وعند ادخال البيانات يتم ادخال البيانات علي التقرير رقم 3و7 وعند الضغط علي زر امر الطباعة فانه يطبع كل التقارير من 1 الي 10 بس انا عايزه يطبع التقارير اللي فيها بيانات وبس واللي هما 3و7 او عند ادخال البيانات وتفعيل التقارير 1و4و6و9 يتم طباعتهم هما وبس مش كل التقارير ارجوا ان تكون الفكرة وصلت وارجوا الرد وشكرا

هذا الشعار New Bitmap Image (5).bmp

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

انا حليت المشكلة والبنسبة للمشروع هو برنامج اكسس متكامل من كاشير يضم 800 زر اومر للاصناف و 800 زر اخرين لصفحة الدليفري وصفحة بها 1000 زر اوامر للاصناف المخزن استيلام ومثلهم للصرف .... وجزء للمرتبات وجزء اخر لنظام الاقساط كل دا في برنامج واحد ... وشكرا لاهتمام حضرتك... والبنسبة لحل المشكلة وطريقتها لاستفادة باقي الاعضاء انا عملت الازرار كما هي مثال ( أمر12) وبالتالي فزر الامر التالي سيكون (أمر13) وبالتالي فالاسم كدة هيكون كل بتسلسل ورا بعض وبالنسبة لكود الزر فانا عملت كود لاول زر بس ثم سحبت الكود وحطيته في برنامج الاكسيل وسحبت للنسخ فكرر الكود كل الكمية اللي انا محتاجها مع تسلسل رقم الامر وباقي التفاصيل مثال علي ذالك .... Private Sub الامر1128_Click() SalesSubform.SetFocus DoCmd.GoToRecord , , acNewRec [Forms]![sales]![SalesSubform]![ItemID] = DLookup(" [Item] ", "btn2", "[btnID] = 113 ") [Forms]![sales]![SalesSubform]![Price] = DLookup(" [SPrice] ", "btn2", "[btnID] = 113 ") End Sub Private Sub الامر1129_Click() SalesSubform.SetFocus DoCmd.GoToRecord , , acNewRec [Forms]![sales]![SalesSubform]![ItemID] = DLookup(" [Item] ", "btn2", "[btnID] = 114 ") [Forms]![sales]![SalesSubform]![Price] = DLookup(" [SPrice] ", "btn2", "[btnID] = 114 ") End Sub Private Sub الامر1130_Click() SalesSubform.SetFocus DoCmd.GoToRecord , , acNewRec [Forms]![sales]![SalesSubform]![ItemID] = DLookup(" [Item] ", "btn2", "[btnID] = 115 ") [Forms]![sales]![SalesSubform]![Price] = DLookup(" [SPrice] ", "btn2", "[btnID] = 115 ") وبكدة قدرت اتغلب علي مشكلة الازرار ومشكلة التعب في كتابة الاوامر ....

ارجوا من الاخوة الكرام المساعدة بتغير اسم الازار حيث اني اعمل علي برنامج اكسس والتصميم يتطلب في احد الصفحات ان اعمل 800 زر امر وان يكون اسم الازرار يبدا بـ btn ويلجق كل اسم ترقيم مثل btn1- btn2 - btn3 ومطلوب ان اعمل تسمية 800 زر للصفحة الواحدة وعندي 10 صفحات يعني 8000 زر فهل يوجد طريقة لتسمية الازرار دفعة واحدة برجاء التكرم من كبار اساتذة الاكسس وشكرا ....

نزلت من موقعكم برنامج بالاكسس مفتوح ولكن هناك نقطة اريد استكمالها ولا اعرف الطريقة .... وهي برنامج اكسس نقاط البيع البرنامج جاهز ولكن اريد ان اضيف خانات زيادة (مطعم - مشروبات - قائمة 1- قائمة 2 اريد 12 قائمة هل من مساعدة مرفق نسخة من البرنامج وشكرا ... واذا امكن هل يمكن اضافة فصل وردية اي علي مدار اليوم يوجد 3 وردية اريد حساب كل وردية علي حدي اذا امكن ان لم يمكن فلا مشكلة وشكرا ...... نقاط البيع.rar

بعد اذن الاخوة الاعضاء الافاضل هل يمكن زيادة خانات (مطعم - مشروبات) ام ليس لها حل وشكرا