Access not passing data when opening form

[cardgage]

Good evening all,

I am having issues passing data from one form to another using VB code. Specifically, for this database, I am trying to pass PatientID from frmInclusionExclusion to frmPatientData, but for some reason PatientID ends up Null once frmPatientData opens.



Any help with this would be much appreciated...I have attached the database below. Thanks!

DbHelp.zip

[June7]

Why doesn't frmInclusionExclusion show the patient number when it first opens from frmOpening?

I tested the Next button code and the PatientID is passing but not opening frmPatientData, keeps executing the Else. What patient choice will execute the OpenForm code?

Why are you mixing embedded macros and VBA code? I use only VBA. Refer to link at bottom of my post for guidelines on VBA debugging.

[cardgage]

Why doesn't frmInclusionExclusion show the patient number when it first opens from frmOpening?

I tested the Next button code and the PatientID is passing but not opening frmPatientData, keeps executing the Else. What patient choice will execute the OpenForm code?

Why are you mixing embedded macros and VBA code? I use only VBA. Refer to link at bottom of my post for guidelines on VBA debugging.

Thanks for the response. To answer your question, when frmInclusionExclusion opens, a patient hasn't been selected yet; that form is intended to start the data entry for a new patient. However, I don't want to include any additional data (i.e., waste time looking through records) until I know whether that patient will be included/excluded. FYI - the data already in the tables is dummy information that I entered while testing the database...not to scare anyone!

When the Next button is clicked on frmInclusionExclusion, it should pass the PatientID that was created after data entry started on frmInclusionExclusion to frmPatientData.

I mix embedded macros and VBA code because I'm not too comfortable coding in Access. I let Access code what it's capable of, and add whatever I can to add functionality from things that I've picked up...probably bad habit.

Thanks again for the response.

[cardgage]

Sorry for the double-post...

I seem to have figured out how to get PatientID to pass to frmPatientData by using the combo box on frmOpening to select the included patient (cmbPatientSelect will only display included patients) and clicking the Enter Data button. However, once frmPatientData opens with PatientID successfully passed, I cannot edit any of the fields. Anyone able to help?

I have attached an updated version of the database with my fix.

[June7]

I had assumed that selecting patient on frmOpening was necessary but that should not have direct bearing on the PatientID passed by frmInclusionExclusion to frmPatientData other than it limits frmInclusionExclusion recordset to the one PatientID.

I still don't fully understand the behavior of these forms - how they should interact with each other.

Problem with frmPatientData is the RecordSource is not an updatable query. Why have tblPatientInfo join to qryIncludedPatients which is just a query of tblPatientInfo? Remove the query from the RecordSource and pull birthdate from the table and fix the DOB textbox ControlSource.
RecordSource can be simply: tblPatientInfo

Why the message box before form opens?

Why is DOB textbox formatted for Yes/No?

[cardgage]

Thanks June7, removing the query from the RecordSource for frmPatientData worked like a charm. That message box was part of my (primitive) debugging to see when PatientID was lost when I was having issues.

Thanks again for your help...much appreciated!