VBAで更新処理 -vbaで更新がrs.Open wstrsql, CN,-

VBAでボタンクリック時の更新処理

vbaで更新がrs.Open wstrsql, CN, adOpenStatic, adLockOptimistic, adCmdTextのところで　「抽出条件が一致しません」と、エラーがでるのですがなぜなんでしょうか。どうしたらうまく更新が出来るのでしょうか？教えてください、お願いします。下記のは、自分がかいた型とコードです 1コード:数値型 1名:テキスト型 2コード:数値型 2名:テキスト型日付:日付/数値型 text1～6:数値型 Dim rs As ADODB.Recordset Dim CN As ADODB.Connection Dim wstrsql As String Dim ctl As Control Dim strFild As String Set CN = CurrentProject.Connection Set rs = New ADODB.Recordset If MsgBox("更新してもよろしいですか？", vbOKCancel + vbInformation, "更新") = vbOK Then wstrsql = "" wstrsql = wstrsql & " UPDATE test " wstrsql = wstrsql & " SET 1コード ='" & Me![cmd1コード] & "'" wstrsql = wstrsql & " ,1名 = '" & Me![txt1コード] & "'" wstrsql = wstrsql & " ,2コード = '" & Me![cmd2コード] & "'" wstrsql = wstrsql & " ,2名 = '" & Me![txt2コード] & "'" wstrsql = wstrsql & " ,日付= " & Me![txt作成日] & " " wstrsql = wstrsql & " ,text1= '" & Me![txttext1] & "' " wstrsql = wstrsql & " ,text2= '" & Me![txttext2] & "' " wstrsql = wstrsql & " ,text3= '" & Me![txttext3] & "' " wstrsql = wstrsql & " ,text4= '" & Me![txttext4] & "' " wstrsql = wstrsql & " ,text5= '" & Me![txttext5] & "' " wstrsql = wstrsql & " ,text6= '" & Me![txttext6] & "' " wstrsql = wstrsql & " WHERE (((test.1コード )= '" & Me![cmd1コード] & "')) " wstrsql = wstrsql & " AND (((test.1名 )= '" & Me![txt1トコード] & "' ))" wstrsql = wstrsql & " AND (((test.日付 )= #" & Me![txt作成日] & "# ))" wstrsql = wstrsql & ";" rs.Open wstrsql, CN, adOpenStatic, adLockOptimistic, adCmdText If rs.EOF Then rs.Update End If Set CN = Nothing Set rs = Nothing If MsgBox("更新完了しました！", , "更新") = vbOK Then End If End If End Sub

【ACCESS2000】　VBAの更新処理に条件を加えたい。

下記のような更新処理のVBAを組みました。これにIDが5のものを更新するというのを加えるにはどうすればよいでしょうか。 Dim cn As ADODB.Connection Dim rs As New ADODB.Recordset Set cn = CurrentProject.Connection rs.Open "tbl_D_売上", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect rs("入金方法") = 2 rs("入金方法名称") = "分割" rs.Update rs.Close Set rs = Nothing cn.Close Set cn = Nothing

VBAのデバックをどなたかお手伝いください。

もちろん自分でも調べてはいるのですが、急いでいるため、もしどなたか教えてくだされば大変助かります。この（下記の）Then 以降からがわかりません。 Do Until rs.EOF '該当レコードあり If rs!MCD = "3162" Then '--------------------------------------------- strcriteria = "CAT = '" & rs!CAT & "'" ' --- A rs2.Find strcriteria, 0, adSearchForward If rs2.EOF Then ' Else rs!仕入単価世代1 = rs!仕入単価 rs!仕入単価 = rs2!discount End If '--------------------------------------------- rs!更新日 = Now() rs.Update End If 情報が不足していればお答えします。どうぞ宜しくお願いいたします。（補足）これより前に入力されているのは以下のものです。 Dim cn As ADODB.Connection Dim cn2 As ADODB.Connection Dim rs As ADODB.Recordset Dim rs2 As ADODB.Recordset Dim strmsg As String Dim lngRet As Long Dim strcriteria As String Set cn = CurrentProject.Connection Set rs = New ADODB.Recordset Set cn2 = CurrentProject.Connection Set rs2 = New ADODB.Recordset rs.Open "商品２_T", cn, adOpenKeyset, adLockOptimistic rs2.Open "商品２_T25discountてすと", cn2, adOpenKeyset, adLockOptimistic

