Re: Access automation

Tech-Archive recommends: Speed Up your PC by fixing your registry

From: Jan Kronsell (kronsell(removebeforesend)_at_adslhome.dk)
Date: 05/27/04 

Date: Thu, 27 May 2004 23:17:52 +0200

I figured something out myself, inspired by your code. Not elegant but
working :-)

Jan

"Jan Kronsell" <kronsell(removebeforesend)@adslhome.dk> skrev i en
meddelelse news:uQv9dVAREHA.2704@TK2MSFTNGP10.phx.gbl...
> Thanks, that did the trick. But of course I have an additional question
:-)
>
> Can I put all fields of a record into each own table cell, så that the
first
> 5 fields of each record are placed in the table (one record pr row) and
> Fild6 of record n, is places below the table.
>
> Jan
> "Doug Robbins - Word MVP" <dkr@NOmvpsSPAM.org> skrev i en meddelelse
> news:OOP1gk3QEHA.1396@TK2MSFTNGP12.phx.gbl...
> > Hi Jan,
> >
> > Use the following method:
> >
> > Dim myDataBase As Database
> > Dim myActiveRecord As Recordset
> > Dim i As Long
> > 'Open a database
> > Set myDataBase = OpenDatabase("J:\Drive D40\Access\ResidencesXP.mdb")
> > 'Access the first record from a particular table
> > Set myActiveRecord = myDataBase.OpenRecordset("Owners")
> > 'Loop through all the records in the table until the end-of-file marker
is
> > reached
> > Do While Not myActiveRecord.EOF
> > For i = 0 To 3
> > ActiveDocument.Range.InsertAfter myActiveRecord.Fields(i) &
vbTab
> > Next i
> > ActiveDocument.Range.InsertAfter myActiveRecord.Fields(4) & vbCr
> > 'access the next record
> > myActiveRecord.MoveNext
> > Loop
> > myActiveRecord.MovePrevious
> > ActiveDocument.Range.InsertAfter myActiveRecord.Fields(5) & vbCr
> > 'Then close the database
> > myActiveRecord.Close
> > myDataBase.Close
> >
> >
> > --
> > Please post any further questions or followup to the newsgroups for the
> > benefit of others who may be interested. Unsolicited questions
forwarded
> > directly to me will only be answered on a paid consulting basis.
> >
> > Hope this helps
> > Doug Robbins - Word MVP
> > "Jan Kronsell" <> wrote in message
> > news:eQE8t22QEHA.2716@tk2msftngp13.phx.gbl...
> > > Thanks. I now can get access to Access :-) but now i have run into
> another
> > > problem . I have to loop though the recordset and gather information.
> > > In all of my records I have 6 fields, and I want information from the
> > first
> > > five, but for the last record in the recordset, I need the information
> > from
> > > the sixth field too.
> > >
> > > I Word I need the information placed like this
> > >
> > > R1F1 R1F2 R1F3 R1F4 R1F5
> > > R2F1 R2F2 R2F3 R2F4 R2F5
> > > ...
> > > RnF1 RnF2 RnF3 RnF4 RnF5
> > >
> > >
> > > RnF6
> > >
> > > I am not quite sure how to achieve this.
> > >
> > > Jan
> > >
> > >
> > > "Jezebel" <dwarves@heaven.com.kr> skrev i en meddelelse
> > > news:#ORBhr2QEHA.396@TK2MSFTNGP12.phx.gbl...
> > > > Also easy to do, and using more or less the same code. You'll need
to
> > add
> > > > one of the data access libraries to your project (DAO or ADO), and
go
> > from
> > > > there.
> > > >
> > > >
> > > >
> > > > "Jan Kronsell" <kronsell(removebeforesend)@adslhome.dk> wrote in
> message
> > > > news:OkUAoJ2QEHA.628@TK2MSFTNGP11.phx.gbl...
> > > > > Starting in Access I can rather easy create VBA code that opens a
> Word
> > > > > document and insert data from a form into bookmarks in word, but
is
> > > there
> > > > > any way I can go the other way around, that is, having the code in
> > Word,
> > > > to
> > > > > open an Access database, get information from a table or maybe
> query,
> > > > > without using mailmerge.
> > > > >
> > > > > Jan
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
>
>

Relevant Pages

  • Re: Removing tray icon after having killed its process
    ... probably has the most elegant solution but I don't have enough capabilities ... >> window of the process to appear. ... > Private Type OSVERSIONINFO ... > Dim osv As OSVERSIONINFO ...
    (microsoft.public.vb.winapi)
  • Re: How to get object descriptions through VBA code
    ... Dim prpCurr As DAO.Property ... Dim tblCurr As DAO.TableDef ... For example, I want to be able to access and> manipulate the descriptions that appear for fields in tables, and for> queries, tables, forms and reports in the main database window. ... Is there some> other trick I could use to make better use of these descriptions? ...
    (microsoft.public.access.modulesdaovba)
  • Re: Corelli Diminuendo in Studio Aida
    ... second complete studio reocrding he did was real or achieved by the ... with the dim and so sang it forte and had it faded out. ... I have found that I can do a dim on that same high B flat by keeping ... Another trick is to smile a bit while reducing volume. ...
    (rec.music.opera)
  • Re: Corelli Diminuendo in Studio Aida
    ... second complete studio reocrding he did was real or achieved by the ... with the dim and so sang it forte and had it faded out. ... I have found that I can do a dim on that same high B flat by keeping ... Another trick is to smile a bit while reducing volume. ...
    (rec.music.opera)
  • Re: Corelli Diminuendo in Studio Aida
    ... second complete studio reocrding he did was real or achieved by the ... with the dim and so sang it forte and had it faded out. ... I have found that I can do a dim on that same high B flat by keeping ... Another trick is to smile a bit while reducing volume. ...
    (rec.music.opera)