主窗体代码:
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
Private Sub 照片编号_Click()
dim Frm as form
dim StrPIC as string
set frm=Me.Parent
strpic =nz( Me.照片编号,"")
frm.Text32 = strpic
If Dir(CurrentProject.Path & "\photo\" & strpic & ".jpg") = "" Then
frm.Image12.Picture = CurrentProject.Path & "\" & "err.jpg"
Else
frm.Image12.Picture = CurrentProject.Path & "\photo\" & strpic & ".jpg"
End If
End Sub