Private Sub Command9_Click()s = InputBox("請輸入查詢的入庫日期")'Data1.Recordset.FindFirst "入庫日期= # '" & s & "'# "Data1.Recordset.FindFirst "format(入庫日期,'yyyymmdd')='+ s + '"If Data1.Recordset.NoMatch ThenMsgBox "本庫中無這個日期"ElseDo Until Data1.Recordset.NoMatcha = MsgBox("是否顯示下一條記錄", vbYesNo + vbQuestion)If a = vbYes Then'Form5.Data1.Recordset.FindNext "入庫日期=# '" & s & "'#"Form5.Data1.Recordset.FindNext "format(入庫日期,'yyyymmdd')='+ s + '"End IfLoopEnd IfForm5.ShowEnd Sub

熱心網友

引號是在ENGLISH輸入模式下輸入的嗎如果是在中文模式下輸入會有錯誤提示的