初心者と学びたい ACCESS VBA解説

レポートを印刷プレビューで開く

レポートを印刷プレビューで開くには

DoCmdオブジェクトのOpenReportメソッドを使用します。

Private Sub OpreportPre()

    '指定したレポートを印刷プレビューで開く

    Dim rename As String


    rename = "レポート名"

    DoCmd.OpenReport rename, acViewPreview

End Sub

DoCmdオブジェクトのOpenQueryメソッドを使用すれば

クエリを印刷プレビューで開くことができます。

DoCmd.OpenQuery ”クエリ名”, acViewPreview

テーブルをデザインビューで開く

テーブルをデザインビューで開くには

DoCmdオブジェクトのOpenTableメソッドを使用します。

OpenTableの引数にacViewDesignを指定するればデザインビューで

テーブルを開くことができます。

引数を省力するとデータシートビューで開くことができます。

Access画面最大化

Accessの画面の最大化を行うには

Runcommand　を使用します。

アクセスの最大化

Public Function AccessMax()

    'アクセスの最大化
    DoCmd.RunCommand acCmdAppMaximize

End Function

元のサイズに変更する場合には

Runcommand　の後に　acCmdAppRestore　を記述します。

Accessの画面の最小化をする場合は

Runcommand　の後に　acCmdAppMinimize　を記述します。

ADOXの参照

ADOXを参照可能にするには

ADOやＤＡＯを参照可能にしたように

ＶＢＥの画面から[ツール]の[参照設定]を選択します。

ダイアログボックスが表示されますので

Microsoft ADO Exit. 6.0 for DDL and Security

にチェックをしＯＫして下さい

ADOXはADOの拡張機能でADOでは行うことができないオブジェクトの

作成や削除を行うことができます。

Accessのバージョンによっては参照するADOXのバージョンが違う可能性があります。

レコードセットデータの確認（DAO）

レコードセットデータの確認にはイミディエイトウインドウを使用します。

別に使用しなくても確認できる方法はあるのですがイミディエイトウインドウが

一番簡単に確認できる方法だと思います。

レコードセットデータ確認

Sub recordkakunin()
    'レコードセットデータ確認
    Dim db As Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb

    'T_会員テーブル全データの取得
    Set rs = db.OpenRecordset("select * from T_会員", dbOpenDynaset)

    Do Until rs.EOF
        Debug.Print rs!会員No & rs!名前姓 & rs!名前名
        rs.MoveNext
    Loop

    rs.Close
    Set rs = Nothing

    db.Close
    Set db = Nothing

End Sub

イミディエイトウインドウはVBEの表示メニューから開くことができます。

イミディエイトウインドウを開いて実行してみて下さい。

レコードセット最初、最後の値を取得する（DAO)

レコードセットした値の最初のレコードを参照する際には

MoveFirst　を使用します。

Private Sub レコードセット_Click()

    Dim db As Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb

    Set rs = db.OpenRecordset("select * From T_会員", dbOpenDynaset)

    'レコードセットの最初のレコードを参照します
    rs.MoveFirst

    MsgBox (rs!名前姓 & rs!名前名)

    rs.Close
    Set rs = Nothing

    db.Close
    Set db = Nothing
End Sub

上記の例がレコードセット最初のレコードを参照するコードです、

レコードセットの最後のレコードを参照する場合には

rs.MoveFirst　　の部分を　　rs.MoveLast 　を使用して下さい。

rs.RecordCount 　を使用することでレコードセットした件数を取得することができます。

レコードセットは大変役立つ場面が多いと思いますので色々と試してみて下さい

テーブルの削除（DAO）

前回はコードからのテーブル作成を行いました、

今回はコードからのテーブルの削除を行います、

前回同様にVBAでテーブルを削除する機会はあまりないかもしれませんが、
自分でサンプル等を作成し試してみてください。

Private Sub 削除_Click()

    Dim db As DAO.Database
    Dim tbname As String

    'データベースの取得
    Set db = CurrentDb()

    '削除したいテーブル名取得
    tbname = InputBox("削除したいテーブル名を入力して下さい")

    db.TableDefs.Delete tbname

    MsgBox ("テーブルの削除に成功しました")

    db.Close
    Set db = Nothing
End Sub

上の例ではINPUTBOXを利用して削除したテーブル名を入力させ削除をおこなっています。

テーブル作成（DAO）

前回はデータベースの作成方法を説明させて頂きました、

今回はオブジェクト作成の第二段としてテーブルの作成を説明させて頂きます、

実際にコードからテーブルを作成する機会はあまりないかもしれませんが、
簡単な例を挙げさせて頂きます。

テーブル作成

Private Sub createT_Click()

    Dim cdb As DAO.Database
    Dim ctb As DAO.TableDef

    Set cdb = CurrentDb()

    'テーブルを作成します
    Set ctb = cdb.CreateTableDef("T_社員")

    '作成したテーブルにフィールドの作成
    ctb.Fields.Append ctb.CreateField("社員ID", dbInteger)
    ctb.Fields.Append ctb.CreateField("名前姓", dbText, 20)
    ctb.Fields.Append ctb.CreateField("名前名", dbText, 20)
    ctb.Fields.Append ctb.CreateField("部署", dbText, 20)

    cdb.TableDefs.Append ctb

    Set ctb = Nothing
    cdb.Close
    Set cdb = Nothing

End Sub

CreateTablesDef　を使用してテーブルを作成し

CreateField　を使用してフィールドを作成します。

上の例では　”Ｔ_社員” テーブルを作成し、
フィールドとして、

　”社員ID”、”名前姓”、”名前名”、”部署”

を作成しました。

一度皆さんもサンプルコードを作成し試してみてください

データベース作成　（DAO)

新規データベースを作成するには

CreateDataBase　を使用します。

データベース作成(DAOでの）

Sub makedb()

    Dim db As DAO.Database
    Dim dbname As String

    '作成したデータベース名を入力
    dbname = InputBox("データベース名を入力して下さい")

    Set db = CreateDatabase("C:\" & dbname & ".mdb", dbLangJapanese)

    db.Close
    Set db = Nothing

End Sub

上の例ではインプットボックスに作成したいデータベース名
を入力させ、Ｃドライブに作成しています。

もし作成先に同じデータベース名が存在する場合はエラーが起こるので
注意して下さい

カレントデータベース名取得

今回はカレントデータベースの参照を行います、

カレントデータベース、簡単に言ってしまえば現在開いているデータベースです。

カレントデータベースの取得には　CurrentDb()　を使用します。

カレントベースの取得

Private Sub Form_Load()

    Dim dbname As DAO.Database

    'カレントデータベースの取得
    Set dbname = CurrentDb()

    データベース名ラベル.Caption = dbname.Name

    dbname.Close

    Set dbname = Nothing

End Sub

上の例ではフォームを読み込んだ際にデータベース名ラベルに
カレントデータベース名を表示させています。