Access VBA ノート(サンプルコード)

Hide Tamura の Access VBA ノート

Access-VBA Printersコレクション DeviceNameプロパティ

PrintersコレクションはExcelにはなかった

Sub PrinColl()
    Dim c As Object
    For Each c In Printers
        Debug.Print c.DeviceName
    Next
End Sub

結果例
OKI C811(PCL)
Microsoft XPS Document Writer
Microsoft Office Document Image Writer
EPSON PM-950C
EPSON PM-2200C
Canon MP600 Printer
Adobe PDF
Acrobat PDFWriter


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



Access-VBA [SQL] テーブルにレコードを挿入 INSERT INTO ~ VALUES

Sub アクションクエリを実行()
    Dim DB As DAO.Database
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "INSERT INTO tbl商品 VALUES('パソコン関連本',207)"
    
    'アクションクエリを実行する
    DB.Execute SQL
    
    Set DB = Nothing
    
End Sub

--------------------------------------------------------------

Sub アクションクエリを実行()
    Dim DB As DAO.Database
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "INSERT INTO tbl商品(商品名,在庫数) VALUES('絵本',300)"
    
    'アクションクエリを実行する
    DB.Execute SQL
    
    Set DB = Nothing
    
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



Access-VBA [DAO] 一時的なクエリを作成しレコードセットに格納 CreateQueryDef("", SQL) OpenRecordset()

Sub 一時的なクエリを作成しレコードセットに格納()
    Dim DB As DAO.Database
    Dim QD As DAO.QueryDef
    Dim RS As DAO.Recordset
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "SELECT * FROM tbl商品;"
    
    Set QD = DB.CreateQueryDef("", SQL)
    Set RS = QD.OpenRecordset(dbOpenDynaset)
    
    Do Until RS.EOF
        Debug.Print RS(0), RS(1)
        RS.MoveNext
    Loop
    
    RS.Close
    Set RS = Nothing: Set QD = Nothing: Set DB = Nothing
    
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



 

Access-VBA [DAO] アクションクエリの実行 (一時的なクエリの作成) Execute CreateQueryDef("", SQL)

Sub アクションクエリを実行()
    Dim DB As DAO.Database
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "INSERT INTO tbl商品 VALUES('パソコン関連本',207)"
    
    'アクションクエリを実行する
    DB.Execute SQL
    
    Set DB = Nothing
    
End Sub

------------------------------------------------------
 
Sub 一時的なクエリを作成してクエリを実行()
    Dim DB As DAO.Database
    Dim QD As DAO.QueryDef
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "INSERT INTO tbl商品 VALUES('パソコン関連本',17)"
    
    '一時的なクエリを作成してクエリを実行する
    Set QD = DB.CreateQueryDef("", SQL)
    QD.Execute
    
    Set QD = Nothing: Set DB = Nothing
    
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ




 

Access-VBA [DAO] クエリの削除 QueryDefs.Delete

Sub Deleteクエリ()
    Dim DB As DAO.Database
    
    Set DB = CurrentDb
    
    DB.QueryDefs.Delete "Q在庫大"
    
    Set DB = Nothing
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



Access-VBA [DAO] クエリの作成 CreateQueryDefメソッド

Sub クエリ作成()
    Dim DB As DAO.Database
    Dim QD As DAO.QueryDef
    Dim MySQL As String
    
    Set DB = CurrentDb
    
    MySQL = "SELECT * FROM tbl商品 WHERE 在庫数>50"

    Set QD = DB.CreateQueryDef("Q在庫大", MySQL)
    
    Set QD = Nothing: Set DB = Nothing
    
End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



 

 

Access-DB [DAO] テーブルの削除 TableDefs.Delete

Sub Delete商品テーブル()
    Dim DB As DAO.Database
    
    Set DB = CurrentDb
    
    DB.TableDefs.Delete "tbl商品"
    
    Set DB = Nothing
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



Access-DB [DAO] テーブルの作成 CreateTableDef CreateField Fields.Append TableDefs.Append

Sub test1()
    Dim DB As DAO.Database
    Dim TD As DAO.TableDef
    
    Set DB = CurrentDb
    Set TD = DB.CreateTableDef("tbl商品")
    
    TD.Fields.Append TD.CreateField("商品名", dbText, 20)
    TD.Fields.Append TD.CreateField("在庫数", dbLong)
    
    DB.TableDefs.Append TD
    
    Set TD = Nothing: Set DB = Nothing
    
End Sub

--------------------------------------------------------
 
Sub test2()
    Dim DB As DAO.Database
    Dim TD As DAO.TableDef
    Dim FD As DAO.Field
    
    Set DB = CurrentDb
    Set TD = DB.CreateTableDef("tbl商品")
    
    Set FD = TD.CreateField("商品名", dbText, 20)
    TD.Fields.Append FD
    
    Set FD = TD.CreateField("在庫数", dbLong)
    TD.Fields.Append FD
    
    DB.TableDefs.Append TD
    
    Set TD = Nothing: Set DB = Nothing
    
End Sub

--------------------------------------------------------

Sub test3()
    Dim DB As DAO.Database
    Dim TD As DAO.TableDef
    Dim FD As DAO.Field
    
    Set DB = CurrentDb
    Set TD = DB.CreateTableDef("tbl商品")
    
    Set FD = TD.CreateField
    FD.Name = "商品名"
    FD.Type = dbText
    FD.Size = 20
    TD.Fields.Append FD
    
    Set FD = TD.CreateField
    FD.Name = "在庫数"
    FD.Type = dbLong
    TD.Fields.Append FD
    
    DB.TableDefs.Append TD
    
    Set TD = Nothing: Set DB = Nothing
    
End Sub


FD.Type  dbText, dbLong, dbDouble, dbBoolean, dbDate


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



Access-VBA [SQL] テーブルから新しいテーブルを作る(コピー)  SELECT ~ INTO ~ FROM ~

Sub copy写真テーブル()
    Dim DB As DAO.Database
    Set DB = CurrentDb
    
    DB.Execute "SELECT * INTO tbl写真2 FROM tbl写真;"
    
    Set DB = Nothing
End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ


 

Access-VBA [DAO] 参照設定

2007 参照設定必要なし
Microsoft Office 12.0 Access database engine Object Library

2003 参照設定必要なし
Microsoft DAO X.X Object Livrary

------------------------------------------------------

Access2000 2002 参照が必要
Microsoft DAO X.X Object Livrary


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ



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

記事をうまくカテゴリー分け出来ていない場合があります。↓下の記事検索で、キーワード検索してください。
記事検索
ExcelVBAマクロ作成代行


様々な企業、会計事務所、病院からマクロ作成代行を請け負っております。マクロ作成でお役に立てたら嬉しいです。まずはお気軽にご相談ください。
最新記事
Access VBA & マクロ 書籍
Access VBA 担当 Hide Tamura
■VBA Expert
VBA Expert Standard Crown
ExcelVBA Standard
Access VBA Standard
Excel2002 VBA Standard
■MICROSOFT OFFICE USER SPECIALIST
Microsoft Excel version2002 Expert
Microsoft Excel version2002
Excel VBAノート
Hide Tamura の個人的なVBAノートです。

頻繁に使うVBAコードなどを記録しコピペして使う為に作りました。お役に立てるようでしたら、お使いください。

Excel 関数 ノート
Excel関数を中心に、Excelの便利機能や、意外としらない使い方など書いていきます。

Excel関数ノート
Excelで作る経営計画
Excelで利益計画を立てましょう!会社にいくらの利益が必要で、その為の売上高は?

Excelで作る経営計画
アクセスカウンター