Developers Block - Alcholo Abuse Treatment

[Singlespeed]

I am building a database for 2 Nurses and an Admin Lady to monitor treatment for Alcohol abusers that end up in A&E! It has 4 tables so far

Patients details (PK=HospitalID) - Name/Address/DOB/Gender
Hospital Admissions (PK=EpisodeID) - Date Admitted/who admitted
GP Info (PK=GPID) - Gp Name/Adress/Telephone
Alcohol Nurse Treatment (PK= TreatmentID) - Assessment date/Outcome/Nurse/time spent with patient.

I have already got the pk joins work fine.

I have made a "view" form with 3 subforms that show patients details depending on the patient selected from the HospitalID combo box. this method of patient will suffice for now as they can searh on hospitalID which is always on the referral forms that land in the office!

I now need to build forms to Add/Edit and Delete records from each table ie

1 Add/Edit/Delete Patients and Add thier GPId and Admission record at the same time

2 Add/Edit/Delete GP's - this happens quite frequent for out of town patients. ie the list of GP's that the Nurses can select from.

3 Add/Edit/Delete Hospital Admissions (showing Patient details so they know they are on the right row) ideally as part of task 1 but separatly will do

4 Add/Edit/Delete Alcohol Nurse Activity (again showing the Patients details)

and for ease of use i want to move to the Add/Edit/Delete forms using the selected patient from the main form. (apart from edit GP's)

If I can all this working - I think I'll have a stiff drink!

 

[vbaInet]

Drink Safe!! Oh, sounds interesting

Have a look at this command (check the Access help files for an explanation):

DoCmd.RunCommand acCmdRecordsGoToNew

Within the RunCommand method there are commands that will enable you add records to a form (the current form that has the focus).

 

[Singlespeed]

Thanks, I pasted that into the on open property of the subform but get this error


Microsfot Visual basci

Runtiem error '2046':

The command or action 'RecordsGoToNew' isnt available now.

END DEBUG HELP

is this a code error or a missing library file

 

[vbaInet]

On the Data tab check the Allow Additions and Allow Edits properties. Does the new record button at the bottom of the form (on the navigation bar) work?