Private Sub OpreportPre()

    '指定したレポートを印刷プレビューで開く
   
    Dim rename As String
   
   
    rename = "レポート名"
   
    DoCmd.OpenReport rename, acViewPreview
   
End Sub


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

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

DoCmd.OpenQuery ”クエリ名”, acViewPreview

 

Public Function AccessMax()

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


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

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

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

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

 

    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  　を使用することでレコードセットした件数を取得することができます。


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

 

    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を利用して削除したテーブル名を入力させ削除をおこなっています。

 

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

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

 

    Dim dbname As DAO.Database
    
    'カレントデータベースの取得
    Set dbname = CurrentDb()
   
    データベース名ラベル.Caption = dbname.Name
   
    dbname.Close
   
    Set dbname = Nothing
       
End Sub


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