حذف سجل واحد في قاعدة خارجية

[ابو عمار القدسي]

السلام عليكم

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

[Shivan Rekany]

9 ساعات مضت, ابو عمار القدسي said:

السلام عليكم

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

اتفضل مع الكود

Dim objAcc As Access.Application
Set objAcc = GetObject("F:\DBAL.ACCDB")
objAcc.DoCmd.OpenTable "TblPezanin", acViewNormal, acEdit
objAcc.DoCmd.GoToRecord acDataTable, "TblPezanin", acGoTo, 1
objAcc.DoCmd.RunCommand acCmdSelectRecord
objAcc.DoCmd.RunCommand acCmdDeleteRecord
objAcc.Application.Quit
Set objAcc = Nothing

واتفضل مع شرح الكود

Dim objAcc As Access.Application

قمنا بالتصريح Dim ان الكائن هو كائن برامج اكسس

Set objAcc = GetObject("F:\DBAL.ACCDB")

وان البرامج اكسس موجودة في قرص ئيف باسم دبال ونوعيته هو أسي سي دي بي

objAcc.DoCmd.OpenTable "TblPezanin", acViewNormal, acEdit

بعدين يفتح جدول باسم تبل بيزانين بشكل نورمال على شكل تعديل 
objAcc.DoCmd.GoToRecord acDataTable, "TblPezanin", acGoTo, 2

وفي جدول تبل بيزانين بيروح الى سجل رقم 2 وهناك تكدر تغير اي رقم تريد حسب سجلات في جدولك
objAcc.DoCmd.RunCommand acCmdSelectRecord

وبعدين يحدد السجل المختارة اي وهو سجل رقم 2
objAcc.DoCmd.RunCommand acCmdDeleteRecord

وبعدين بيحذف السجل المختارة
objAcc.Application.Quit

بعدين يغلق القاعدة اي قاعدة دي بال اللي عمل عمليه حذف فيها
Set objAcc = Nothing

وفي الاخير عملنا سيت اوبجيك لا شي لكي لا يبقى في ذاكرة مؤقتة للجهاز
تحياتي

 

[ابو عمار القدسي]

اشكرك استاذي القدير على ردك

واشكرك على الكود ولان اذا كانت قاعدة البيانات اكسس ولاكن محفوظة بصيغة zip فان الكود لا يعمل 

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

وجزاك الله عني خيرا وبارك فيك وفي علمك

[Shivan Rekany]

1 دقيقه مضت, ابو عمار القدسي said:

اشكرك استاذي القدير على ردك

واشكرك على الكود ولان اذا كانت قاعدة البيانات اكسس ولاكن محفوظة بصيغة zip فان الكود لا يعمل 

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

وجزاك الله عني خيرا وبارك فيك وفي علمك

في البداية ما قلت ذلك
وما ارفقت قاعدة لكي نعمل عليه
وما اخترت بأي شي او بأي حقل من الحقول نعامل
بل عطيتك اللي طلبتك اولا
والان اختلف طلبك على الاول
تحياتي

[ابو عمار القدسي]

اسف استاذي العزيز فانا مبتدئ وارجو ان تتجملني وليسعني صدرك وحلمك ان كنت اخطأت وقد ارسلت بالمرفق

اريد عند الضغط على امر حذف يحذف السجل المحدد في مربع النص وذلك من جدول kaedabyanat الموجود في قاعدة SYSTEM_KADASI والتي هي بصيغة zip 

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

حذف سجل __.rar

[ابو عمار القدسي]

اعادة للرفع اخواني