|
Question : Refresh subform on different tab control
|
|
Greetings, Experts...can somebody please help me resolve this? I have a form with 23 tabs, each with a subform linked to its own SQL table. Let's just deal with two for now (subfrm_00_MAIN and subfrm_01_TopDogHouse). Using the following code, I'm trying to refresh the Record_Number of the subform on the second tab, and see it when I click on that tab. This works great if I close the form and reopen, but I get Run-time error '3021': no current record when clicking the 2nd tab. I've tried for a day to resolve this, but can't seem to dial it in. Here's the code:
Private Sub cmdNew_Click() On Error GoTo Err_cmdNew_Click Dim strSQL As String
DoCmd.GoToRecord , , acNewRec DoCmd.SetWarnings False Me.Record_Number.Value = Format(Now(), "mmddhhnnss") strSQL = "INSERT INTO dbo_T_01TopDogHouse (Record_Number) VALUES ('" & Me.Record_Number.Value & "');" DoCmd.RunSQL strSQL DoCmd.SetWarnings True Me.Record_Date.SetFocus
Exit_cmdNew_Click: Exit Sub
Err_cmdNew_Click: MsgBox Err.Description Resume Exit_cmdNew_Click End Sub ---------------------------------------------- Private Sub TabCtl0_Change() Select Case Me.TabCtl0.Value Case 0 Me.subfrm_00_MAIN.Form.RecordsetClone.FindFirst "Record_Number =" & Me.Record_Number Me.subfrm_00_MAIN.Form.Recordset.Bookmark = Me.subfrm_00_MAIN.Form.RecordsetClone.Bookmark Case 1 Me.subfrm_01_TopDogHouse.Form.RecordsetClone.FindFirst "Record_Number =" & Me.Record_Number Me.subfrm_01_TopDogHouse.Form.RecordsetClone.Bookmark = Me.subfrm_01_TopDogHouse.Form.RecordsetClone.Bookmark End Select End Sub
|
|
Answer : Refresh subform on different tab control
|
|
one way around this without any code is to put a hidden textbox on your main form that holds the current record_number and then use the control as the Master Linking field for all of your subforms, assuming they are all related to the same key. If you have many relationships then you could use m,ultiple hidden textboxes to let Access take care of sync'ng for you.
Steve
|
|
|
|