问题描述
我将在数据表子表单中设置列。我使用此代码但我得到
类型不匹配(错误 13)
在第 Set f = Me.frmTest1
行。怎么了?
Private Sub cmbTest_1_Click()
Dim rs As Recordset
Dim f As Form
Me.frmTest1.sourceObject = "Query.Test1"
Set f = Me.frmTest1
Set rs = f.RecordsetClone
Debug.Print f.SelTop
rs.MoveLast
rs.MoveFirst
rs.Move f.SelTop - 1
Debug.Print rs!ID
End Sub
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)