１つのフォームから複数のテーブルにレコード追加をやってみました。

１つのフォームから複数のテーブルにレコード追加をやってみました。そこで疑問があるのですが、Connectionは１つでRecordsetは追加するテーブルの数だけOpenが必要なのですか？一応下記のコードで2つのテーブルにレコードを追加出来たのですが、素人の推測でやってみたので間違っている所がないか見て頂きたいです。返答よろしくお願いします。 Dim cn As ADODB.Connection Dim rs1 As New ADODB.Recordset Dim rs2 As New ADODB.Recordset Set cn = CurrentProject.Connection Set rs1 = New ADODB.Recordset Set rs2 = New ADODB.Recordset Beep If MsgBox(Format(txt車両コード, "000000") & "　" & txt登録番号 & Chr(13) & "を登録しますか？", 33, "確認！登録") = vbOK Then rs1.Open "T車検証", cn, adOpenKeyset, adLockPessimistic rs2.Open "T所有者", cn, adOpenKeyset, adLockPessimistic rs1.AddNew rs1!車両コード = Me.txt車両コード rs1!登録番号 = Me.txt登録番号 rs1!交付年月日 = Me.txt交付年月日 rs1!初度年月 = Me.txt初度年月 rs1.Update rs2.AddNew rs2!車両コード = Me.txt車両コード rs2!所有者 = Me.txt所有者 rs2.Update rs1.Close: Set rs1 = Nothing rs2.Close: Set rs2 = Nothing cn.Close: Set cn = Nothing MsgBox Format(txt車両コード, "000000") & " " & txt登録番号 & Chr(13) & "を登録しました。", 64, "確認！登録" End If End Sub

CMD.Executeの結果をメッセージボックスで表示したい

Public Sub SQLActionCmd() 　　　 Dim CN As ADODB.Connection 　　　 Dim CMD As ADODB.Command 　　　 Dim MYSQL As String 　　　 '接続　　　 Set CN = CurrentProject.Connection 　　　 '更新　　　 MYSQL = "SELECT * FROM 名簿 WEHRE 性別 = "男" ;" 　　　 Set CMD = New ADODB.Command 　　　 CMD.ActiveConnection = CN 　　　 CMD.CommandText = MYSQL 　　　 CMD.Execute 　　　'終了　　　 Set CMD = Nothing 　　　 RS.Close: Set RS = Nothing 　　　 CN.Close: Set CN = Nothing 　　　End Sub と言う感じで実際にはAccessのフォームのボタンをクリックしたタイミングでコードをかいているのですが、このCMD.EXECUTEを実行した結果、テーブルに該当データがなければない旨のメッセージボックスを出したいのです。そういうことは可能でしょうか？

アクセスVBA。ADO

CSVから列を分割してテーブルにしたいかったので下記のコードを記述しましたが、 Dim cn As ADODB.Connection Dim rs As New ADODB.Recordset Dim datacount As Long Set cn = New ADODB.Connection With cn .ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\;" .Properties("Extended Properties").Value = "text;HDR=YES;" .Open End With Set rs = cn.Execute("SELECT * FROM 構成マスタ.csv") datacount = rs.Fields.Count For i = 0 To datacount strsql = "SELECT " & rs.Fields(i).Name & " INTO " & rs.Fields(i).Name & " FROM 構成マスタ.csv;" cn.Execute strsql Next i rs.Close cn.Close Set rs = Nothing Set cn = Nothing SQLを実行するところで、「日付エラー」となってしまいます。データには特に日付等はないのでエラーになる原因がわかりません。どなたかご教示いただけますでしょうか。

アクセス　VBAのエラー

以下のコードをwindowsXPで問題なく使っていましたが、windows7で使ったところ「保存できません」というエラーメッセージが出ます。ただ全く同じコードを（だと思うのですが）リストボックスのダブルクリックで実行すると作動します。参考に二つのコードを書いておきます。何か原因に心当たりのある方よろしくお願いします。（コマンドボタン） Private Sub コマンド選択_Click() Dim namecode As String namecode = リスト会員 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Set cn = CurrentProject.Connection rs.Open "MT_会員", cn, adOpenKeyset, adLockOptimistic rs.Find "会員IDkai = " & namecode rs!Selectedkai = True '-1 rs.Save Me!リスト会員.Requery リスト印刷会員.Requery rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub （ダブルクリック） Private Sub リスト会員_DblClick(Cancel As Integer) Dim namecode As String namecode = リスト会員 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Set cn = CurrentProject.Connection rs.Open "MT_会員", cn, adOpenKeyset, adLockOptimistic rs.Find "会員IDkai = " & namecode rs!Selectedkai = True '-1 rs.Save Me!リスト会員.Requery リスト印刷会員.Requery rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub

