Option Compare Database
Option Explicit

Private Sub txtReadValue_Click()

  Dim SubForm As Access.Form
  
  Set SubForm = Me!sfmSubForm.Form
  Me.Caption = SubForm.txtValue.Value
  Set SubForm = Nothing

End Sub

Select all