|
|
|||||||||
|
|||||||||
|
|||||||||
| |
|||
| |||||||||
![]() |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Display Modes |
|
#1
|
|||
|
|||
|
ComboBox and Tabbed Panes
Hi all,
I designed a database for work and am now busy implementing it in Access, the only problem being I have no experience whatsoever with VBA. I did see a lot of the possibilities though and managed to figure out how to do the biggest part. I am just stuck with one problem which I hope you can help me with. Let me explain: My database contains a structure similar to this one: [i simplified a lot] [ENROLMENT] id (unique key) patient_id (indexed, no duplicates) name hospital etc [BASELINE] id (unique key) patient_id (indexed, no duplicates) consent_date reg_date birth_date etc [SURGERY] id (unique key) patient_id (indexed, no duplicates) surgery_date type_debulking etc The procedure is as follows: In the beginning a patient is enrolled. Much data is collected in the two years afterwards. This data should be easily visible and editable. Thats why i chose for the following design: In the header of the form a combobox called "SearchEnrolledPatient" which is filled with the different values from - enrolment.patient_id Below that a tabbed panel. The first tab is called Baseline and should show all the baseline values for the selected patient (if that patient has had baseline done and therefore exists in the baseline table). The second tab is called Surgery and when selected should show the pane that has all the values from the surgery table, for the currently selected (already enrolled) patient. i got the combobox filled with the correct values without trouble but i couldn't get the connection with the tabbed panes working. Can anyone explain to me how to do it ? |
|
#2
|
|||
|
|||
|
Quote:
I don't know if this will help ( still some problems) Private Sub combosoort_AfterUpdate() Me!combobedrijf.Requery End Sub Private Sub combobedrijf_AfterUpdate() ' De record zoeken die overeenkomt met het besturingselement Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[AdressenlijstId] = " & Str(Nz(Me![combobedrijf], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub you need this behind the combobox |
![]() |
| Viewing: Dev Articles Community Forums > Databases > Microsoft Access Development > ComboBox and Tabbed Panes |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
|
|