Office中国论坛/Access中国论坛

标题: 这种代码应该如何写呢？ [打印本页]

作者: snryga 时间: 2017-9-1 14:08
标题: 这种代码应该如何写呢？
我设置了个选项卡共3页，如何再选择第3页时，在主窗体上显示“第3页的相关说明”，选择第1、第2页时则不显示。

作者: tmtony 时间: 2017-9-1 14:14
在选卡控件的 change事件上里写
如果选卡控件.value=2 (表明是第3页）
if 选卡控件.value=2 then
‘加上你的代码。
end if

作者: snryga 时间: 2017-9-1 15:10
实了一下不行呢！麻烦帮忙改一下呢？

作者: Henry D. Sy 时间: 2017-9-1 15:33

snryga 发表于 2017-9-1 15:10
实了一下不行呢！麻烦帮忙改一下呢？

主窗体与子窗体你想如何联动?

作者: Henry D. Sy 时间: 2017-9-1 15:42

snryga 发表于 2017-9-1 15:10
实了一下不行呢！麻烦帮忙改一下呢？

问题1

Private Sub 选项卡控件0_Change()
Me.Label14.Visible = Me.选项卡控件0 = 2
End Sub

复制代码

作者: Henry D. Sy 时间: 2017-9-1 15:49

Henry D. Sy 发表于 2017-9-1 15:33
主窗体与子窗体你想如何联动?

如果是选择子窗体记录时,主窗体显示子窗体对应的数据
那请在子窗体的窗体成为当前事件中赋值

Private Sub Form_Current()
Me.Parent.序号 = Me.序号
Me.Parent.名称 = Me.名称
Me.Parent.地址 = Me.地址
Me.Parent.备注 = Me.备注
End Sub

复制代码

作者: snryga 时间: 2017-9-1 18:20
已搞好了，非常感谢

作者: snryga 时间: 2017-9-1 21:48
又出新问题，以下代码可否优化？
Private Sub Form_Current()
Me.Parent.序号 = Me.序号
Me.Parent.名称 = Me.名称
Me.Parent.地址 = Me.地址
Me.Parent.备注 = Me.备注
End Sub

为什么每次选择子窗体记录时屏幕闪得很历害。

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