كود برمجي لاستعلام الحاق وحذف

[WESAMZALL1177]

السلام عليكم كيف ممكن اضيف كود برمجي لاستعلام الحاق وحذف 

يعني اقوم بعمل زر يشغل استعلام الحاق وحذف في نفس الوقت وشكرا لكم

تم تعديل فبراير 7, 2020 بواسطه WESAMZALL1177
تعديل على الجمله

[أبوبسمله]

وعليكم السلام

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

ده كود من برنامجى للتوضيح

DoCmd.SetWarnings False
'الحاق السجل اللى عليه التركيز ثم حذفه
AutoNum.SetFocus
DoCmd.RunSQL "INSERT INTO TDelASEEDB ( ID, AutoNum, ZCustomerID, [In], Out, Eladafy, ZDate, Tel, Mlahzat ) " & vbCrLf & _
"SELECT RASEEDB.ID, RASEEDB.AutoNum, RASEEDB.ZCustomerID, RASEEDB.[In], RASEEDB.Out, RASEEDB.Eladafy, RASEEDB.ZDate, RASEEDB.Tel, RASEEDB.Mlahzat " & vbCrLf & _
"FROM RASEEDB " & vbCrLf & _
"WHERE (((RASEEDB.AutoNum)=[forms]![FORMB]![AutoNum]) AND ((RASEEDB.ZCustomerID)=[forms]![FORMB]![CusName]));"
'حذف
DoCmd.RunSQL "DELETE RASEEDB.ID, RASEEDB.AutoNum, RASEEDB.ZCustomerID, RASEEDB.[In], RASEEDB.Out, RASEEDB.Eladafy, RASEEDB.ZDate, RASEEDB.Tel, RASEEDB.Mlahzat" & vbCrLf & _
"FROM RASEEDB " & vbCrLf & _
"WHERE (((RASEEDB.AutoNum)=[forms]![FORMB]![AutoNum]) AND ((RASEEDB.ZCustomerID)=[forms]![FORMB]![CusName]));"

DoCmd.SetWarnings True

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[ابو جودي]

صمم الاستغلامات اولا

ومن محرر الاكواد انظر اين تريد وضع الحدث الاتى ومتى

DoCmd.SetWarnings False
    DoCmd.OpenQuery "اكتب هنا اسم الاستعلام الاول"
    DoCmd.OpenQuery "اكتب هنا اسم الاستعلام الثانى"
DoCmd.SetWarnings False

 

[WESAMZALL1177]

يعطيكم الف عافيه تم نجاح المهمه