طريقة نسخ بعض الحقول من الجدول الى الى جدول آخر في قاعدة البيانات

السلام عليكم

الكود في الاعلى على الاغلب انه صحيح 100% لذا نرجو ذكر رسالة الخطأ او كيف عرفت انه غير صحيح

طريقة أخرى اسهل وهي تعتمد على ما فهمت من الكود في الاعلى ومعناها انك تريد اضافة الصفوف الى الجدول stjam من الجدول tsalem وهذه الصفوف غير موجودة في stjam

Dim SQL As String
SQL = "insert into stjam (num,no1,faah) select  num,no1,faah from stjam where not fahh  in( select faah from stjam)"
db.execute SQL

أخي Tareqvb أشكرك على إهتمامك بسؤالي

ولك مني دعوة صالحة في ظهر الغيب

بالنسبة للرسالة الخطأ هي

"عدم تطابق نوع البيانات في تعبير المعايير "

برغم أن الحقول الموجوده من نوع رقم integer

أشكرك مرة أخرى على أهتمامك وسرعة تجاوبك وجزاك الله خير

السلام عليكم ورحمة الله

اولا انصحك ان تجرب الكود الذي ارفقته لك في الاعلى فهو سيكون اسرع بكثير من طريقتك .

ثانيا بالنسبة لرسالة الخطأ فهي بسبب تغليف الارقام بالفواصل ' ' بالتالي يجب ان يكون الاستعلام كما يلي

rs.Open "select * from [stjam] where faah = " & tt![faah] , db, adOpenStatic, adLockPessimistic

سبب التحرير : تدقيق املائي

أخي Tareqvb ربي يوفقك

مرفق مثال لتعديل علية

________.rar

السلام عليكم

الكود كمايلي

Private Sub Command1_Click()
On Error GoTo errdes

If Option1.Value = True Then


Dim SQL As String
SQL = "insert into taSlem (num,no1,faah) select  num,no1,faah from stjam where not faah  in( select faah from taSlem)"
Dim sCount As Long
db.Execute SQL, sCount, adExecuteNoRecords

MsgBox ("Finish" & vbCrLf & "Record Count : " & sCount)

Exit Sub

errdes:

MsgBox Err.Description
End If
End Sub

وكمان الكود الخاص بك

If tt.State = adStateOpen Then tt.Close
tt.Open "select * from  [stjam]", db, adOpenStatic, adLockPessimistic
Do
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from  taslem  where faah = " & tt![faah], db, adOpenStatic, adLockPessimistic
If rs.EOF Then
With rs
.AddNew
![num] = tt![num]
![no1] = tt![no1]
![faah] = tt![faah]
.Update
End With
End If
tt.MoveNext
Loop Until tt.EOF

أخي Tareqvb جزاك الله خير

ورزقك الله من واسع فضله وبارك الله فيك وفي علمك وفي ذريتك .

مشكور على المعلومات التي تعلمتها منك جعلها الله في ميزان حسناتك .

:D :D :D :D :D