Option Compare Database



Private Sub Komut0_Click()

Dim Sql As String

Dim rs, rt As DAO.Recordset

Set DB = CurrentDb()



SQL = "SELECT * FROM Tablo1"

Set rs = DB.OpenRecordset(SQL)

SQL = "SELECT * FROM YENITABLO"

Set rt = DB.OpenRecordset(SQL)



rs.MoveFirst

Do Until rs.EOF

   ARA = rs!kisiler

   

10:

   A1 = InStr(ARA, "----------------")

                    

   If A1 > 0 Then

      YENIISIM = Trim(Left(ARA, A1 - 1))

      A2 = InStr(YENIISIM, ")")

      YENIISIM = Trim(Mid(YENIISIM, A2 + 1))

      ARA = Trim(Mid(ARA, A1 + 16))

      rt.AddNew

      rt!sınıf = rs!sınıf

      rt!kisiler = YENIISIM

      rt![sınıf durumu] = rs![sınıf durumu]

      rt.Update

      GoTo 10

   End If

   

rs.MoveNext

Loop



MsgBox "Tablo dolduruldu..."

End Sub

Kodu aşağıdaki ile değiştirin.