コンパイルすると「メソッドまたはデータメンバが見つかりません」

Access2000です。名前を「Me!txt名前」に入力して「cmd探す」をクリックすると「メソッドまたはデータメンバが見つかりません」「rs.FilterOn = True」でデバッグが中止します。どなたかアドバイスお願いします。－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Private Sub cmd探す_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset 　　Dim strRet As String Set cn = CurrentProject.Connection rs.Open "Q_修正", cn, adOpenKeyset, adLockOptimistic strRet = "使用者氏名 Like'" & Me!txt名前 & "*'" rs.Filter = strRet rs.FilterOn = True －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

アクセスVBAの検索メソッドについてデバック

前回もこちらで質問させていただいたことがある内容なのですが、引き続き、トラブルに悩まされています。仕組みがおかしくなっていたので、自分で触ってしまったことがまた悪影響だったのですが、、。元々他の人が作ったものであり、いま、うまくいかない原因を探っているところです。まず、添付のシートにあるように、上の行のテーブルデータは"商品２_T"という名前のテーブル、下のデータは"商品２_T25discount"という名前のテーブルです。それぞれデータを引っ張ってきて、こちらのサイトに投稿するために貼り付けしました。問題のコードをこちらに記載します。 Dim cn As ADODB.Connection Dim cn2 As ADODB.Connection Dim rs As ADODB.Recordset Dim rs2 As ADODB.Recordset Dim strmsg As String Dim lngRet As Long Dim strcriteria As String Set cn = CurrentProject.Connection Set rs = New ADODB.Recordset Set cn2 = CurrentProject.Connection Set rs2 = New ADODB.Recordset rs.Open "商品２_T", cn, adOpenKeyset, adLockOptimistic rs2.Open "商品２_T25discount", cn2, adOpenKeyset, adLockOptimistic MsgBox "更新を開始します　　", 64, 更新 Do Until rs.EOF '該当レコード摘出 If rs!MCD = Me!tx検索 Then '--------------------------------------------- strcriteria = "CAT = '" & rs!CAT & "'" ' --- A rs2.Find strcriteria, 0, adSearchForward If rs2.EOF Then ' Else rs!仕入単価 = rs2!discount End If '--------------------------------------------- rs!更新日 = Now() rs.Update End If rs.MoveNext Loop MsgBox "更新が完了しました　　", 64, 更新（以上）やりたいことの説明ですが、まず、 If rs!MCD = Me!tx検索 Then　とあるように、これはフォーム内にテキストボックスを用意していますので、ここに記入したMCDに一致するものに、検索をかける、ということです。そしてつぎに、strcriteria = "CAT = '" & rs!CAT & "'" 、（省略）rs!仕入単価 = rs2!discount とありますように、"CAT"を検索対象にし、前者のテーブルの"仕入単価"を、後者のテーブルの"discount"のデータで塗り替えます。という私の解釈なのですが、（何せ他の人が作りましたので）正しいですよね？それで今試しているところなのですが、なぜかうまくいきません。何が間違っているのでしょうか？どういうエラーになるのかというと、これを実行すると、"更新日"というフィールドのみ、更新されて、仕入単価はそのままになります。ちなみに更新日が更新されているのは、このテキストボックスに入れたMCDが一致する全てのデータに対してですので、MCDが一致、には反応しているが、CATを検索して更新をかける、という動作に失敗しているように見えます。しかし素人なのでこれ以上どうすればよいかがわかりません。どなたか少しでも解決策があれば教えていただけないでしょうか。

VBAでオプションボタンの更新ができるようにしたい

