طريقة نقل البيانات من جدول الى اخر والحدف من الجد ول الاول 1

[بلال اليامين]

 

اريد نقل البيانات من جدول الى اخر والحدف جميع البيانات من الجدول الاول

طريقه نقل .rar

تم تعديل يوليو 24, 2018 بواسطه بلال اليامين

[AlwaZeeR]

استخدم هذا الكود تحت زر امر

Dim strSQL As String

strSQL = "INSERT INTO ko11l SELECT * FROM kol"

DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
CurrentDb.Execute "DELETE * FROM kol"

DoCmd.SetWarnings True

طريقه نقل 11.mdb

طريقه نقل 11.rar

[بلال اليامين]

اريد حدف سجل واحد وليس كل السجلات

[AlwaZeeR]

16 ساعات مضت, بلال اليامين said:

والحدف جميع البيانات من الجدول الاول

هذا كان طلبك.

أما بخصوص حذف سجل واحد فيعتمد على معيار محدد 

عموماً تفضل وغير حسب ما تراه مناسباً وهنا وضعت المعيار بناء على حقل رقم الموجود في الجدول

Dim strSQL As String

strSQL = "INSERT INTO ko11l SELECT * FROM kol"

DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
'CurrentDb.Execute "DELETE * FROM kol"
CurrentDb.Execute "DELETE * FROM kol WHERE [الرقم] =[الرقم] ", dbFailOnError
DoCmd.SetWarnings True