حفظ التعديل على سجل

هذا الكود لزر الحفظ

DoCmd.SetWarnings (False)

If DCount("*", "table1", "id=" & Me.ID) = 0 Then
DoCmd.RunSQL ("INSERT INTO table1 (ID,Myname,Tel,MyDate)SELECT'" & ID & "' AS Expr1,'" & Myname & "' AS Expr2,'" & Tel & "' AS Expr3,'" & MyDate & "' AS Expr4;")
Else
DoCmd.RunSQL ("UPDATE Table1 SET Table1.ID = " & ID & ", Table1.MyName = '" & Myname & "', Table1.Tel = '" & Tel & "', Table1.MyDate = '" & MyDate & "' WHERE (((Table1.ID)=" & ID & "));")
End If

 DoCmd.SetWarnings (True)

أستاذي الكبير ( أبو يوسف ) ..

جزاك الله ألف .. ألف .. ألف خير وجعله في موازين حسناتك .. على هذا الحل الرائع ..

وبقي شئ واحد أستاذي الفاضل أتمنى ألا أثقل عليك به ...

وهو ..

هل يمكن إضافة زر للحذف ؟

ولك مني ألف .. ألف تحية ..

db2.rar

هذا للحذف أخى الكريم

DoCmd.SetWarnings (False)
DoCmd.RunSQL ("DELETE * FROM Table1 WHERE (((Table1.ID)=" & ID & "));")
DoCmd.SetWarnings (True

)

أستاذي الفاضل ...( أبو يوسف ) ..

أشكرك من كل قلبي على هذا التجاوب السريع ..

أستاذي العزيز .. لقد قلت لك في آخر مرة ( أنه بقي شئ واحد ) ، ولكن أستاذي تحملني قليلاً وذلك لأهمية الموضوع بالنسبة لي ..وسؤالي : هل يمكن وضع كود لرسالة تفيد بأن هذا السجل قد سبق تسجيلة وذلك إذا كان هذا السجل موجود من قبل وذلك لمنع التكرار أثناء عملية حفظ سجل جديد ..

وأدعوا الله القدير أن يزيدك من العلم النافع ..ويجعل مثواك الجنة ..

db2.rar

أخى الكريم

لن يحدث تكرار أبدا

اذا كان السجل موجود سيتم تعديله بالقيم المدخلة و اذا لم يكن موجود سيتم اضافة سجل جديد

أشكرك أستاذي ( أبو يوسف ) .. على متابعتك ..

وجزاك الله ألف . ألف خير ..