31-12-16, 10:07 PM
(آخر تعديل لهذه المشاركة : 31-12-16, 10:41 PM {2} بواسطة sendbad100.)
وعليكم السلام ورحمة الله وبركاته
وكل عام والجميع بالف خير
هذا استعلام ينسخ البينات المحددة الى جدول الارشيف
بعد تنفيذ النسخ قم بتنفذ كود الحذف اعتقد انه موجود في زر الحذف
والله الموفق
وكل عام والجميع بالف خير
هذا استعلام ينسخ البينات المحددة الى جدول الارشيف
بعد تنفيذ النسخ قم بتنفذ كود الحذف اعتقد انه موجود في زر الحذف
والله الموفق
كود :
If RA.State = 1 Then RA.Close
sql = "INSERT INTO Archives SELECT Mobachir.* FROM Mobachir WHERE (((Mobachir.الاسم)=" & "'" & Trim(Text2.Text) & "'))"
RA.Open sql, DB, adOpenStatic, adLockPessimistic