Office中国论坛/Access中国论坛

标题: [求助]求教:如何单击窗体里的图片打其他窗体? [打印本页]

作者: 毒舌 时间: 2006-9-21 04:51
标题: [求助]求教:如何单击窗体里的图片打其他窗体?
[attach]20449[/attach]

请教大家几个编辑窗体的问题:

1.这个图里的界面是不是用窗体做的啊?

2.如果是窗体,那么A部分是"工具箱"里的哪个工具啊?我如何做才能点击A然后让B部分随着A变化呢?而且不是弹出新的窗体?

3.我怎么设定C,才能让单击C弹出新的窗体啊?

以上谢谢各位

PS:关于问题3,我看了范例,范例里面是"图像",我也建立一个窗体,然后"拖出图像筐,编辑属性.,在事件里设置"单击",但是在这里的表达式生成器怎么选择啊?范例里的是这个=OpenForms("XX")"这个命令是点击表达式里的选项点出来的还是输入的命令.?但是我打上这个命令了,单击的时候,系统提示"无法找到函数之类的"

作者: kelind 时间: 2006-9-21 06:23
这是一个典型的选项卡控件的例子.

  1,b部分可以先做成窗体,或直接在选项卡中做.

  2,b部分中的图片有click事件,如图片"供应商评价"图片,

docmd.openforms"供应商评价"(必须有这个窗体)

  3,a部分就是命令按钮.

作者: 毒舌 时间: 2006-9-22 03:48
十分感谢~

关于,b部分中的图片有click事件,如图片"供应商评价"图片,

docmd.openforms"供应商评价"(必须有这个窗体)---我已经建立这个窗体了~然后在事件中点击图片还是不行啊~docmd.openforms--这个命令是手动输入的还是点击什么生成的啊?

谢谢

作者: zyz218 时间: 2006-9-23 17:45
Function OpenForms(strFormName As String) As Integer
On Error GoTo Err_OpenForms

DoCmd.OpenForm strFormName

Exit_OpenForms:
Exit Function

Err_OpenForms:
MsgBox Err.Description
Resume Exit_OpenForms

End Function
以上为右边图片单击事件通用函数

以下为左边标签单击事件来控制右边图片的显示与它的on click属性值和它对应的标签之caption

Private Sub cmdIqc_Click()
Me.img1.Visible = True: Me.img1.OnClick = "=OpenForms('BOM')"
Me.img2.Visible = True: Me.img2.OnClick = "=OpenForms('IQC_Material')"
Me.img3.Visible = True: Me.img3.OnClick = "=OpenForms('IQC_Fail')"
Me.img4.Visible = True: Me.img4.OnClick = "=OpenForms('Supplier')"
Me.img5.Visible = True: Me.img5.OnClick = "=OpenForms('IQC_Appraise')"
Me.img6.Visible = True: Me.img6.OnClick = "=OpenForms('IQC_Check')"
Me.img7.Visible = True: Me.img7.OnClick = "=OpenForms('IQC_Produce')"
Me.img8.Visible = True: Me.img8.OnClick = "=OpenForms('IQC_CAR')"
Me.img9.Visible = True: Me.img9.OnClick = "=OpenForms('IQC_Send')"
Me.lb1.Visible = True: Me.lb1.Caption = "构成管理"
Me.lb2.Visible = True: Me.lb2.Caption = "部品目录"
Me.lb3.Visible = True: Me.lb3.Caption = "不良类别"
Me.lb4.Visible = True: Me.lb4.Caption = "供应商管理"
Me.lb5.Visible = True: Me.lb5.Caption = "供应商评价"
Me.lb6.Visible = True: Me.lb6.Caption = "来料检查"
Me.lb7.Visible = True: Me.lb7.Caption = "生产线不良"
Me.lb8.Visible = True: Me.lb8.Caption = "发行要望书"
Me.lb9.Visible = True: Me.lb9.Caption = "管理要望书"
End Sub

