[alsihran]

السلام عليكم ورحمة الله وبركاتة
كنت اعمل على قاعدة بيانات Access
تكبير قاعدة البيانات وتحويلها الى   SQL SERVER مع الاستمراربالعمل على من واجهة Access
فتم التحويل بنجاح
لكن واجهتني بعض المشاكل
فمثلا لدي هذا ا الكود ومهمته عمل حلقات تكرارية
لاضافة عدة سجلات لجدول اخر غير الجدول الموجود بالنموج
يعمل عند الارتباط بقاعدة بيانات الاكسس بشكل سليم وومتاز ولكن عند الارتباط بقاعدة بيانات السكيول سيرفر
تظهر اخطاء ولا يتم تنفيذ الكود
امل المساعدة في في معرفة الخطأ بالكود
صور الخطأ

كود :

Option Compare Database

Private Sub cmd_Do_Records_Click()
    On Error GoTo err_cmd_Do_Records_Click
   Dim rst As DAO.Recordset
   Dim rstSUB As DAO.Recordset
    Dim mysql As String
   'نقرأ بيانات النموذج الفرعي
   'Set rstSUB = Me.Forme_Sub_Hotel.Form.RecordsetClone
     Set rstSUB = Me.Form.RecordsetClone
 
   rstSUB.MoveLast: rstSUB.MoveFirst
   RCsub = rstSUB.RecordCount
   
   'نقرأ كل سجل من سجلات النموذج الفرعي
   For j = 1 To RCsub
             
       'اذا يوجد علامة صح في حقل "اعمل التغييرات" فقم بحذف السجلات السابقة لهذا الخط ، واعمله من جديد
       If rstSUB!Do_Changes = -1 Then
       
   
           'نجهز الجدول لإدخال/حذف بيانات م
           mysql = "SELECT Auto_id AS Auto, Tabl_Rooms.*"
           mysql = mysql & " FROM Tabl_Rooms"
           mysql = mysql & " WHERE Id_Hotel=" & rstSUB!Auto_id
           mysql = mysql & " AND Num_hotel=" & rstSUB!Num_hotel
           mysql = mysql & " AND Numrihla=" & rstSUB!Numrihla
          mysql = mysql & " ORDER by Auto_id DESC"
          ' Debug.Print mySQL
                         'Set rs = CurrentDb.OpenRecordset(mysql, dbOpenDynaset, dbSeeChanges)

           Set rst = CurrentDb.OpenRecordset(mysql)
           rst.MoveLast: rst.MoveFirst
           RC = rst.RecordCount
   
           If RC > rstSUB!Count_Rooms Then
                       
               
               'نحذف سجلات رقم  من الجدول
               For i = rstSUB!Count_Rooms + 1 To RC
                   rst.Delete
                   rst.MoveNext
               Next i
           
          Else
           
                           rst!Id_Hotel = rstSUB!Auto_id
                     rst!Numrihla = rstSUB!Numrihla
                   rst!Num_city = rstSUB!Num_city
                   rst!Num_hotel = rstSUB!Num_hotel
                   rst!Inserted_By = MyUser.username
                   rst!Insert_date = Now()

               
               
               'نضيف سجلات رقم  في الجدول
               For i = RC + 1 To rstSUB!Count_Rooms
                   rst.addnew
                           rst!Id_Hotel = rstSUB!Auto_id
                     rst!Numrihla = rstSUB!Numrihla
                   rst!Num_city = rstSUB!Num_city
                   rst!Num_hotel = rstSUB!Num_hotel
                       rst!Inserted_By = MyUser.username
                   rst!Insert_date = Now()
                       rst![Num_Room] = i
                   rst.Update
               Next i
           
           End If
           
           'نقوم بتغيير حقل "اعمل التغييرات" ونزيل الصح منها
           rstSUB.Edit
               rstSUB!Do_Changes = 0
           rstSUB.Update
           
           GoTo Exit_cmd_Do_Records_Click
           
       End If 'rstSUB
       rstSUB.MoveNext
   Next j
   
Exit_cmd_Do_Records_Click:

   'احذف البيانات من ذاكرة الكمبيوتر
   rst.Close: Set rst = Nothing
   rstSUB.Close: Set rstSUB = Nothing

Exit Sub
err_cmd_Do_Records_Click:

  ' If Err.Number = 3021 Then
       Resume Next
  ' Else
       MsgBox Err.Number & vbCrLf & Err.Description
  ' End If

'========================================================================
  DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Tabl_Rooms INNER JOIN Tabl_RoomsTemp ON (Tabl_Rooms.Num_Room = Tabl_RoomsTemp.Num_Room) AND (Tabl_Rooms.Numrihla = Tabl_RoomsTemp.Numrihla) AND (Tabl_Rooms.Id_Hotel = Tabl_RoomsTemp.Id_Hotel) SET Tabl_Rooms.Num_Room_Hotel = [Tabl_RoomsTemp]![Num_Room_Hotel], Tabl_Rooms.Number_beds = [Tabl_RoomsTemp]![Number_beds], Tabl_Rooms.Molahzat = [Tabl_RoomsTemp]![Molahzat];"
'MsgBox "ok"


End Sub