VBA - Access module - Article 12998 - go-pugleaf | RockSolid RetroBBS NetNews Server

Article View: be.comp.programming

Article #12998

Back to be.comp.programming Previous Next

VBA - Access module

#12998

From: Tom Ripley
Date: Mon, 10 Sep 2001 22:12

33 lines
1795 bytes

Ik heb volgende situatie
Tabel = Test
VeldId (autonumber)
Veld1 (txt)

Nu zou ik graag in <test> 100 keer een variabele steken, bijvoorbeeld var1,
var2, var3, var4 enz..
Maar ik krijg steeds volgende foutmelding bij het uitvoeren van de procedure
in module.
<Een door de gebruiker gedefineerd gegevenstype is niet gedefinieerd>
En hij verwijst naar volgende lijn: Dim db As Database
Iemand een idee hoe dit komt?
Alvast bedankt

----
Public Sub AddNewX()
    Dim db As Database
    Dim Rs As Recordset
    Dim I As Integer

    Set db = OpenDatabase("db1.mdb")
    Set Rs = db.OpenRecordset("Test", dbOpenDynaset)

    For I = 1 To 100
    With Rs
        .AddNew
        !Veld1 = "var" & I
        .Update
    End With
    Next
    Rs.Close
    db.Close
End Sub

Technical Details

Message-ID: <uVan7.48588$6x5.10207334@afrodite.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!news.tele.dk!small.news.tele.dk!195.238.2.15!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,f03d9a6ad0d41828,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2001-09-10 15:12:49 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!news.tele.dk!small.news.tele.dk!195.238.2.15!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
From: "Tom Ripley" <tomripley@europe.com>
Newsgroups: be.comp.programming
Subject: VBA - Access module
Lines: 36
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Message-ID: <uVan7.48588$6x5.10207334@afrodite.telenet-ops.be>
Date: Mon, 10 Sep 2001 22:12:42 GMT
NNTP-Posting-Host: 213.224.108.122
X-Complaints-To: abuse@pandora.be
X-Trace: afrodite.telenet-ops.be 1000159962 213.224.108.122 (Tue, 11 Sep 2001 00:12:42 MET DST)
NNTP-Posting-Date: Tue, 11 Sep 2001 00:12:42 MET DST
Organization: Telenet Internet