This topic has been archived. It cannot be replied.
-
工作学习 / 学科技术讨论 / access subform refresh求教Access高手。希望实现subform随着textbox值的变化而更新。请指点下面的code需要如何修改。多谢！
Private Sub Command1_Click()
Dim strsql As String
Dim rs As Recordset
pAr = Text9.Value
Set dbs = CurrentDb()
strsql = "SELECT Table1.* FROM Table1 where aa=" & Chr(34) & pAr & Chr(34) & ";"
Set rs = dbs.OpenRecordset(strsql, dbOpenDynaset)
With dbs
.QueryDefs.Delete "tmp"
Set qdf = .CreateQueryDef("Tmp", strsql)
End With
Me.Refresh
Me.[tmp subform].Form.Requery
End Sub
-icylee(果然);
2012-6-17
{491}
(#7598880@0)
-
是不是有些 BUTTON 来控制 REFRESH 和 EQUERRY 的 EVENT 会好些？很久不碰了，忘光了 ...
-c__wang(cwang);
2012-6-17
(#7598921@0)
-
这些code就是放在一个按钮里。奇怪的是，这个子表单本身随着命令改变，但是在主单里的这个子表单没有动。。。。
-icylee(果然);
2012-6-17
(#7598991@0)
-
自己去 STEP DEBUG，看看每次 SQL 取回来的结果是什么。走两遍，自己就知道了。可以开始设几个断点，找到是哪个 BLOCK 有问题。
-c__wang(cwang);
2012-6-17
(#7598995@0)
-
断点试过的，看不出问题。只是子表单静止不动。我想是少了什么语句,或者是access设置有问题？
-icylee(果然);
2012-6-17
(#7599007@0)
-
大概不是 ACCESS 设置的问题。我还是觉得可能是你 DATASET 取的时候有了变化，或者是 DATASET 的 SQL 结束后没有 CLOSE。
-c__wang(cwang);
2012-6-17
(#7599026@0)
-
按照你讲的，我加了close语句，还是不行。dataset tmp and tmp subform 都是正确的结果，就是在主单里表现不出来
-icylee(果然);
2012-6-17
(#7599053@0)
-
用 GLOBAL VAR 呢？就是全局变量？
-c__wang(cwang);
2012-6-17
(#7599062@0)
-
没变化。。
-icylee(果然);
2012-6-17
(#7599077@0)