ACCESSでデータセット時、項目を可変にしたい

よろしくお願いしますm(__)m

MDBであるテーブルのある項目に、データを
セットする際、項目名を可変にしたいのですが、
方法が分からないので、教えて下さい＞＜；

Public Sub AAA(テ As String, 項 As String)

SQL = "select" & 項
SQL = SQL$ & " from " & テ
Set rs = cdb.OpenRecordset(SQL)

Do Until rs.EOF
rs.Edit
**********************************************
rs![項] = "あいう"　←入れ先を可変にしたい
**********************************************
rs.Update
rs.MoveNext
Loop

No.1 ベストアンサー 回答者： dee_honda 回答日時： 2006/01/30 16:19

rs(項) = "あいう"

SELECT文で１項目しか選択してこないのであれば、
1番目の項目ということで、
rs(0) = "あいう"

この回答へのお礼

なるほどです＾＾；
そういう方法があったのですね＾＾
ありがとうございます～～

お礼日時：2006/01/31 09:11

No.2 回答者： noname#22222 回答日時： 2006/01/30 16:25

Option Compare Database

Option Explicit

Private Sub コマンド0_Click()
　　Dim isOK As Boolean
　　isOK = UpdateTable("Table1", "数量", 1)
End Sub

Public Function UpdateTable(ByVal tblName As String, _
　　　　　　　　　　　　　　ByVal fldName As String, _
　　　　　　　　　　　　　　ByVal newValue As Integer) As Boolean
On Error Goto Err_UpdateTable
　 Dim isOK AS Boolean
　　Dim strSQL As String
　　Dim dbs　　As DAO.Database
　　Dim rst　　As DAO.Recordset
　　
　　isOK = True
　　strSQL = "SELECT " & fldName & " FROM " & tblName
　　Set dbs = CurrentDb
　　Set rst = dbs.OpenRecordset(strSQL)
　　With rst
　　　　If Not .BOF Then
　　　　　　Do Until .EOF
　　　　　　　　.Edit
　　　　　　　　.Fields(0) = newValue
　　　　　　　　.Update
　　　　　　　　.MoveNext
　　　　　　Loop
　　　　End If
　　End With
Exit_UpdateTable:
On Error Resume Next
　　rst.Close
　　dbs.Close
　　Exit Function
Err_UpdateTable:
　　isOK = False
　　Resume Exit_UpdateTable
End Function

Function にしましたが、質問への回答部は同じです。
当然に Where節がありませんので検索された全ての行が更新されます。

この回答へのお礼

ありがとうございます。
試してみた結果、値セットできました＾＾

お礼日時：2006/01/31 09:12