こんにちは。アクセスのVBAについてご質問です。「更新」をクリックすると、テーブルと非連結（なのかな？）のオプションボタン「変更の有無」でクリックしたボタンの更新ができるようにしたいのです。テーブルの項目名は「変更の有無（yes/no形式）」ですが、オプショングループには「opt有無」という名前を付け、「有」と「無」のボタンをつけました。おおまかにコードを載せてみます。これではだめなんでしょうか？どうぞよろしくお願いいたします。 Option Compare Database Dim cn As ADODB.Connection 'Connectionオブジェクト Dim rs As ADODB.Recordset 'Recordsetオブジェクト Private Sub Form_Load() Set cn = CurrentProject.Connection '[T許可書]テーブルからデータを取得 Set rs = New ADODB.Recordset rs.Open "T許可書", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect '変数selected貸出IDが0と等しくない（値がセットされている）のであれば、IDがその値のレコードを検索してカレントレコードにする If selected貸出ID <> 0 Then rs.Index = "PrimaryKey" rs.Seek selected貸出ID, adSeekFirstEQ End If 'ShowRecordプロシージャを呼び出し、フォームにカレントレコードを表示する Call ShowRecord End Sub Private Sub 更新_Click() Dim rtn As Integer 'メッセージボックスで押されたボタンの情報が入る '更新確認 rtn = MsgBox("このレコードを更新してよろしいですか？", vbQuestion + vbYesNo, "確認") If rtn = vbYes Then 'カレントレコードを編集 rs.Update rs!変更有無, rs!変更有無 MsgBox "更新完了しました。", vbInformation, "確認" Else End If End Sub

フォームの従業員番号と日付から該当レコードを

フォームの従業員番号と日付から該当レコードを検索したいのですができません。おそらくFilterの文法が間違えているのではと思いましたが、色々試した結果自力ではダメでした。何卒よろしくお願いします Private Sub テスト() Dim CN As ADODB.Connection: Set CN = CurrentProject.Connection Dim RS As ADODB.Recordset: Set RS = New ADODB.Recordset RS.Open "勤怠表", CN, adOpenKeyset, adLockOptimistic RS.Filter = "従業員番号 = " & Me.TB_StaffID & " and 日付 = #" & Format(Me.TB_Date, "yyyy/mm/dd") & "#" If RS.RecordCount = 0 Then Debug.Print "ありません" Else Do Until RS.EOF Debug.Print RS!勤怠番号 RS.MoveNext Loop End If RS.Close: Set RS = Nothing CN.Close: Set CN = Nothing End Sub

ADO　「Set」は使ったほうがいいのでしょうか？

Sub test1() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordse End Sub Sub test2() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset End Sub この二つは同じ意味ですか？「Set」は使ったほうがいいのでしょうか？よろしくお願いします。

【ＶＢＡ】アタッチとデタッチについての認識

ＶＢＡを勉強中の者です。カテ違いならすいません。 ******************************************************* Sub test1() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=SQLOLEDB;Data Source=localhost\SQLEXPRESS; " & _ "Initial Catalog=" & データベース名 & ";" & _ "Integrated Security=SSPI" rs.Open "テーブル1", cn, adOpenStatic, adLockOptimistic MsgBox rs.RecordCount rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub ******************************************************* このコードでアタッチは「Set cn = New ADODB.Connection」、デタッチは「cn.Close: Set cn = Nothing」になりますか？ご教授よろしくお願い致します。

ACCESS VBA

ACCESSで検索フォームを作りたいと思っています。 VBAを使って行きたいと思うのですが、うまくいきません。希望としては、該当するレコードのデータを抽出したいです。よろしくお願いいたします。 ※現段階でのソースを書いてみました。最終的に行いたい処理とは違うのですが、根本的に間違っているようなので簡略化しました。 /------------------------------------------------/ Private Sub コマンド1_Click() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String '接続 Set cn = CurrentProject.Connection 'レコードセットを取得 Set rs = New ADODB.Recordset sql = "SELECT * FROM 従業員データ " & _ "WHERE 年齢=30" rs.Open sql, cn, adOpenDynamic, adLockReadOnly rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub /------------------------------------------------/

access　初心者です。

Private Sub 患者番号_AfterUpdate() Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset Set Cn = CurrentProject.Connection Set Rs = New ADODB.Recordset Rs.Open "[tbl個人情報]", Cn, adOpenKeyset, adLockOptimistic Rs.Find "[患者番号] = " & Me![患者番号] If Rs.EOF Then MsgBox "レコードが見つかりません。ID=" & Me![患者番号] Else Me![性] = Rs![性] End If Rs.Close: Set Rs = Nothing Cn.Close: Set Cn = Nothing End Sub 上記の式を見よう見まねで作成したのですが、エラーが出てしまします。　　　　　　　　　Me![性] = Rs![性]　　が見つかりませんどのように解釈すれば良いのでしょうか？ちなみに、サブフォームに入れているテキストボックスの「[性]を　同じサブフォーム内の[患者番号]から検索がしたいです。初歩的なことで申し訳ございません。よろしくお願いします。

