Sub CreateCode()
   Dim Kayit As New ADODB.Recordset
   Dim TabloAdi, DosyaAdi As String
   Kayit.Open "SELECT TAGNAME, RUNNINGHOURS FROM T_TAGNAME ORDER BY TAGNAME", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
   Kayit.MoveFirst
   Do Until Kayit.EOF
   TabloAdi = Kayit!TAGNAME
   DosyaAdi = Kayit!TAGNAME & "H.xlsx"
   If Len(Dir(CurrentProject.Path & "\" & DosyaAdi, vbNormal)) > 0 Then
        DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12, TabloAdi, CurrentProject.Path & "\" & DosyaAdi, True
        Kayit!RUNNINGHOURS = DMax("Hours", TabloAdi, "TimeDate='" & DMax("TimeDate", TabloAdi) & "'")
        DoCmd.DeleteObject acTable, TabloAdi
    Else
        Kayit!RUNNINGHOURS = "___"
   End If
   Kayit.Update
   Kayit.MoveNext
   Loop
   Kayit.Close: Set Kayit = Nothing
End Sub