Article View: be.comp.programming
Article #16715Re: VBA in ms Access
From: Rudi Breedenraedt
Date: Mon, 17 Apr 2000 00:00
Date: Mon, 17 Apr 2000 00:00
46 lines
2224 bytes
2224 bytes
>Wat ik wil doen: een query draaien op enkele tabellen, en het resultaat
>ervan (1 veld) op een form uitbeelden en/of er berekeningen mee doen.
Sorry, het is me niet echt duidelijk. Als je maar 1 veld wil tonen, vanwaar
dan '*enkele* tabellen' ?
Heb je echt wel VBA nodig ? MSAccess biedt je de mogelijkheid queries te
definieren en daarop formulieren te zetten. Eenvoudiger kan niet.
Maar als je 't toch met VBA wil doen, dan is er toch niks simpelers dan ADO
! Hier een voorbeeldje:
Dim conn as Object, rs as Object
set conn = CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")
conn.Open connectstr
rs.Open "SELECT * FROM MyTable", conn, adOpenDynamic
While not rs.EOF
Debug.print rs(1)
Wend
rs.Close
conn.Close
Success !
Rudi Breedenraedt
===============================================
United Programmers Club VZW
http://upc.webhostme.com/
http://www.upc.be/
upc@POBoxes.com
===============================================
Serge van Ginderachter heeft geschreven in bericht
<8d19mj$e1l$1@newnews1.news.nl.uu.net>...
>Wie kan me vertellen hoe ik eenvoudig met vba code gegevens uit mijn access
>tabellen en/of queries kan bereiken?
>De methodes beschreven op msdn lijken mij zo ingewikkeld en ik sla ADO &
DAO
>nog al eens door elkaar. Bestaat er geen eenvoudiger methode om de gegevens
>in de eigen mdb file te bereiken?
>
>Wat ik wil doen: een query draaien op enkele tabellen, en het resultaat
>ervan (1 veld) op een form uitbeelden en/of er berekeningen mee doen.
>
>
Technical Details
Message-ID:
<8ddmis$3ep$1@rivage.news.be.easynet.net>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<8d19mj$e1l$1@newnews1.news.nl.uu.net>Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit X-Google-Thread: fcea4,4b989115e3e8d544 X-Google-Attributes: gidfcea4,public From: "Rudi Breedenraedt" <r.b@POBoxes.com> Subject: Re: VBA in ms Access Date: 2000/04/17 Message-ID: <8ddmis$3ep$1@rivage.news.be.easynet.net> X-Deja-AN: 612019720 References: <8d19mj$e1l$1@newnews1.news.nl.uu.net> X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4 X-Complaints-To: abuse@easynet.be X-Trace: rivage.news.be.easynet.net 955932060 3545 212.100.172.105 (17 Apr 2000 00:41:00 GMT) Organization: [ posted via Easynet Belgium ] NNTP-Posting-Date: 17 Apr 2000 00:41:00 GMT Newsgroups: be.comp.programming