Terence-
Is there any possibility to put all this data in one table? The layout would
look like:
PatientID
TestID
TestDate
TestData1
TestData2 ...
You could have a table to list all the test types, and that table could indicate
how many of what type of field is needed to record the test data. Maybe you can
do it all in 2 or 3 text fields. Just trying to throw out some ideas to make
this more manageable. Forty tables is bizarre. To add a new test right now,
you must design a new table and companion data entry form. If you could
redesign it as I have suggested, adding a new test would simply involve adding a
row to the test types table.
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:14 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Re: Suggestion/Ideas plz, Customer wants a text box
created with ALL changes
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
>
------------------------------------
Yahoo! Groups Links
Tidak ada komentar:
Posting Komentar