[原创]简单实用的切换面板

古老的龙 · 发表于 2006-9-23 07:10:00

下来看看

zyz218 · 发表于 2006-9-23 18:03:00

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显示并使它显示为"部品单价"

简单说明一下。

xfyang0917 · 发表于 2006-9-23 22:24:00

what it is picture.[em01][em01][em01]

xfyang0917 · 发表于 2006-9-24 01:11:00

support your production[em01][em01][em01]

qronghua · 发表于 2006-9-24 17:46:00

thank you

2609526 · 发表于 2006-9-24 19:38:00

是吗？

huangqinyong · 发表于 2006-9-24 22:04:00

i see

jxbw7408 · 发表于 2006-9-25 02:00:00

就是。。。

feel0617 · 发表于 2006-9-25 09:30:00

先看看

leicb6868 · 发表于 2006-9-25 17:54:00

谢谢

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] [原创]简单实用的切换面板

群介绍
主题无相 (随机显示版	同地区群块其他地区)