2020年8月25日 / 最終更新日時 : 2020年8月25日 mio_pcsupport ACCESS ACCESS VBA サブフォームにクロス集計クエリを表示させる 下記サイトを参考に http://psp8155.blog13.fc2.com/blog-entry-395.html
2020年8月21日 / 最終更新日時 : 2020年8月21日 mio_pcsupport ACCESS ACCESS VBA Formのコントロール名に連番の変数を含めて使いたい ACCESS VBA で フォームのコントロール(テキストボックス)のコントロール名に 変数の連番を用いて、参照したい場合 たとえばテキストボックスとして cnt0 から cnt11 、 zei0 から zei11 など […]
2020年8月18日 / 最終更新日時 : 2020年8月18日 mio_pcsupport ACCESS VBAでレコードセット開いていたら閉じて無効化する方法 On Error Resume NextFor i = 0 To 10rs(i).CloseSet rs(i) = NothingNextOn Error GoTo 0 これで開いていない場合はエラーとなり、Nothin […]
2020年8月12日 / 最終更新日時 : 2020年8月12日 mio_pcsupport ACCESS ACCESS RUNTIME 2016 がインストールできない問題 「このバージョンではWINDOWSインストーラ版(MSI)とクイック実行版(C2R)のOFFICEの プログラムの両方を同じコンピュータでインストールすることはできません。 インストールできるのはいずれか1種類だけです。 […]
2020年8月3日 / 最終更新日時 : 2020年8月3日 mio_pcsupport ACCESS ACCESS フォームを閉じる時、別フォームをリクエリ 閉じるときに別フォームをリクエリ Private Sub Form_Close() Forms![F個人別月報]![F手当支給サブ].Form.RequeryForms![F個人別月報]![F個人別月報サブ].Form. […]
2020年8月3日 / 最終更新日時 : 2020年8月3日 mio_pcsupport ACCESS ACCESS VBA で EXCEL出力した時、EXCELを前面に出したい wkb.SaveAs (strFolder & “\見積書\” & fName) Let xls.UserControl = TrueLet xls.Visible = True […]
2020年8月3日 / 最終更新日時 : 2020年11月22日 mio_pcsupport ACCESS ACCESS VBA Format関数の「パーセント」「3桁区切り」 ACCESS VBA FORMAT関数の「パーセント」表記 0.2555 の場合 「0%」→「26%」 「0.0%」→「25.6%」 「#%」→「26%」 となる (どちらも四捨五入される) 「#」と「0」の違いは、 […]
2020年7月31日 / 最終更新日時 : 2020年7月31日 mio_pcsupport EXCEL ブックを開くときにコンボに値を設定(EXCEL VBA) ThisWorkbook のソースに「開く時」イベントとして記述 Private Sub Workbook_Open() Dim i As Long End Sub
2020年7月31日 / 最終更新日時 : 2020年7月31日 mio_pcsupport EXCEL EXCEL VBA コンボ選択時 指定列まで非表示にして印刷範囲も再設定する EXCELで横長に月次の明細等、履歴を残してゆく場合、印刷範囲が何ヶ月分と決まっている場合、必要な箇所のみ表示して、古い履歴列を非表示にしたい場合がある。 コンボ選択時に、非表示列を指定して、列を非表示にし、それと同時に […]
2020年7月30日 / 最終更新日時 : 2020年7月30日 mio_pcsupport ACCESS ACCESS サブフォームの合計値で、レコードがない時 「NULL」か「エラー」か サブフォームのフォームフッタに合計値を求めるテキストボックス「合計値」を配置して、それを親フォームから参照する場合、「合計値」がエラーの場合に「0」にするか、NULLの場合に「0」にするか、使い分ける必要がありそうである […]
2020年7月30日 / 最終更新日時 : 2020年11月22日 mio_pcsupport ACCESS ACCESS 「台帳」等でコンボで「年」「月」「会社」選択時にレコード追加 「台帳」で「年」「月」「会社」の3つをキーとする場合、「年」「月」があらかじめ入っていて、「会社」を選択したときに、「台帳」の新規レコードが追加されるようにするモジュール「Add_Nengetu_Com」を自作 すでに同 […]
2020年7月30日 / 最終更新日時 : 2020年7月30日 mio_pcsupport ACCESS ACCESS サブフォーム 新規行追加時に自動的に行番 サブフォーム(ダイナセット)で、末尾の新規追加行の編集を開始したときに、行番フィールドに自動的に採番したい場合は、フォームの「挿入前」イベントを使う。 Private Sub Form_BeforeInsert(Canc […]
2020年7月30日 / 最終更新日時 : 2020年7月30日 mio_pcsupport ACCESS ACCESS サブフォーム 行挿入して行番号振り直す サブフォームで、下に行を挿入したいレコードを選択して「行挿入」ボタンを押したときに、行が挿入されて、行番号を上から振り直すために必要なモジュール。 注意すべきは、行番号フィールドを倍精度浮動小数点型にしておくこと。 Pr […]
2020年7月22日 / 最終更新日時 : 2020年7月22日 mio_pcsupport EXCEL EXCEL セル 値のコピー Worksheets(“Sheet1”).Range(“A1”).Copy Worksheets(“Sheet2”).Range(“C2 […]
2020年7月21日 / 最終更新日時 : 2020年11月22日 mio_pcsupport EXCEL EXCEL 別シートへのセルコピーで「cells」「range」プロパティの問題 EXCEL で、別シートへのセルコピーをする際には、「Cells」「Range」プロパティの挙動の違いに注意すること。 コピー元がアクティブシートでない場合、「Cells」プロパティを使ったセル範囲の指定は、エラーを発生 […]
2020年7月21日 / 最終更新日時 : 2020年7月21日 mio_pcsupport EXCEL EXCEL 入力された最終行(列に空白も含む場合)を取得 EXCEL 入力された最終行(列に空白も含む場合)を取得するには A列の場合、 Cells(Rows.Count, 1).End(xlUp).Row となる。「1」はA列の意味。Bれつならば「2」になる。 Rows.Co […]
2020年5月19日 / 最終更新日時 : 2020年5月20日 mio_pcsupport EXCEL EXCEL シートごとに移動方向を変更 Private Sub Worksheet_Activate() Application.MoveAfterReturn = True Application.MoveAfterReturnDirection = xl […]
2020年4月9日 / 最終更新日時 : 2020年4月15日 mio_pcsupport ACCESS ACCESSのレポートでプレビュー画面から印刷ボタンでフォームが印刷されてしまう 下記URL参照 上記では解決せず。 レポートを開くときのイベントに Docmd.Maxsizeを入れて 閉じるときのイベントに Docmd.Minisize を入れることで目的の動作をするようになる
2020年3月23日 / 最終更新日時 : 2020年3月23日 mio_pcsupport ACCESS ACCESS Dao 3.6 の参照設定について ACCESS の参照設定で、DAO3.6を用いる場合、最近のACCESSのバージョンでは、「Microsoft Office 16.0 Access database engine Object Library」にチェッ […]
2020年3月12日 / 最終更新日時 : 2020年3月12日 mio_pcsupport ACCESS EXCELファイル開くとき「ファイル形式と拡張子が一致しません」 ACCESS VBA で作成保存した 拡張子「xls」のエクセルファイルを、保存後、開こうとすると「 ファイル形式と拡張子が一致しません 」というメッセージが出る。開くことはできるが、毎回このメッセージが出る。 そこで […]