If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
|
Thread Tools | Display Modes |
#11
|
|||
|
|||
How to sometimes open form to new record?
OK so add filter to the button for "ALL" such that it really isn't ALL level
2 records, it is just all records that match the PK. This will handle that initial display - the On Current event will keep it in synch for subsequent moves. Private Sub Level2Btn_Click() Dim frmLevel2GoalsHandle As Form If Not CurrentProject.AllForms("frmLevel2Goals").IsLoaded Then DoCmd.OpenForm "frmLevel2Goals", acNormal End If DoEvents Set frmLevel2GoalsHandle = Forms![frmLevel2Goals].Form frmLevel2GoalsHandle.Filter = "( [level2FK] = " & Me.PK & " )" frmLevel2GoalsHandle.FilterOn = TRUE End Sub |
#12
|
|||
|
|||
How to sometimes open form to new record?
On Sep 20, 11:46 am, NKTower
wrote: OK so add filter to the button for "ALL" such that it really isn't ALL level 2 records, it is just all records that match the PK. This will handle that initial display - the On Current event will keep it in synch for subsequent moves. Private Sub Level2Btn_Click() Dim frmLevel2GoalsHandle As Form If Not CurrentProject.AllForms("frmLevel2Goals").IsLoaded Then DoCmd.OpenForm "frmLevel2Goals", acNormal End If DoEvents Set frmLevel2GoalsHandle = Forms![frmLevel2Goals].Form frmLevel2GoalsHandle.Filter = "( [level2FK] = " & Me.PK & " )" frmLevel2GoalsHandle.FilterOn = TRUE End Sub That's great. Thanks so much! |
|
Thread Tools | |
Display Modes | |
|
|