Private Sub vIEwData()
'用只讀方式打開frmbxmx_child_Edit窗體
DoCmd.OpenForm "frmBxmx_child_Edit", acNormal, , , acFormReadOnly
Forms!frmBxmx_child_Edit.Caption = "查看報銷明細內容"
End Sub
Private Sub 報銷編號_DblClick(cancel As Integer)
vIEwData
End Sub
Private Sub 員工姓名_DblClick(cancel As Integer)
vIEwData
End Sub
2、保存並運行控制面板界面,雙擊"報銷編號"字段的任意一條記錄即可查看該數據情況,同理雙擊"員工姓名"也可
3、以上代碼的綠色部分大家也可以換成是"類別名稱",即雙擊"類別名稱"就出現查看界面
4、如需要再增加其他字段實現該功能,請重新復制整個的倒數三行一段進行修改
另:如有需要雙擊任意一記錄就可以實現修改功能的,請把以上代碼裡面紅色部分的刪除即可