→ colawei:把val()拿掉,前後加"'" 03/09 20:00
現在還有另外一個問題 是不能查詢
我想要用我輸入的名稱去查詢
書上寫按鍵的程式碼是
Private Sub Command8_Click()
Dim strID As String
On Error GoTo FindErr
strID = Text1.Text
adoEnp.Recordset.Find " 供應商編號 =" & Val(strID)
Exit Sub
FindErr:
MsgBox Err.Description
End Sub
而且Val 應該是變數 如果我現在希望搜尋的是供應商
也就是 Text1.Text裡是中文字 我應該要更改哪個部份阿
我試過 Str Chr 都不行..
--
╭╮ ○ ＊ ✽ ○ ╭╮ ✽ ╭╮＊╮ ○ ✽
║╣ ✽╭╦═╮╭╮ ╮╭╦═╮║╣ ○ ║╣ ║ ● ╭╮ ╮ ●
║╣ ║╣ ║║╣✽║║╣＊║║╣╭ ╭╮║╣✽║╭╮║╣ ║╭╮
║╣＊ ║╣○║║╣＊║║╬═╯║╣║✽║╣║╣ ║║╣║╣＊║║╣
╰╩═╯╰╩═╯╰╩═╯╰╩═╯╰╯╰═╣╣╰╩═╯╰╯╰╩═╯╰╯
http://www.wretch.cc/album/LovelyVivi╰═╩╯ ＊
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 211.22.72.250
※ 編輯: LovelyVivi 來自: 211.22.72.250 (03/07 23:58)
※ 編輯: LovelyVivi 來自: 211.22.72.250 (03/07 23:58)