Access ADOについて質問です。

Access ADOについて質問です。以下コードでレコードセットを返す関数を使用しています。動作的には問題ないのですが、標準モジュール内のレコードセットをClose及びNothingしていないのが気になります。 Private Sub Form_Open(Cancel As Integer) Dim rs2 As ADODB.Recordset Set rs2 = New ADODB.Recordset Set rs2 = CreateRecordSet("SELECT * FROM T_Standard;") Set Me.Recordset = rs2 rs2.Close: Set rs2 = Nothing end sub '標準モジュール Public Function CreateRecordSet(strSQL As String) As ADODB.Recordset Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=O:\標準DB\StandardBackEnd.mdb" cn.Open Set rs = New ADODB.Recordset rs.Open strSQL, cn, adOpenStatic, adLockReadOnly Set CreateRecordSet = rs ' rs.Close: Set rs = Nothing　　　←この部分 ' cn.Close: Set cn = Nothing　　　←この部分 End Function 標準モジュール内ではCloseやNothingしなくてもメモリの開放は行われているのでしょうか？アドバイスよろしくお願いいたします。

エクセルVBAの処理速度アップについて

以下のエクセルVBAを組んでいるのですが、処理の速度をあげたいです。無駄な記述があると思うのですが、調べても試行錯誤しても、上手くいきません。処理速度をあげる記述をご教示願います。よろしくお願い申し上げます。 ※別ファイルのAccessファイルをデータベースとして、「今年」テーブルと、「前年」テーブルそれぞれから条件抽出して、受注数量を合計させるものです。 ※SQLのVBAです。なお、実際ファイルのVBAは、以下記述の５倍量あります（内容は、セル範囲が違うだけで同じ。現在速度：約３０秒）。 ※「配列」というのを活用すれば速くなるようなのですが、理解できませんでした。。。ーーーー【以下、VBA】－－－－－－－－－－－ Sub DSUM集計() Application.ScreenUpdating = False Dim db As ADODB.Connection Dim rs As ADODB.Recordset Dim mySQL As String Dim cmd As ADODB.Command Dim AA As Variant AA = "AND 営業箇所" & Range("C13") & " AND 拒 IS NULL AND 販売伝票 <" & Range("D13") & " AND 品名 " & Range("E13") & " AND 得意先名 " & Range("F13") & " AND 請求先名 " & Range("G13") & " AND 出荷先名 " & Range("H13") Set db = New ADODB.Connection db.Provider = "Microsoft.Ace.OLEDB.12.0" db.Open "\\▲▲▲\ACCESS.accdb" With Worksheets("補助計算") mySQL = " SELECT SUM(受注数量) FROM 今年 " mySQL = mySQL & "WHERE 納入期日=" & Range("B13") & AA Set rs = New ADODB.Recordset Set cmd = New ADODB.Command Set cmd.ActiveConnection = db cmd.CommandText = mySQL Set rs = cmd.Execute Range("I13").CopyFromRecordset rs mySQL = " SELECT SUM(受注数量) FROM 今年 " mySQL = mySQL & "WHERE 納入期日=" & Range("B14") & AA Set rs = New ADODB.Recordset Set cmd = New ADODB.Command Set cmd.ActiveConnection = db cmd.CommandText = mySQL Set rs = cmd.Execute Range("I14").CopyFromRecordset rs mySQL = " SELECT SUM(受注数量) FROM 前年 " mySQL = mySQL & "WHERE 納入期日=" & Range("K14") & AA Set rs = New ADODB.Recordset Set cmd = New ADODB.Command Set cmd.ActiveConnection = db cmd.CommandText = mySQL Set rs = cmd.Execute Range("M14").CopyFromRecordset rs 　　 mySQL = " SELECT SUM(受注数量) FROM 前年 " mySQL = mySQL & "WHERE 納入期日=" & Range("K15") & AA Set rs = New ADODB.Recordset Set cmd = New ADODB.Command Set cmd.ActiveConnection = db cmd.CommandText = mySQL Set rs = cmd.Execute Range("M15").CopyFromRecordset rs rs.Close Set rs = Nothing Set db = Nothing Application.ScreenUpdating = True End With End Sub ーーーーーーーーーーーーーーーーーーーー以上

rs.MoveFirst

