🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #13740

Re: Visual basic & access

#13740
From: Goofy
Date: Mon, 04 Jun 2001 18:10
43 lines
2317 bytes
"Ronnie" <wuyts.steven@pandora.be> schreef in bericht
news:XxOS6.3001$mR5.270305@afrodite.telenet-ops.be...
> Hello,
>
> een visual basic (& access) vraagje:
>
> Ik heb een accessbestand waarin een aantal rapporten staan, en deze wens
ik
> aan te roepen via een visual basic programmaatje (dus ook beperkende
> criteria)... iemand nog een idee hoe het weer ging (ik heb het ooit nog
eens
> gedaan, dus dat moet geen probleem zijn, 't is alleen te lang geleden)
>
> thx & grz,
>
> Ronnie
>
Hiervoor moet je enkele stappen ondernemen.

Stap 1 - maak een link naar het object van Access via Project -> References

Stap 2 - definieer een object variabele voor access

Stap 3
    kopieer deze code op de gewenste plaats

    Dim accObj as Access.Application
    Set accObj = Access.Application
    accObj.OpenCurrentDatabase App.Path & "\databasenaam.mdb"

    accObj.DoCmd.OpenReport RAPPORTNAAM,  acViewPreview


Ben mommenteel bezig met dit volledig uit te schrijven, om zowel de
rapporten als de forms van access te kunnen gebruiken.
Maar dit ligt nu wat stil moet VB eindwerken verbeteren en examen opstellen
;-(

Heb je nog problemen laat mij maar iets horen.
Groetjes

Goofy from the Gooftroop
Technical Details
Message-ID: <laQS6.3621$mR5.318143@afrodite.telenet-ops.be>
Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!isdnet!wanadoo.fr!opentransit.net!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail
References: <XxOS6.3001$mR5.270305@afrodite.telenet-ops.be>

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,237be13d8039cc0a
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2001-06-04 11:10:26 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!isdnet!wanadoo.fr!opentransit.net!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail
Reply-To: "Goofy" <goofy-EetMyOp-@gooftroop.be>
From: "Goofy" <goofy-EetMyOp-@gooftroop.be>
Newsgroups: be.comp.programming
References: <XxOS6.3001$mR5.270305@afrodite.telenet-ops.be>
Subject: Re: Visual basic & access
Lines: 46
Organization: Gooftroop
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Message-ID: <laQS6.3621$mR5.318143@afrodite.telenet-ops.be>
Date: Mon, 04 Jun 2001 18:10:25 GMT
NNTP-Posting-Host: 213.224.12.127
X-Complaints-To: abuse@pandora.be
X-Trace: afrodite.telenet-ops.be 991678225 213.224.12.127 (Mon, 04 Jun 2001 20:10:25 MET DST)
NNTP-Posting-Date: Mon, 04 Jun 2001 20:10:25 MET DST