Re: [VBA ] excel中對access查詢的問題？
正確的寫法如下，若有問題再問我囉!!
: 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 =DB1.OpenRecordset("SELECT * FROM 成績表 WHERE 號碼=" & TEXTBOX1.TEXT)
IF RS1.RECORDCOUNT=0 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: 61.228.59.3
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
