Przeniesienie rekordow z kwerendy do tabeli

Article View: pl.comp.bazy-danych.msaccess

Article #125014

Back to pl.comp.bazy-danych.msaccess Previous Next

#125014

From: Piotrek N
Date: Thu, 14 Aug 2008 07:59

24 lines
1577 bytes

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

pozdrawiam
Piotrek

Technical Details

Message-ID: <g80or9$uac$1@news.onet.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!not-for-mail
From: "Piotrek N" <pniewinski@czat.onet.pl>
Newsgroups: pl.comp.bazy-danych.msaccess
Subject: Przeniesienie rekordow z kwerendy do tabeli
Date: Thu, 14 Aug 2008 09:59:46 +0200
Organization: Onet.pl
Lines: 26
Message-ID: <g80or9$uac$1@news.onet.pl>
Reply-To: "Piotrek N" <pniewinski@czat.onet.pl>
NNTP-Posting-Host: t1d-65.koba.pl
X-Trace: news.onet.pl 1218700969 31052 83.175.152.65 (14 Aug 2008 08:02:49 GMT)
X-Complaints-To: usenet@news.onet.pl
NNTP-Posting-Date: Thu, 14 Aug 2008 08:02:49 +0000 (UTC)
X-Sender: 72pz6+k2vS1bK2yKvJK/o1RsI83XeAgZ
X-RFC2646: Format=Flowed; Original
X-Antivirus-Status: Clean
X-Newsreader: Microsoft Outlook Express 6.00.2900.3138
X-Antivirus: avast! (VPS 080813-0, 2008-08-13), Outbound message
X-Priority: 3
X-MSMail-Priority: Normal
X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2900.3198
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit