アクセスで検索したものを直接編集したいのですが・・・

アクセスで検索したものを直接編集したいのですが・・・。今のところ、検索はできるのですが、編集ができません。読み取り専用ですと表示されます。（VBAの本を参照してここまで頑張ったのですが、記載は下記のとおりです。）よろしくお願いいたします。


Private Sub 検索_Click()
Dim wCNN As ADODB.Connection
Dim wRec As ADODB.Recordset
Dim strSQL As String

Set Me.Recordset = Nothing
Me.得意先名.ControlSource = ""
Me.住所.ControlSource = ""
Me.TEL.ControlSource = ""

strSQL = "SELECT * FROM 得意先マスタ"
If IsNull(Me.検索文字) = False And Len(Me.検索文字) <> 0 Then
If IsNull(Me.検索区分) = True Or Len(Me.検索区分) = 0 Then
MsgBox "検索区分を選択してください。", vbOKOnly + vbCritical, ""
Me.検索区分.SetFocus
Exit Sub
End If
strSQL = strSQL & " WHERE " & Me.検索区分 & " LIKE '%" & Me.検索文字 & "%'"
End If
strSQL = strSQL & ";"

Set wCNN = Application.CurrentProject.Connection
Set wRec = New ADODB.Recordset

wRec.Open strSQL, wCNN, adOpenStatic, adLockReadOnly
If wRec.EOF = False And wRec.BOF = False Then
Set Me.Recordset = wRec
Me.得意先名.ControlSource = wRec("得意先名").Name
Me.住所.ControlSource = wRec("住所").Name
Me.TEL.ControlSource = wRec("TEL").Name
End If
wRec.Close

Set wCNN = Nothing
Set wRec = Nothing

Me.Requery
End Sub

No.1 ベストアンサー 回答者： fuuten_no_neko 回答日時： 2005/08/17 06:12

VBAはほとんど知りません（嫌いです）。

しかし
wRec.Open strSQL, wCNN, adOpenStatic, adLockReadOnly

を見るとReadOnlyですから「読み取り専用です」は当然では？

この回答へのお礼

本当ですね！
もう一度トライしてみます。
ありがとうございました。

お礼日時：2005/08/18 13:27