[VBA ] excel中對access查詢的問題？
我在EXCEL中用VBA寫了一段查詢ACCESS資料庫的程式
原始檔請由此下載 ftp://203.70.60.138/test.rar
請問我的語法哪裡有錯嗎，否則都查不到資料，謝謝
Private Sub CommandButton1_Click()
On Error GoTo 100
If TextBox1.Text = "" Then
MsgBox "請輸號碼", 1 + 16, "系統提示"
TextBox1.SetFocus
Else
Dim DB1 As Database
Dim RS1 As Recordset
Set DB1 = OpenDatabase(ThisWorkbook.Path & "\資料.mdb")
Set RS1 = Database.OpenRecordset(Name:="成績表", Type:=dbOpenDynaset)
RS1.FindFirst "名字='" & TextBox1.Value & "'"
If RS1.NoMatch = True Then
MsgBox "對不起，沒有該記錄"
RS1.Close
Exit Sub
Else
TextBox2.Value = RS1.Fields("號碼").Value
TextBox3.Value = RS1.Fields("成績").Value
TextBox4.Value = RS1.Fields("名字").Value
End If
RS1.Close
Set RS1 = Nothing
Set DB1 = Nothing
End If
Exit Sub
100:
MsgBox "找不到符合條件的記錄", 1 + 16, "系統提示"
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.70.60.138
討論串 (同標題文章)
完整討論串 (本文為第 1 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