Private Sub cmdOqc_Click()
Me.img1.Visible = True: Me.img1.OnClick = "=OpenForms('OQC_Production')"
Me.img2.Visible = True: Me.img2.OnClick = "=OpenForms('OQC_IPQC')"
Me.img3.Visible = True: Me.img3.OnClick = "=OpenForms('OQC_Check')"
Me.img4.Visible = True: Me.img4.OnClick = "=OpenForms('OQC_Action')"
Me.img5.Visible = True: Me.img5.OnClick = "=OpenForms('OQC_CAR')"
Me.img6.Visible = True: Me.img6.OnClick = "=OpenForms('OQC_Send')"
Me.img7.Visible = False: Me.img7.OnClick = ""
Me.img8.Visible = False: Me.img8.OnClick = ""
Me.img9.Visible = False: Me.img9.OnClick = ""
Me.lb1.Visible = True: Me.lb1.Caption = "成品管理"
Me.lb2.Visible = True: Me.lb2.Caption = "IPQC问题点"
Me.lb3.Visible = True: Me.lb3.Caption = "出荷检查"
Me.lb4.Visible = True: Me.lb4.Caption = "不良对策"
Me.lb5.Visible = True: Me.lb5.Caption = "发行要望书"
Me.lb6.Visible = True: Me.lb6.Caption = "管理要望书"
Me.lb7.Visible = False: Me.lb7.Caption = ""
Me.lb8.Visible = False: Me.lb8.Caption = ""
Me.lb9.Visible = False: Me.lb9.Caption = ""
End Sub

Private Sub cmdQa_Click()
Me.img1.Visible = True: Me.img1.OnClick = "=OpenForms('QA_Target')"
Me.img2.Visible = True: Me.img2.OnClick = "=OpenForms('QA_Complain')"
Me.img3.Visible = True: Me.img3.OnClick = "=OpenForms('QA_Report')"
Me.img4.Visible = False: Me.img4.OnClick = ""
Me.img5.Visible = False: Me.img5.OnClick = ""
Me.img6.Visible = False: Me.img6.OnClick = ""
Me.img7.Visible = False: Me.img7.OnClick = ""
Me.img8.Visible = False: Me.img8.OnClick = ""
Me.img9.Visible = False: Me.img9.OnClick = ""
Me.lb1.Visible = True: Me.lb1.Caption = "品质目标"
Me.lb2.Visible = True: Me.lb2.Caption = "客户抱怨"
Me.lb3.Visible = True: Me.lb3.Caption = "品质月报"
Me.lb4.Visible = False: Me.lb4.Caption = ""
Me.lb5.Visible = False: Me.lb5.Caption = ""
Me.lb6.Visible = False: Me.lb6.Caption = ""
Me.lb7.Visible = False: Me.lb7.Caption = ""
Me.lb8.Visible = False: Me.lb8.Caption = ""
Me.lb9.Visible = False: Me.lb9.Caption = ""
End Sub

Private Sub cmdPro_Click()
Me.img1.Visible = True: Me.img1.OnClick = "=OpenForms('Produce_MaterialPrice')"
Me.img2.Visible = True: Me.img2.OnClick = "=OpenForms('Produce_Scrap')"
Me

作者: zyz218 时间: 2006-9-23 17:48
Me.img1.Visible = True: Me.img1.OnClick = "=OpenForms('BOM')"
以上为图片img1显示并打开叫做BOM的窗口并要用到以下过程：

’------------------------------------------------------------

Function OpenForms(strFormName As String) As Integer
On Error GoTo Err_OpenForms

DoCmd.OpenForm strFormName

Exit_OpenForms:
Exit Function

Err_OpenForms:
MsgBox Err.Description
Resume Exit_OpenForms

End Function
’---------------------------------------------------------------------

Me.lb1.Visible = True: Me.lb1.Caption = "部品单价"
以上为标签lb1显示并使它显示为"部品单价"

[此贴子已经被作者于2006-9-23 9:58:41编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)