LOL, Thanx John, I needed that...I really did :)
This project started as a simple database for a Physical Therapy Clinic. Th=
e databse grew because they found out I could build, score, and Store the d=
ata from an assortment of tests they do. The assortment of test is insane, =
Things like, SF36, Postural Sway, Fear and beleifs Scale, Latex screening, =
Timed up and Go, 6 meter walk test, On and On.
The forms have minimal calculation in them, simply gave them the oportunity=
to Click Mousey, instead of keeping paper sheets. Additionally this is a L=
arge Reasearch Project, so they keep HUGE amounts of clinacal data for anal=
ytics.
I build each form as a popup, each popup was bound to its own table, and ea=
ch table is tied via ID to it's Patients/Visit record.
We are now about 40 tables with about 400 potential fields/elements being s=
tored per visit. Although the norm is about half that for a typical visit.
AND YES , I am scared about the size of this...
In your aponion John , am I taxing MS Access tooooo Much with this applciat=
ion and should perhaps talk to the customer about scaling back ?
We have yet to populate this thing and give it a work out.
I am worried about access speed, Space , we got plenty.
What the therapist actually are doing is using WIFI Tablets connected to th=
e PC, so they can move around, assist the patients, and take measurements a=
s they go.
Your thoughts are always welcome, harsh as they may be at time :)
Yours
terence
Majority of the field are either Number (Integer) or yes/no, scattered text and attachments.
--- 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