النهر العطشان قام بنشر مايو 14, 2017 مشاركة قام بنشر مايو 14, 2017 السلام عليكم ارجوا المساعدة في كتابة كود حذف سجل بحيث عند كتابة رقم اي سجل في المربع وعند الضغط على رز الحذف يقوم بالحذف وكما مرفق في الملف وشكرا ID.rar رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مايو 14, 2017 مشاركة قام بنشر مايو 14, 2017 1 ساعه مضت, النهر العطشان said: السلام عليكم ارجوا المساعدة في كتابة كود حذف سجل بحيث عند كتابة رقم اي سجل في المربع وعند الضغط على رز الحذف يقوم بالحذف وكما مرفق في الملف وشكرا ID.rar اتفضل اليك هذا الكود If DCount("[id]", "table1", "[id]=" & Me.Text1) > 0 Then If MsgBox("هل تريد ان تحذف سجل رقم ( " & Me.Text1 & " ) فعلا", vbYesNo + vbMsgBoxRight, "") = vbYes Then Dim sql As String sql = "DELETE Table1.ID, Table1.NAME, Table1.TEL, Table1.DATE FROM Table1 WHERE (((Table1.ID)=[Forms]![Form1]![Text1]));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True MsgBox "تم حذف السجل المرقم ( " & Me.Text1 & " ) بنجاح" Me.Text1 = "" End If ' msgbox Else MsgBox "ليس لدينا اي سجل برقم ( " & Me.Text1 & " ) في جدولنا" End If ' dcount وهذا قاعدة بايناتك بعد اضافة الكود الاعلاه ID.rar 3 1 رابط هذا التعليق شارك More sharing options...
النهر العطشان قام بنشر مايو 14, 2017 الكاتب مشاركة قام بنشر مايو 14, 2017 شكرا استاذي الفاضل هذا بالضبط ما اريده جعلها الله حسنات في ميزانك 1 رابط هذا التعليق شارك More sharing options...
foadch قام بنشر مايو 23, 2021 مشاركة قام بنشر مايو 23, 2021 شكرا👍 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.