Private Sub Command9_Click()s = InputBox("請輸入查詢的入庫日期")'Data1.Recordset.FindFirst "入庫日期= # '" & s & "'# "Data1.Recordset.FindFirst "format(入庫日期,'yyyymmdd')='& & '"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')='& &'"End IfLoopEnd IfForm5.ShowEnd Sub

熱心網友

本人分析：1。可能是客戶的數據太長，報表寬度設置的太短。2。可能是application system中該可執行的打印樣式沒設對。