[5分]超级难题，求大哥级解答

主窗体代码：
Private Sub Command39_Click()
Me.Text32.Value = Me.Text1.Form.照片编号
Form_Current
End Sub

Private Sub Form_Current()
If Dir(CurrentProject.Path & "\photo\" & Me.Text32 & ".jpg") = "" Then
Image12.Picture = CurrentProject.Path & "\" & "err.jpg"
Else
Image12.Picture = CurrentProject.Path & "\photo\" & Me.Text32 & ".jpg"
End If
End Sub

只有按command39,照片才能显示，我想点击子窗体的记录，直接就能显示照片，请问代码怎么加呀

子窗体代码：
Private Sub 照片编号_Click()
Me.Parent.Text32 = Me.照片编号
End Sub