Option to specify an item that is not listed

[Will04]

Hi everyone,

I'm building a database that will allow me to enter medical information about patients. On the present form (paper) one of the question asks about the medical history of the patient with 7 available options( Diabetes, Cardiac, HIV etc). The 7th option is 'OTHER' and the patient is supposed to specify what Other refers to.

How can I translate this to an Access form?

I am thinking of a list of the 7 options, but when option 7 is selected; the user should be prompted to enter a specific disease.

QUESTION?
How can this be achieved, and how should the table be designed to accept this entry?


All help appreciated

Thanks

Will

 

[lisarmj]

Option to specity an item that is not listed

I am designing a database right now as well that has this issue - on every form there is an option for OTHER...all choices on the form are checkboxes.

My solution was to create a table "tblNotes" were Other would be explained.
The tables contains only 3 fields: a unique ID to link it to the originating record (in this case fldJobID), fldType which will let me know from which form the user arrived from (in this case the note pertains to WATER: Buildings) and a MEMO field for the users comments.

The Notes form is a simple continuous form or datasheet which will compile all explanations for Other.

If the user checks OTHER the following code will run:

Private Sub chkOther_Click()
On Error GoTo Err_Click

Dim strForm As String
Dim strType As String

strForm = "frmNotes"
strType = "WATER: BUILDINGS"

If Me.chkOther.Value = -1 Then '0=no, -1 = yes
If IsLoaded(strForm) Then CHECKS IF THE NOTES FORM IS ALREADY OPEN Forms(strForm).Visible = True
Forms(strForm).fldType.Value = strType fills in the Note Type into the Note form Else
DoCmd.OpenForm strForm, acNormal, , , acFormAdd

End If
End If

Exit_Click:
Exit Sub

Err_Click:
MsgBox Err.Description
End Sub


Hope this helps.
Lisa

 

[Will04]

Thanks Lisa, I'll try it and see how it works


Appreciated,

Will.