如何我想換種寫法怎么寫？能不能不用 On Error GoTo 方法就是 當查詢的到的時候，執行填寫命令當查不到的時候怎么辦？原代碼Private Sub Command依ID查詢_Click()On Error GoTo TZ查詢出錯Adodc人事檔案.Refresh '刷新一次，否則，在第一次找到之后，再FIND就會從之前找到的位置往后找。Adodc人事檔案.Recordset.Find ("ID='" & Text依ID查詢.Text & "'")Text編號.Text = Adodc人事檔案.Recordset.Fields("ID")Text姓名.Text = Adodc人事檔案.Recordset.Fields("姓名")Text年齡.Text = Adodc人事檔案.Recordset.Fields("年齡")Text部門.Text = Adodc人事檔案.Recordset.Fields("部門")Text職位.Text = Adodc人事檔案.Recordset.Fields("職位")Exit SubTZ查詢出錯:MsgBox "未找到該ID編號的職工"End Sub=========================================以下兩種方式都不行。If Adodc人事檔案.Recordset.Find("ID='" & Text依ID查詢.Text & "'") Then或If Adodc人事檔案.Recordset.Find("ID='" & Text依ID查詢.Text & "'") =TRUE Then
2 回答
元芳怎么了
TA貢獻1798條經驗 獲得超7個贊
Adodc人事檔案.Refresh If Not Adodc人事檔案.Recordset.EOF Then '使用EOF方法檢測記錄集是否到最后記錄的后面比較合理 Text編號.Text = Adodc人事檔案.Recordset.Fields("ID") Text姓名.Text = Adodc人事檔案.Recordset.Fields("姓名") Text年齡.Text = Adodc人事檔案.Recordset.Fields("年齡") Text部門.Text = Adodc人事檔案.Recordset.Fields("部門") Text職位.Text = Adodc人事檔案.Recordset.Fields("職位") Else '如果檢測記錄集已經到最后記錄的后面，會提示 MsgBox "未找到該ID編號的職工" End If |
桃花長相依
TA貢獻1860條經驗 獲得超8個贊
1、使用find方法時，要先設置recordSet當前所在行的位置，例如用MoveFirst方法，或者 使用BookMark去設置2、find()是個方法不是個函數，所以它不返回任何值。 調用后如果找到匹配的數據，則將游標移到匹配行， 如果沒有匹配的，就移動到rs的末尾，此時rs.EOF為true。 使用舉例： Adodc人事檔案.MoveFirst Adodc人事檔案.Recordset.Find ("ID='" & Text依ID查詢.Text & "'") if not Adodc人事檔案.EOF then Text編號.Text = Adodc人事檔案.Recordset.Fields("ID") Text姓名.Text = Adodc人事檔案.Recordset.Fields("姓名") else MsgBox "未找到該ID編號的職工" end if |
- 2 回答
- 0 關注
- 165 瀏覽
添加回答
舉報
0/150
提交
取消