أبووليد

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

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

الملف به فيروس والله اعلم

بارك الله فيك وهذا بريدي zsbr2002@hotmail.com

لبريد لا يستطيع الدخول خطأ في كلمة السر أو العنوان

بعد تحميل اصغرها حجما ارى انها كبيرة وليست مفتوحة وذات مدة زمنية محدودة الف شكر وجزاك الله الف خير

بارك الله فيك ولكن هل هي مفتوحة المصدر

اعد كتابة المسميات بدون زخارف

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

شكرا للجميع تم حل الموضوع بتغيير الطريقة

للرفع للرفع

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

لدي نموذج فيه تحرير وسرد وعملت حدث له بعد التحديث هذا هو Private Sub PlaceSave_AfterUpdate() If Not IsNull(DLookup("[PlaceSave]", "Mainin", "PlaceSave=[PlaceSave]")) Then Beep MsgBox "المكان مشغول !!!", vbOKOnly, "رسالة تنبيه" Me![PlaceSave] = Null DoCmd.GoToC…

شكرا لك عزيزي نجح الكود

هل السؤال غير مفهوم ما اقصده ان افتح على حساب مجموعة الخيار يعني لو بغيت افتح النموذج على النموذج الفرعي1 يكون عنصر التحكم (مجموعة خيارز,1) وهكذا

هذا الكود لا يصلح الا اذا كان الجدول ضمن القاعدة Dim RR As Database Dim YY As Recordset Set RR = CurrentDb Set YY = RR.OpenRecordset("Option", DB_OPEN_TABLE) لو كان الجدول ليس ضمن القاعدة ولكنه مرتبط ماهو التعديل على الكود

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

'Test if control contains text If IsNull(Screen.ActiveControl) = False Then 'convert text to Upper Case Screen.ActiveControl = StrConv(Screen.ActiveControl, vbUpperCase) End If هذا الكود لعمل ذلك ولكن بشرط ان يكون مربع النص في النموذج الرئيسي ما هو التغيير ليع…

اريد عند فتح نموذج ان تغلق النماذج المفتوحة

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