ACCESS如何在窗体间传递参数
答案:1 悬赏:30 手机版
解决时间 2021-03-18 02:07
- 提问者网友：战魂
- 2021-03-17 06:11
ACCESS如何在窗体间传递参数
最佳答案
- 五星知识达人网友：第四晚心情
- 2021-03-17 07:24
例：有三个窗体FormA; FormB; FormC，都会调用窗体FormD，FormD在计算出值后无法确定回传给哪个窗体。无需复杂代码，使用Docmd.OpenForm 的 OpenArgs 参数来传递参数，就可很好的解决。发送窗体FormA; FormB; FormCDim sParameter as String
sParameter = Me.Name & ";" & ActiveControl.Name & ";"
DoCmd.OpenForm "FormD", acForm, , , , , sParameter接收窗体FormD - 接收Private Sub Form_Load()
Dim sParameterA() As String
sParameterA = Split(Me.OpenArgs, ";")
ControlName.Value = Forms(sParameterA(0)).Controls(sParameterA(1)).Value
End Sub接收窗体FormD - 回传Private Sub Form_Close()
Dim sParameterA() As String
sParameter = Me.Name & ";" & ActiveControl.Name & ";"
DoCmd.OpenForm "FormD", acForm, , , , , sParameter接收窗体FormD - 接收Private Sub Form_Load()
Dim sParameterA() As String
sParameterA = Split(Me.OpenArgs, ";")
ControlName.Value = Forms(sParameterA(0)).Controls(sParameterA(1)).Value
End Sub接收窗体FormD - 回传Private Sub Form_Close()
Dim sParameterA() As String
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