Using command button to carry data into a form

[cardgage]

I currently have an Access database with two tables, one with a list of patients and another with a list of admissions for each patient. Basically what I'm trying to do is select a patient from my current list and add information for a new admission for that patient. I was able to do this using a subform within my main form pretty easily, but the size of the form has become cumbersome.



What I'm trying to accomplish is to select a patient from a combo box, and then open a "New Admission" form using a command button, which will carry forward the Patient ID from the combo box and allow me to enter data for a new admission. Right now, the command button works to bring up the form with the existing admissions for that patient, but when I try to add a new record the Patient ID is lost within the form and it won't let me add any new records.

I'm obviously missing something, but I can't figure out what it is. If anyone is willing to help me out, I'd greatly appreciate it.

[RuralGuy]

Use the OpenArgs argument of the OpenForm command: http://www.baldyweb.com/OpenArgs.htm

[cardgage]

Thanks for the help! However, I'm not familiar with adding Visual Basic code to an Access database (I do understand the code itself). Can I enter the OpenString code somewhere into the Event Procedure, or do I have to somehow using the Visual Basic editor?

[RuralGuy]

What do you have behind the current button used to open the next form?

[cardgage]

All I have right now is what the wizard creates to open a new form and select certain data. Here's the Event Procedure:

OpenForm

Form Name: frmAdmission

View: Form

Where Condition: ="[PatientID]=" & [cmbPatientSelect]

[RuralGuy]

Start by converting that Macro to code: http://www.btabdevelopment.com/ts/de...aspx?PageId=91

[cardgage]

That doesn't do anything...when I open Visual Basic I now have the ACWZTOOL project listed under the project window, but I can't expand my database (there's no forms to select).

[RuralGuy]

Hmm...can you zip up your db and post it?

[cardgage]

Unfortunately, no because it contains protected patient data, and I'd lose about 20 hours of work by deleting the tables with the patient info.

Is there a way in the Visual Basic editor to add forms to the project? It seems very, very constrained if you can't...

[cardgage]

Nevermind, answered my own question...I'm going to try just adding the code into the VB editor, my only question will be how to add code that would simulate the code built by clicking on the command button.

[RuralGuy]

Import your db into a new db but on the table tab select advanced and *only* import the structure and not the data. http://www.btabdevelopment.com/ts/impnew
zip up what you have and post it. Taa...Daa!

[cardgage]

Hah, don't know why I didn't think of just saving the db under a different name and deleting the data.

Thanks for the help! frmMain contains the command button "New Admission", frmAdmission is the form I'd like to have open with PatientID being passed to allow adding a new record for the patient tied to that ID.

[RuralGuy]

The frmMain has no RecordSource so from where do you expect the get the PatientID?

[cardgage]

I was trying to make it so the patient is selected using the combo box on frmMain, then carry the selected PatientID into frmAdmission. I wanted to keep frmMain unbound because eventually I'll need to add more functionality to it once my clinic opens up.

Of course, if there's a better/easier way I'd be happy to hear any suggestions.

[RuralGuy]

D'oh...of course you were. I'm working too many things at the same time right now, sorry. You cound set it up so that you only use the ComboBox. A new name would Open frmPatientInfo first and then frmAdmission otherwise just go directly to frmAdmission. I'll impliment the Admission button first and let you look at it.