wael gaper

نافهنتش عليك بصراحه. بس شايف الكل شغال اكواد بصراحه😁😂😅😅😅

Dim dbc As Database Set dbc = CurrentDb Dim cs As Recordset Set cs = dbc.OpenRecordset("min", DB_OPEN_TABLE) cs.Index = "primarykey" Dim ifst As Boolean ifst = (IsNull(Me![ye]) Or IsNull(Me![mon]) Or IsNull(Me![gov]) Or IsNull(Me![dist]) Or IsNull(Me![es]) Or IsNull(Me![ms]) Or IsNull(Me![itcode]) Or IsNull(Me![est]) Or IsNull(Me![am]) Or IsNull(Me![dt]) Or IsNull(Me![nm])) If ifst = True Then DoCmd.CancelEvent MsgBox "áÇíãßä ÍÝÙ ÇáÓÌáÇÊ ÝÇÑÛÉ" Else cs.Seek "=", [ye], [mon], [gov], [dist], [es], [ms] If cs.NoMatch Then cs.AddNew cs![ye] = Me![ye] cs![mon] = Me![mon] cs![gov] = Me![gov] cs![dist] = Me![dist] cs![es] = Me![es] cs![ms] = Me![ms] cs![itcode] = Me![itcode] cs![est] = Me![est] cs![am] = Me![am] cs![dt] = Me![dt] cs![nm] = Me![nm] cs.Update MsgBox ("Êã ÇáÍÝÙ ÈäÌÇÍ") cs.close DoCmd.GoToControl ("ms") Else cs.delete cs.AddNew cs![ye] = Me![ye] cs![mon] = Me![mon] cs![gov] = Me![gov] cs![dist] = Me![dist] cs![es] = Me![es] cs![ms] = Me![ms] cs![itcode] = Me![itcode] cs![est] = Me![est] cs![am] = Me![am] cs![dt] = Me![dt] cs![nm] = Me![nm] cs.Update MsgBox ("Êã ÇáÊÍÏíË ÈäÌÇÍ") DoCmd.GoToControl ("ms") End If End If Me![itcode] = Null Me![est] = Null Me![am] = Null Me![ms] = Null Me![nm] = Null هادا كود الحفظ بس المشكلة اتحلت لان انا عندي عمودين تسلسل مش عمود واحد وضفت العمودين اشتغل بشكل صحيح شكرا ليك ولاهتمامك

استاذي جيت اجرب الكود وعملت سجل جديد ودوست عالزر ماطلعليش السجل الي لسه مسجله دا طلعلي السجل الي قبلو ؟!

الكود اشتغل شكرا جدا لحضرتك❤❤

لا بصراحه انا لسه مبتدئ😅

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

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

السلام عليكم لوسمحت انا حطيت الكود دا عشان يعرضلي اخر سجل بالجدول فالنموذج ولاكن ماظبطش وبيجبلي السجل لاكن مش الاخير. ممكن تعدلولي علي الكود بحيث يعرضلي اخر سجل بالجدول Dim dbc As Database Set dbc = CurrentDb Dim cs As Recordset Set cs = dbc.OpenRecordset("min", DB_OPEN_TABLE) cs.MoveLast Me![ye] = cs![ye] Me![mon] = cs![mon] Me![gov] = cs![gov] Me![dist] = cs![dist] Me![es] = cs![es] Me![ms] = cs![ms] Me![itcode] = cs![itcode] Me![est] = cs![est] Me![am] = cs![am] Me![dt] = cs![dt] Me![nm] = cs![nm]