Access VBA note イメージ画像
このAccess VBA ノートは、プログラムを再利用したり、コピペで入力の手間を省く為に作ったネット上のノートです。
詳しい解説は書いておりません。エラー等のトラブルには責任は負いません。利用者の環境に合わせて書き換えてご利用ください。

更新情報

DROP TABLE テーブル名;Sub Sample2()    Dim myDB As Database    Dim mySQL As String        mySQL = "DROP TABLE tbl勘定科目;"        Set myDB = CurrentDb        myDB.Execute mySQL        myDB.Close    Set myDB = NothingEnd Sub  ↓

CREATE TABLE テーブル名(フィールド名1 データ型, フィールド名2 データ型,・・・);Sub Sample1()    Dim myDB As Database    Dim mySQL As String        mySQL = "CREATE TABLE tbl勘定科目(科目コード NUMBER, 科目名 CHAR);"        Set myDB = CurrentDb

SELECT * FORM テーブル名 _WHERE フィールド名 Like 'パターン文字列'?田 → 山田、中田?田* → 山田太郎ワイルドカード* 任意の文字列? 任意の一文字# 任意の一文字の数字[文字リスト] リスト内の一文字[!文字リスト] リスト以外の一文字[文字1-文字2] 文字1~文字2の

SELECT フィールド1,フィールド2,・・・ FORM テーブル名 _NULL値のレコード抽出WHERE フィールド IS NULL; NULL値でないレコード抽出WHERE フィールド IS NOT NULL;  ↓ facebook のフォローで応援してください。お願いします。Microsoft Office ブログランキングへ

フィールドを指定SELECT フィールド1,フィールド2 FORM テーブル名;全てのフィールドを指定SELECT * FORM テーブル名;  ↓ facebook のフォローで応援してください。お願いします。Microsoft Office ブログランキングへ

    RS.Open "tbl勘定科目", CN    RS.Filter = "勘定科目='1112' or 勘定科目 = '1113'"    Do Until RS.EOF        Debug.Print RS("勘定科目"), RS("科目番号")        RS.MoveNext    Loop    -----------------------------------------------------

    RS.CursorLocation = adUseClient        With RS        .Source = "tbl補助科目"        .ActiveConnection = CN        .Open    End With    RS.Sort = "科目コード ASC, 補助科目コード DESC"    Do Until RS.EOF        Debug.Print

Sub test2()    Dim CN As ADODB.Connection    Dim RS As New ADODB.Recordset        Set CN = CurrentProject.Connection        RS.Open "tbl法人名簿", CN, adOpenStatic, adLockReadOnly        Do        RS.Find "住所1 Like '東京都*'"   

Option Compare DatabaseOption ExplicitDim myADOcon As New ADODB.ConnectionDim myRecSet As New ADODB.RecordsetConst Prv_Jet40 = "Provider=Microsoft.Jet.OLEDB.4.0;"Sub Open_ADOdb()    Set myADOcon = CurrentProject.ConnectionEnd SubSub Close_myRecSet() 

    Dim ArrField As Variant    Dim ArrValue As Variant        ArrField = Array("科目コード", "科目名")    ArrValue = Array("1122", "売掛金")        RS.AddNew ArrField, ArrValue-----------------------------------------------------------  

    RS.Update "科目コード", "1112"    RS.Update "科目名", "当座預金"---------------------------------------------------------------    RS("科目コード").Value = "1112"    RS("科目名").Value = "普通預金"    RS.Update-------------------------------

使用例RS.MoveFirstDo Until RS.EOF    Debug.Print RS.Fields(0), RS.Fields(1), RS.Fields(2)    RS.MoveNextLoopMoveFirst 先頭へMoveLast 最後へMoveNext 次へMovePrevious 前へMove番号 指定した数を次へレコードセットにレコードがない時 BOF=True EOF=True

Source テーブル、クエリ、SQLActiveConnectionCursorType adOpenForwardOnly (既定)前方スクロールカーソル adOpenKeyset キーセットカーソル adOpenDynamic 動的カーソル adOpenStatic 静的カーソルLockType adLockReadOnly (既定)読み取り専用 adLockPess

Sub Test1()    Dim CN As ADODB.Connection    Dim RS As ADODB.Recordset        Set CN = CurrentProject.Connection    Set RS = CN.Execute("tbl名簿")                RS.Close    Set RS = Nothing: Set CN = NothingEnd SubExecuteでは、テ

↑このページのトップヘ