各位大大好：
小弟正在學習使用vba
操作access資料庫
現有一範例想將查詢的
某一筆資料指定的欄位：縣市
相符時將該縣市欄位值清空
但小弟使用vba語法會出現
錯誤訊息。請問小弟應如何
改正語法呢？
執行階段錯誤-2147217887 (80040e21)
供應商資訊行政區欄位不能是零長度字串- Option Compare Database
- Option Explicit
- 'ADO 記錄更新
- Public Sub ADOcontoExtDB()
- Dim con2 As New ADODB.Connection
- Dim rcord2 As New ADODB.Recordset
-
- Set con2 = CurrentProject.Connection
- rcord2.Open "Select * From 供應商資訊 Where 縣市 Like '台中%'", _
- con2, adOpenKeyset, adLockPessimistic
- With rcord2
- Do While Not .EOF
- Debug.Print .AbsolutePosition, .Fields("供應商編號"), .Fields(2), .Fields(3), .Fields(6)
- .MoveNext
- Loop
- End With
- rcord2.MoveFirst
-
- With rcord2
- Do While Not .EOF
- .Fields(6).Value = "" '如果雙引號內加單引號可執行，但不加單引號就會出現錯誤訊息
- .MoveNext
- Loop
- End With
- con2.Close
- End Sub
|
發表於 2015-3-27 10:09
| 