アクセスｖｂａです。 Sub Sample() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim i As Long Set cn = CurrentProject.Connection rs.Open "Tテーブル", cn, adOpenKeyset, adLockOptimistic rs.MoveFirst '←これいらない? For i = 1 To rs.RecordCount rs.MoveNext Next rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub このようなコードの場合 rs.MoveFirst はあってもなくても変わらないですか?

レコードは2行あるのに「-1」が返ってくる

ａｃｃｅｓｓです。テーブル1にレコードは2行あるのに、下記のコードを実行すると「-1」が返ってきます。なぜでしょうか？ ------------------------------------------------------------ Sub test() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = Application.CurrentProject.Connection Set rs = cn.Execute("SELECT * FROM テーブル1") MsgBox rs.RecordCount rs.Close cn.Close Set rs = Nothing Set cn = Nothing End Sub ------------------------------------------------------------ ご教示よろしくお願い致します。

ADOでレコードを閉じるタイミング。。Access2000/VB6/Win2K

レコードセットを返すFuncitonプロシージャーを作ってみたのですが。。。下のGet_Recordsの方のレコードセットをCloseすると上の方のDisp_Dataでオブジェクトが閉じているといって怒られます。しかし、閉じないと下の方では開きっぱなしになると思うのですが。。。どのように処理すればいいのでしょうか？ Public P_CN As ADODB.Connection Private Sub Disp_Date() 　　Dim RS As ADODB.Recordset 　　Dim SQL AS String 　　　Set RS = Get_Records(SQL) 　　　　With RS 　　　　　If .RecordCount > 0 Then 　　　　　　.MoveLast: .MoveFirst 　　　　　　.Debug.Print !顧客_ID 　　　　　　 End If 　　　　 End With 　　　　 RS.Close 　　　　Set RS = Nothing End Sub Public Function Get_Records(pSQL As String) As ADODB.Recordset 　　Dim RS As ADODB.Recordset 　　　　Set RS = New ADODB.Recordset 　　　　 RS.Open pSQL, P_CN, adOpenKeyset, adLockOptimistic 　　　　Set Get_Records = RS '''　　　 RS.Close '''　　　Set RS = Nothing End Function

VBAで更新処理

みんなの回答

関連するQ&A

VBAでボタンクリック時の更新処理

【ACCESS2000】　VBAの更新処理に条件を加えたい。

VBAのデバックをどなたかお手伝いください。

１つのフォームから複数のテーブルにレコード追加をやってみました。

CMD.Executeの結果をメッセージボックスで表示したい

アクセスVBA。ADO

アクセス　VBAのエラー

コンパイルすると「メソッドまたはデータメンバが見つかりません」

アクセスVBAの検索メソッドについてデバック

VBAでオプションボタンの更新ができるようにしたい

フォームの従業員番号と日付から該当レコードを

ADO　「Set」は使ったほうがいいのでしょうか？

【ＶＢＡ】アタッチとデタッチについての認識

ACCESS VBA

access　初心者です。

Access ADOについて質問です。

エクセルVBAの処理速度アップについて

rs.MoveFirst

レコードは2行あるのに「-1」が返ってくる

ADOでレコードを閉じるタイミング。。Access2000/VB6/Win2K

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

VBAで更新処理

みんなの回答

関連するQ&A

VBAでボタンクリック時の更新処理

【ACCESS2000】 VBAの更新処理に条件を加えたい。

VBAのデバックをどなたかお手伝いください。

１つのフォームから複数のテーブルにレコード追加をやってみました。

CMD.Executeの結果をメッセージボックスで表示したい

アクセスVBA。ADO

アクセス VBAのエラー

コンパイルすると「メソッドまたはデータメンバが見つかりません」

アクセスVBAの検索メソッドについてデバック

VBAでオプションボタンの更新ができるようにしたい

フォームの従業員番号と日付から該当レコードを

ADO 「Set」は使ったほうがいいのでしょうか？

【ＶＢＡ】アタッチとデタッチについての認識

ACCESS VBA

access 初心者です。

Access ADOについて質問です。

エクセルVBAの処理速度アップについて

rs.MoveFirst

レコードは2行あるのに「-1」が返ってくる

ADOでレコードを閉じるタイミング。。Access2000/VB6/Win2K

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

【ACCESS2000】　VBAの更新処理に条件を加えたい。

アクセス　VBAのエラー

ADO　「Set」は使ったほうがいいのでしょうか？

access　初心者です。