🚀 go-pugleaf

Użytkownik "Piotrek N" <pniewinski@czat.onet.pl> napisał w wiadomości 
news:g80or9$uac$1@news.onet.pl...
> Witam i prosze o pomoc
>
> Proboje przeniesc rekordy z kwerendy do tabeli i cos mi nie dziala:
>
> Dim t1 As Recordset
> Dim k1 As QueryDef
> Set db = DBEngine.Workspaces(0).Databases(0)
> Set t1 = db.OpenRecordset("tabela1", dbOpenTable)
> Set k1 = db.OpenQuery("kwerenda1", dbOpenQuery)
>
> Do Until k1.EOF
>                       t1.AddNew
>                       t1("pole1") = k1("dana2")
>                       t1("pole2") = k1("dana2")
>                       t1.Update
>        k1.MoveNext
> Loop
> t1.Close
> k1.Close
>
> gdzie jest blad
>

[...]

Tak na szybko:

Dim t1 As DAO.Recordset
Rem Dim k1 As QueryDef <= ???
Dim k1 As DAO.Recordset
Dim db As DAO.Database
Set db = DBEngine.Workspaces(0).Databases(0)

Set t1 = db.OpenRecordset("tabela1", dbOpenDynaset)
Rem Set k1 = db.OpenQuery("kwerenda1", dbOpenQuery) <= ???
Set k1 = db.OpenRecordset("kwerenda1", dbOpenSnapshot)

    If Not k1.BOF Then
        k1.MoveLast
        k1.MoveFirst
    End If
   ' u mnie prawidłowo zadziałało dopiero po MoveLast i MoveFirst
   ' bez MoveLast dodatkowo na końcu kopiował się ponownie
   ' pierwszy dodany rekord
    Do Until k1.EOF
        t1.AddNew
            t1("pole1") = k1("dana1")
            t1("pole2") = k1("dana2")
        t1.Update
        k1.MoveNext
    Loop

    t1.Close
    k1.Close
Set t1 = Nothing
Set k1 = Nothing
Set db = Nothing

-- 
Pozdrowienia
BraZby