表題についてなのですが、初心者のため宜しくお願いいたします。
T_顧客というテーブルをつくり、そこに名字のフィールド、氏名のフィールドがあり、その中からある人物だけ名字の後ろに"さん"という文字をつけようとしています。
そこで下記のように記述しました。
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim ipt As String
rs.Open "T_顧客", cn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
ipt = InputBox("どの人を変更する?")
rs.Find "[名字]='" & ipt & "'"
If rs.EOF Then
MsgBox "そんな人いないよ!"
Else
rs![名字] = rs![名字] & "さん"
End If
rs.Close
cn.Close
End Sub
・・・・と記述したのですが、実行すると、rs.Close の
ところで「実行時エラー'3219' このコンテキストで操作は許可されていません。」とでます。これはいったい
どういうことなのでしょうか。宜しくアドバイスお願い致します。
お礼
お返事遅くなりました! その通りでした!どうもありがとうございました。