超级难题，求大哥级解答

mmteaa

主窗体代码：
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

13601812106_01

Private Sub 代码_DblClick(Cancel As Integer)
Shell "rundll32.exe shimgvw.dll,imageview_fullscreen " & Me.照片图像.Picture   ' 调用 windows 图片和传真查看器打开图片
   
End Sub
Private Sub Form_Current()                                      '切换记录时会触发成为当前事件
    Dim 路径名 As String
    Dim Y As String
   
   
    Me!照片图像.Picture = ""                                    '先清除图像
   
        Y = "\\192.168.1.254\技术课\技术图纸\"
   
        路径名 = Y & Me!客户 & "\" & Me!代码 & ".jpg"       '生成照片路径名
        Me!照片图像.Picture = ""                                '清除图像
        
           If Dir(路径名) <> "" Then                               '判断照片是否存在，如果照片存在
            Me!照片图像.Picture = 路径名                        '将图片加载到图像控件
               
        End If
      
End Sub

13601812106_01

参考我的吧，本来也不难的

mmteaa

多谢，回来试

layaman_999

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

mmteaa

多谢楼上二位，搞定了，下面是浪淘沙给的代码：
把主子窗体代码都删除，子窗体加如下代码

Private Sub Form_Current()

If Dir(CurrentProject.Path & "\photo\" & Me.照片编号 & ".jpg") = "" Then
   me.parent.form.Image12.Picture = CurrentProject.Path & "\" & "err.jpg"
Else

  me.parent.form.Image12.Picture = CurrentProject.Path & "\photo\" & Me.照片编号 & ".jpg"
End If
End Sub

老虎是我的

神马 看不懂啊 哎