ah_afify

بعد اذن الاخ العزيز شاكر الزين وجميع الاخوه الاعزاء هناك طريقة اخرى بطريقة الماكرو بعد عمل الاستعلام حذف يمكن انشاء ماكرو يحتوى على التالى set warning وتظبط على (لا) فى سطر ثاني اختار msgbox وكتب فيها سيتم حذف السجلات المحددة هل انت متاكد سطر ثالث اختار الامر …

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

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

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

الاخ العزيز بوحمدان الف شكر الملف وصل بارك الله فيك وزادك من علمه

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

الاخ العزيز شاكر الزين نشكرك على مجهوداتك وسرعة ردودك لك منا كل الشكر على التوضيح الرائع وياريت تكمل جميلك ةترفق مثال على ذلك وتقبل تحياتى وتحيات كافة الزملاء عنوانى البريدي هو afify1965 @hotmail.com

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

الاخ العزيز abdalah انسخ الكود التالى عند حدث النقر المذدوج لحقل الاسم فى النموذج الحالى Dim stDocName As String Dim stLinkCriteria As String stDocName = "اسم النموذج المراد فتحه" stLinkCriteria = "[الاسم]=" & Me![الاسم] DoCmd.OpenForm stDocName, , , stLinkCri…

منور منتداك يا غالى علينا وحشنا نشاطك واكثر الله من علمك وعطاياك للمنتدى واصدقائه

الاخوه الاعزاء اصدقاء المنتدى هناك كود لاحد الاخوة صديق المنتدى مفرج Private Function valp() Dim REC As Recordset Dim DB As Database Set DB = CurrentDb() Set REC = DB.OpenRecordset("اسم الجدول") REC.AddNew REC!per_id = 0 REC.Update End Function[/code2 وقد عدله…

الاخ العزيز بوحمدان 2000 السلام عليكم ورحمة الله وبركاته الملف الموجود فى ردك لم يفتح معى وانا محتاجة جدا فهل يمكنك ان ترسله لى على الاميل الموجود بالاعلى ولك تحياتى ah_afify

اخواني الاعزاء الاخ العزيز اشرف خليل الموضوع مهم للغايه ولطالما اردت الحصول عليه الملف after كلما حملته واريد فكه يعطينى رسالة بان الملف غير موجود او انه تالف ياريت احد الاخوه يرسله على الاميل التالى afify1965@hotmail.com وياريت يكون غير مضغوط لو كان حجمه صغير…

والله انا معاكم اخواني الاعزاء وانا من كثرة المشاكل مش عارف اعمل ايه والا اشكى لمين فبالاضافة لعدم البحث السهل وعدم تنظيم الموضوعات مثلاً هناك مشاكل جديده كانت غير موجودة في السابق رغم التطوير الكبير الان 1-الملفات المرفقه برامج الاكسيس (الاغلبية) للملفات بعد …