我做了一個查詢,內有查詢命令,但我不知其具體代碼是什么,如果您,非常感謝你回答我.

熱心網友

Private Sub Command1_Click()Dim bm, Msgbm = 習題庫.Recordset.BookmarkMsg = InputBox("請輸入習題序號", "查找習題")If Len(Msg) = 0 Then Exit SubIf 習題庫.Recordset.RecordCount 0 Thenbm = 習題庫.Recordset.BookmarkEnd If習題庫.Recordset.Seek "=", MsgIf 習題庫.Recordset.NoMatch And Len(bm) 0 ThenMsgBox "此習題不存在，請輸入正確的習題序號！"習題庫.Recordset.Bookmark = bmEnd IfEnd Sub