[求助]用DAO搜索已有記錄,居然不行....

ADAM

以下一段語句,我執行時怎么沒反應.......
高手幫忙看看......
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim dbs As DAO.Database
Dim rst1 As DAO.Recordset

Set dbs = CurrentDb()
Set rst1 = dbs.OpenRecordset("data1", dbOpenDynaset)
rst1.FindFirst "[ITEM]='" & Me.ITEM & "'"
If rst1.NoMatch Then
MsgBox "nomatch"
Else
msgobx "match"
End If
rst1.Close
Set dbs = Nothing

End Sub

大熊

是没找到还是没反应，msgobx 语句然道没作用？我试了试，蛮好用的！

cnwang

直接用DLOOKUP，DCOUNT可能更简单一点，就一句.

ADAM

我是在表單中加入的事件,
覺得語句沒錯,可就是移不到下一條記錄....
就是"沒反應了"
用ado就可以.

用dlookup,dcount,是很好,但我要查詢3個字段...
上面那段代碼只示例了一個而已..
當然3個段用filter更好
但我想解決這個問題,

ADAM

多謝斑竹
用dlookup,dcount真的很好用
我找不出原因,不找了,
用可以用的就行了....