窗体刷新问题(请教煮江又品茶老师)

FENG　发表于：2011-04-05 00:01:17 　

煮江又品茶老师好！借用了您的一段代码，但在使用时，提示“编译错误，用户定义类型未定义”望予指教！！！代码如下：

第三步：多数情况下虽不想刷新主窗体，但希望刷新主窗体中的列表框和组合框控件，则该函数可以进一步改写为：
Function frmrq(frm As Form, B As Boolean)
Dim ctls As Controls
Dim ctl As ctl    （这里提示出错）
If B = True Then
    frm.Requery
End If
Set ctls = frm.Controls
For Each ctl In ctls
    If ctl.ControlType = acSubform Then
        clt.Form.Requery
    End If
    If ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Then
        clt.Requery
    End If
Next ctl
End Function

函数调用语句:call frmrq(me.frm,false)

Top

罗衣惹轻尘发表于：2011-04-05 01:44:14

那肯定出错了……ctl是什么字段类型啊？此外，Set ctls = frm.Controls的写法比较少见，所以我也删掉这句了。

以下代码供参考，或者等老汉有时间再调试下吧（毕竟LZ或者老汉版主才有附件，俺就不调试了，只能挑出最明显的错误）。

Function frmrq(frm As Form, B As Boolean)
Dim ctl As Control
If B = True Then
    frm.Requery
End If
For Each ctl In frm.Controls
    If ctl.ControlType = acSubform Then
        ctl.Form.Requery
    End If
    If ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Then
        ctl.Requery
    End If
Next ctl
End Function

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

窗体刷新问题(请教煮江又品茶老师)