رمهان

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

lمشاركة مع الاستاذ محمد وبعد اذنه Private Sub أمر0_Click() subform1.SetFocus For i = 1 To Me.subform1.Form.RecordsetClone.RecordCount subform1!ImagePath = Replace(subform1!ImagePath, Left(subform1!ImagePath, InStrRev(subform1!ImagePath, "\") - 1), DLookup("pate", "IETEM_NEM", "ITEM_NO=" & subform1!emp_id)) DoCmd.GoToRecord , , acGoTo, i Next End Sub تحياتي

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

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

عزيزي قبل كل شي فتحت الجدول table1 لديك ولم اجد اسماء الازرار كلها مسجله به

العفو وبالتوفيق

عزيزي لا اعتقد ان الكود اعلاه سيفي المطلوب ملاحظة : cancel ليس لوجودها اهميه لانها في هذا الحدث غير معرفة هي معرفة في احداث اخرى مثل قبل التحديث وغيره اما بعد التحديث فلا هذا وتقبل تحياتي

عزيزي اخر مرفق به المطلوب تماما ولكن يمكن انك لم تسرد جميع اسماء ازرار الامر بالجدول table1

شكرا استاذ ابو ابراهيم الحقيقة انا طرحت السؤال لاحدد ماذا يقصد ابو ابراهيم هنا وهنا اتضح لي ان فصدك اصدار الاوفيس وليس الويندوز فهنا اسمح لي اوضح المشكلة اكثر لما اتى الاوفيس 2010 باصداريه 32 و 64 وما بعد لم يعد ان تعمل ال accde المنشاه من الاصدار على الاخر وهنا لما تكون المرجع محول من 32 بت صعب الامر جدا ان تقوم بتحويل ملف المرجع كل مره لتسلم عميل لديه الاصدار الاخر وهنا استبعدت الطريقه لما سببت من مشاكل وهدر وقت تقبل تحياتي

ايش رايح تريح دماغ الاكسس شويه انقل التركيز لعنصر اخر ثم اعد التركيز هنا العمليه بشكل صريح Private Sub Cus_Mob_AfterUpdate() Dim phone As Integer phone = DCount("Cus_Mob", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]") If phone > 0 Then If MsgBox(" هذا الموبايل مكرر لللاعب رقم" & DLookup("[Cus_Num_D]", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]"), vbInformation + vbMsgBoxRight, "رقم مكرر") = vbOK Then Cus_Mob = "" other.setfocus Cus_Mob.SetFocus End If End If End Sub

العفو تحياتي

هذه فكرة لابد من سرد جميع اسماء زر الامر في جدول table1 بالتوفيق Text2.rar

اخي غريب العفو اولا ثانيا حبيت اقول لك : اتوقع انت تريد تعم برنامج نقاط بيع . هناك نقاط مهمة 1. كيف ستتعرف على اكواد العناصر حتى يتم الخصم من الجداول 2. كيف تسجيل حركة البع 3. كيف وكيف فانا حبيت اجاوب على قدر السؤال وخصوصا ان المطلوب هو كيف تتم من خلال وحدة نمطية فقلت يمكن الهدف التعلم وليس تطبيق فعلي الان بالتوفيق

جرب Text2.rar

تمام .. قيد التنفيذ

حياك الله واسال الله العظيم الكريم ان يشفي ابنك وهو سميع قريب كريم مجيب

اخي غريب سؤالي كان واضح واحتاج اجابتك : انا فهمت ماتريد وبقي الاستفسار : بالنموذج الفرعي انت واضع 56 زر . فمثلا لو العصائر 3 هل يتم اخفاء ال 53 زر الباقين ام يتركهم وبدون عنوان او تسميه للاصناف؟

كيف اعرف انه 32 بت او 64 بت استاذ ابو ابراهيم ؟

@Elsayed Bn Gemy where are you ? any update !!

ولو حبيت اشوف عمودين اوثلاثة مع بعض ؟ والسؤال استاذ جعفر كان منع زيادة عرض الصفوف وليس رؤية كامل المحتوى وشرفت المشاركة

جرب .. ضع الحدث زي ماهو ثم ضع زر به امر حفظ وشوف هل تم الحفظ ام ان المشاركة لما تريد بالتمام ... انت جرب اولا ؟ وهذا تعدسيل بسيط وبعد اذن ابو عبدالله Private Sub Form_BeforeUpdate(Cancel As Integer) On Error Resume Next DoCmd.SetWarnings False If MsgBox("هل تريد حفظ التغييرات ؟", vbYesNo, "تأكيد الحفظ") = vbNo Then cancel=-1 Me.Undo End If DoCmd.SetWarnings True End Sub بالتوفيق

اخي غريب صدقني الرابط السابق به مشاركة لما تريد بالتمام ونفس طلبك وعالعموم ساحاول اعادة التطبيق الان استفسار : ماذا تقصد بتصفية ؟ هل يتم اخفاء باقي الازرار ام يتركها وبعنوان فارغ ؟

السلام عليكم شكرا استاذ عبدالفتاح وجميع الاخوه فيه استفسار استاذ ابو ابراهيم ومقتبس من مشاركة الاستاذ شيفان وحسب مرفق الاستاذ عبدالفتاح لو حبينا يكون المنع مكون من حقلين وفي مثالنا رقم المدرسة واسم المدرسة وفي المثال اعلاه eqamaid,eqama وحسب الحدث قبل التحديث ؟ كيف ستكون ؟ تحياتي

هذا رابط اعتقد قريب لما تريد بالتوفيق