Public Sub tensou() On Error GoTo E Dim myDB As Database Dim myTD As TableDef 'カレントデータベースを変数に代入する Set myDB = CurrentDb 'データベース内のテーブル名前を表示する For Each myTD In myDB.TableDefs '別ファイルのテーブル名からデ…

Option Compare Database 'dbfインポートFunction import_dbf() Dim Path As String Dim buf As String, f As Object Path = InputBox$("dbf格納フォルダ") buf = Dir(Path & "\*.dbf") Do While buf <> "" On Error GoTo Err_import_dbf Debug.Print (Path …

Option Compare Database Function alterFields() Dim cn As New ADODB.Connection Dim cmd As New ADODB.Command Dim sql As String Set cn = CurrentProject.Connection cmd.ActiveConnection = cn sql = "ALTER TABLE [テーブル名] ALTER COLUMN [カラム…

AccessからExcelファイルを開いて・印刷して・閉じたい http://www.ken3.org/vba/backno/vba064.html

'列番号を文字に変換するユーザー定義関数 Function ColNum2Txt(lngColNum As Long) As String On Error GoTo ErrHandler Dim strAddr As String strAddr = Cells(1, lngColNum).Address(False, False) ColNum2Txt = Left(strAddr, Len(strAddr) - 1) Exit F…

'Accessテーブルの指定フィールド一括置換 Function replaceTable() Dim myDB Dim myTD On Error GoTo Err_replaceTable 'カレントデータベースを変数に代入する Set myDB = CurrentDb 'データベース内のテーブル名前を表示する For Each myTD In myDB.Table…

Format(CDate("1868/12/31"),"ggge") →明治1年 Format(CDate("1868/01/01"),"ggge") →1868 http://www.accessclub.jp/bbs5/0033/vba10325.html

基準となるセルの位置から指定したオフセット分だけ移動 http://www.officepro.jp/excelvba/cell_range/index6.html Find検索 http://blog.livedoor.jp/katsuyausami/archives/51667888.html http://www.moug.net/tech/exvba/0050116.html Excelプロセスが残…

Function exRunMcrObj() 'xls の マクロを実行 On Error GoTo Err_exRunMcrObj Dim xls As Excel.Application Dim wkb As Excel.Workbook Dim sMDBName As String With CreateObject("Scripting.FileSystemObject") sMDBName = .GetFileName(CurrentDb.Name)…

Function GetXlData() As Boolean ' パス＆ファイル名のエクセルデータを丸ごと読み込んで ' データ変換後 Access に取り込む。 GetObject() 使用。 ' Access側の既にあるテーブルに全て文字列フィールドとして格納。 ' 参照設定：Microsoft DAO x.x Object …

Function GetXlData(InPath, InFile) As Boolean ' パス＆ファイル名のエクセルデータを丸ごと読み込んで ' データ変換後 Access に取り込む。 GetObject() 使用。 ' Access側の既にあるテーブルに全て文字列フィールドとして格納。 ' 参照設定：Microsoft …

DoCmd 実用例 http://www.tsware.jp/tips/tips_008.htm 'Accessダイアログ非表示 DoCmd.SetWarnings False DoCmd一覧 http://www.geocities.jp/cbc_vbnet/kisuhen/docmd.html

ゼロ埋め http://www.accessclub.jp/bbs/0020/beginers9266.html

Dim sSQL As String sSQL = "SELECT FUGA, 構造 FROM HOGE" sSQL = sSQL & " WHERE FUGA = '" & Range("C3").Value & "'" sSQL = sSQL & " AND MOFU like '%" & Range("D3").Value & "%'" sSQL = sSQL & " ORDER BY FUGA DESC;" これじゃ検索できない sSQL …

レコードを追加する サンプルソース '===テーブル1削除クエリがあったとして====== '警告ダイアログをOFF DoCmd.SetWarnings False 'テーブル1削除クエリを実行する DoCmd.OpenQuery "テーブル1削除" '===テーブル1削除クエリがあったとして====== 'テーブル…

指定したフォルダ内の フォルダ一覧を取得し、 そのフォルダ一覧以下のファイルを取得し、 そのファイルを読み込むサンプルソース 'Folder の一覧を取得する Sub ListUp_FolderList(FolderSpec) Dim Folder_Collection As Object Dim Folder_List As Variant…

サンプルソース Do Until oRS.BOF Or oRS.EOF DoEvents 重い処理() oRS.MoveNext Loop http://homepage2.nifty.com/kasayan/vba/doevents.htm

Application.DisplayAlerts = False http://oshiete.goo.ne.jp/qa/1353228.html

ACCESS で OUTER JOIN はサポート外 なので hogeテーブル┌─────┐│ID name │ ──────│ 1 a ││ 2 b ││ 3 c ││ 4 d │└─────┘ fugaテーブル┌─────┐│ID name │ ──────│ 1 a ││ 2 b ││ 3 c ││ 5 e │└─────┘ mofuテーブル┌─────┐│ID name │ ──────│ 4 d ││ 5 e │└───…

①テーブルの作成 「TBL_インポート」を作成する →csvデータがこのテーブルに挿入される ②まずインポート定義を作成する →とりあえず1ファイルだけ 「TBL_インポート」 にインポートしてみて それを「csvインポート定義」という名前で保存する。 ③モジュール…

カレントパスを取得するには CurrentProject.Path これで取得できる。

コンボボックスを連携させる方法 http://ww3.tiki.ne.jp/~kaya/Ac_tips_sample01P2.html

DoCmd.OpenFormを実行すると 「OpenFormアクションの実行はキャンセルされました」 エラーが発生する原因は OpenFormの［レコード抽出条件］オプションに おかしな箇所がある 数値フィールドを文字列で検索してたり、など

access のラジオボタンで デフォルトでチェックONにするには オプショングループ(opt1)を設置 オプショングループ内にオプションボタン(radio1,radio2,radio3)を設置 opt1.Value = 1 'radio1のチェックがOn opt1.Value = 2 'radio2のチェックがOn opt1.Value…

[Access 単票フォーム] http://www.serpress.co.jp/access/vba015.html [データビュー フォームビュー 切り替えvba] http://www.tsware.jp/tips/tips_571.htm DoCmd.RunCommand acCmdDatasheetView 'データシートビュー DoCmd.RunCommand acCmdFormView 'フ…