Terence-
Yes, but for how many records? Is there only one record in each of the 40
tables? To get all the fields concatenated from a record into one string, do:
Dim strResult As String, rst As DAO.Recordset, intI as Integer
Set rst = db.OpenRecordset(strTbl, dbOpenDynaset)
If Not rst.EOF Then
For intI = 0 To rst.Fields.Count - 1
strResult = strResult & rst(intI) & ", "
Next intI
End If
John Viescas, author
Microsoft Office Access 2010 Inside Out
Microsoft Office Access 2007 Inside Out
Building Microsoft Access Applications
Microsoft Office Access 2003 Inside Out
SQL Queries for Mere Mortals
http://www.viescas.com/
(Paris, France)
-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Terence
Sent: Friday, August 26, 2011 7:46 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Re: Suggestion/Ideas plz, Customer wants a text box
created with ALL changes
ok, how about this,
I can get the count of how many Fields are in each table as below
Dim db As Database
Dim strtbl As String
strtbl = "INFO"
Set db = CurrentDb
MsgBox db.TableDefs(strtbl).Fields.Count
is there a way I can retrieve the content of each individual field like walking
a subscripted array ?
Terence
--- In MS_Access_Professionals@yahoogroups.com, "Terence" <buffalome90210@...>
wrote:
>
>
>
> I have have about 40 tables in this database, which may or may be created d=
> uring an "Encounter". My customer wants all the data that is added into tho=
> se tables during that "Encounter" dumped into a text box, we are not concer=
> ned with format. We dont even care if there are associated label or just th=
> e data, I just need the stuff shoved in a box.
>
>
> There are aprox 400 individual elements, so I dont want to write code to do=
> them all. Any one have a clever idea?
> terence
>
> I am thinking something with a Star (*)...like a me.dumpbox =3D me.recordse=
> t
>
> or making some sort of a continuos for, or a datasheet, I just dont know ?
>
------------------------------------
Yahoo! Groups Links
Tidak ada komentar:
Posting Komentar