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
Random Solutions  
 
programming4us programming4us