النجاشي

للرفع

ممتاز بارك الله فيك

السلام عليكم احبتي الكرام اربيد كود الصلاحيات الا الذين مسموح لهم اسم الجدول تبع الصلاحياتtb5 اريد ان لايفتح اضافف صنف الا للمصرح لهم تحياتي صلاحيه.accdb

السلام عليكم احبتي اريد تصحيح الكود بالطريقه الصحيحه On Error Resume Next Call zr_11_Click Set Rs = CurrentDb.OpenRecordset("AfwtIar") Rs.AddNew Rs!Rjmfatwra = Rjmfatwra Rs!NoEmp = NoEmp Rs!Nwaha = Nwaha Rs!Adfah = Adfah Rs!Alban = Alban Rs!Atarih = Atarih Rs!namee = namee Rs!Aljmali = Me.n1 Rs!Asafi = Me.n2 Rs.Update Rjmfatwra = Null NoEmp = Null Adfah = Null Nwaha = Null Namamila = Null Alban = Null Atarih = Null 'namee = Null Set Rs = Nothing DoCmd.SetWarnings False DoCmd.OpenQuery "ÇáÍÇÞ" DoCmd.SetWarnings True '' 'On Error Resume Next DoCmd.SetWarnings False Dim Q As Recordset 'åÐÇ ÇáßæÏ íáÛí ÇáÎÝÙ ÇáÊáÞÇÆ ÚäÏ ÇáÊÑÇÌÚ æ' Set Q = CurrentDb.OpenRecordset("SELECT * from hrr;") While Not Q.EOF 'If Q!Xsave = False Then Q.Delete 'End If Q.MoveNext TB.Requery Wend DoCmd.SetWarnings True تحياتي اليكم

قريب من الحل ولكن لم يسمح بادخال اكثر من رقم

استاذي@Khalf استاذي@ابو ياسين المشولي اريده عند التغير الكود شاكرين لكم

بارك الله فيك اخي محمد مشكورررررررر

السلام عليكم اريد ان ابحث بجزء من الكلمه اسم الصنف او رقم الصنف تحياتي اليكم احبتي البحث.accdb

السلام عليكم احبتي اريد تعطيل المفتاح الكيبورد الا رقمه 112 تحياتي

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

بارك الله فيك اخي محمد الف شكر كثير اليك ما قصرت الله يعطيك العافيه ما داعي تتاسف اخوك الصغير يالغالي تحياتي اليك

السلام عليكم احبتي الكرام اريد اضافه من النموذج للجدول واذا اذا اخلت نفس الصنف مره اخري يعطينا اسمه ويزود كميه الافتتاح فوق السابقه تحياتي احبتي اضافه تعديل.accdb

حياك الله اخي محمد بالنسبه للاحوال الحمدلله والشكر لله اخي الفاضل المثال رائع جدا اشكرك بشده ولكن ياليت توضح لي هل كل الموديول استخدمها لا يكون يتجاوز شريط المهام النموذج تحياتي اخي

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

لقد اضفت عليه Exit Sub واشتغل مظبوط بارك الله فيك يالغالي

يعطي رساله استاذي ابو ياسين ويظيف الرقم بالفرعي

السلام عليكم احبتي المطلوب تصحيح الكود بحيث يعمل بالباكورد بطريقه صحيحه ويعطي رساله في حاله عدم وجود الصنف الا محيرني اذا ادرجت الصنف الذي يكون بالسجل الاول يخرج التركيز من الحقل تحياتي احبتي تحياتي الباكورد.accdb

بارك الله فيك يالغالي ممتاز هو المطلوب شكر اليك

السلام عليكم احبتي الكرام كيف اعدل الكود اذا كان حقل ID_SNF نص If DCount("*", "[hrr]", "[ID_SNF]=" & Me.ID_SNF) <> 0 Then MsgBox "åÐå ÇáÓáÚÉ ãæÌæÏÉ ãÓÈÞÇ" Exit Sub End If

بارك الله فيك استاذي ابو محمد

ممكن عمل مثال مصغر يابو ياسين كي تعمل الفائده نشكر الاستاذ@Khalf على السوال الرائع تحياتي احبتي

بارك الله فيك روعه استاذ شفان يبقي لب الموضوع معي الكود بتاعك ضغط واصلاح هل اذا استخدمته يوميا يتلف القاعده ام هناك كما قال استاذنا N_ELMASRY استخدمه كل فتره تحياتي اليكم احبتي الكرام

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

السلام عليكم ورخمه الله احبتي لقد قرات انا كثر الضغط والاصلاح يتلف القاعده السوال باعددات الاكسس ضغط عند الاغلاق اذا اخترت نعم هل يتلف القاعده تحياتي

استاذ ابو ياسين ادخل البيانات بالنموذج واعمل حفظ لقد حاولت بهذا الكود ولم يشتغل معي اعتقد في مشكله بالجدوال