John, ty for the set db to current, it's late :)
Code works, with the exception that it failed when it found an attachment field.
I will move it to the end of the table, and cut short the iterations by 1.
terence
--- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@...> wrote:
>
> Terence-
>
> You forgot to Set db = CurrentDb.
>
> 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 8:31 AM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: [MS_AccessPros] Re: Suggestion/Ideas plz, Customer wants a text box
> created with ALL changes
>
> 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
> >
>
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
Tidak ada komentar:
Posting Komentar