« [VB.NET] Sub Main(二重起動防止・スタートフォーム) | メイン | [Access VBA] フォームを開く・閉じる »
2005年10月27日
[Access VBA] レコードの挿入
'--- SQL使用 strSQL = "" strSQL = strSQL & "INSERT INTO " strSQL = strSQL & "テーブル名 (列1, 列2, 列3) " strSQL = strSQL & "SELECT " strSQL = strSQL & "[forms]![フォーム名]![コントロール] AS 式1, " strSQL = strSQL & "[forms]![frm_Main]![txt_ID] AS 式2, " strSQL = strSQL & "[forms]![frm_Main]![lbl_Name] AS 式3" DoCmd.RunSQL (strSQL)
'--- レコードセット使用 Dim Conn As ADODB.Connection Dim RS As ADODB.RecordsetSet Conn = Application.CurrentProject.Connection
Set RS = New ADODB.Recordset
RS.Open "テーブル名", Conn, adOpenKeyset, adLockOptimistic '読み取り・書き込み
'RS.Open "テーブル名", Conn '読み取り専用RS.AddNew
RS![列1] = [forms]![フォーム名]![コントロール]
RS![列1] = [forms]![frm_Main]![txt_ID]
RS![列1] = [forms]![frm_Main]![lbl_Name]
RS.UpdateRS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
2005 / 10 / 27