John,
I just tried the code as follows, as you sent
Private Sub Command1_Click()
Dim db As Database
Dim strResult As String, rst As DAO.Recordset, intI As Integer
strtbl = "INFO"
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
End Sub
I get a error 91 Object variable or with block variable not set
I dont see the prob ?
Terence
--- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@...> wrote:
>
> 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