2019年4月9日 / 最終更新日時 : 2019年4月9日 mio_pcsupport ACCESS コンボボックス キー入力を不許可にする コンボボックスの値集合ソース以外を選択できないとともに、直接入力をできないようにする。(Enter等のみ可能にする) Private Sub cboデータ_KeyDown(KeyCode As Integer, Shif […]
2019年3月19日 / 最終更新日時 : 2019年3月19日 mio_pcsupport ACCESS VBAで起動したWORD EXCELがタスクに残らないようにする ACCESS VBA からWORD EXCELを起動して処理をする際に、エラーが発生したときなど、WORD EXCEL がプロセスとして起動中のままプログラムが終了してしまうために、タスクマネージャーに残ってしまうことが […]
2019年3月19日 / 最終更新日時 : 2019年10月17日 mio_pcsupport ACCESS ACCESS 一覧画面リクエリ時に元の位置に戻るソース Private Sub Form_Activate() On Error Resume Next Dim CR As Long Me.Painting = False CR = Me.CurrentRecord Me.R […]
2019年2月26日 / 最終更新日時 : 2019年6月11日 mio_pcsupport ACCESS VBA 改行コードについて(ACCESS EXCEL WORD) ACCESSからWORDを操作する際に、コンテンツコントロールの中に改行コードを使いたい場合、Chr(13) CRも、chr(10) LFも、 Chr(13)&Chr(10)も 使用できない。唯一、Chr(11) […]
2019年2月21日 / 最終更新日時 : 2019年2月21日 mio_pcsupport ACCESS EXCEL マクロから参照設定 参照URL http://officetanaka.net/excel/vba/tips/tips100.htm https://www.tipsfound.com/vba/01005
2019年1月30日 / 最終更新日時 : 2019年4月27日 mio_pcsupport ACCESS 更新クエリで2つのテーブルを同期させる 参照サイト https://hatenachips.blog.fc2.com/blog-entry-153.html マスタテーブルがあって、あれば更新、なければ追加ということを行いたい場合、追加元がテーブルであり、主キ […]
2019年1月25日 / 最終更新日時 : 2019年1月25日 mio_pcsupport ACCESS VBA参照設定 WORD エクセルの自動参照設定は ‘エクセル自動参照設定 On Error GoTo Err_Shori Dim Ref As Reference Const strExcel As String = “ […]
2018年8月7日 / 最終更新日時 : 2018年8月7日 mio_pcsupport ACCESS ACCESS DateAdd関数で 10年前 日付フィールドで < DateAdd("yyyy",-10,Date()) とすると 10年超の古いレコードを抽出するが < DateAdd("y",-10,Date())とすると < DateAdd("d",-10,D […]
2018年8月3日 / 最終更新日時 : 2018年8月3日 mio_pcsupport ACCESS ローカルフォルダにネットワークドライブの割当 ACCESSのテーブルリンクで、デーブルの配置場所がNAS等になって、リンク名が異なるときに、 毎回リンクテーブルマネージャーでリンクを再設定していただくのは大変なので、 お客様側もNASの当該フォルダをネットワークドラ […]
2018年7月30日 / 最終更新日時 : 2018年7月30日 mio_pcsupport ACCESS ACCESS 郵便番号 住所入力支援 Office用とIME用の2種類の辞書があるようですが、どちらも更新されていない様子です。 郵便番号→住所 新しい郵便番号で変換できても、住所に番地等を入れると、郵便番号が古いものに戻ってしまう。 郵便番号と住所が相互に […]
2018年7月2日 / 最終更新日時 : 2018年7月2日 mio_pcsupport ACCESS ACCESS VBA API_DialogBox のコンパイルエラー(32ビット 64ビット) ACCESS VBA で、ダイアログボックスを使う時、APIを用いるときに システムの起動時に、 「このプロジェクトのコードは、64ビットシステムで使用するために更新する必要があります。Declareステートメントの確認 […]
2018年6月29日 / 最終更新日時 : 2018年6月29日 mio_pcsupport EXCEL Excel VBA Unionメソッド エクセルのVBAで特定の行を削除したい時、Range型の変数に、特定の行全体を追加してゆき、 追加された範囲全体をまとめて削除する方法が速いようである。 ただしACCESSから呼び出すときには注意が必要である。 Unio […]
2018年5月29日 / 最終更新日時 : 2018年5月29日 mio_pcsupport ACCESS ACCESS VBA CSVインポート・エクスポート ACCESSによる テーブルをCSVに出力するVBA コマンド インポート DoCmd.TransferText acImportDelim, , “TB_製品”, “c:\製品.cs […]
2018年5月16日 / 最終更新日時 : 2018年5月16日 mio_pcsupport EXCEL EXCEL で 列削除に伴うシェイプの移動(VBA) エクセルVBAで不要列を自動的に何十行も削除する場合、たとえばシェープのテキストボックスを配置してあった場合に、その テキストボックが、削除した列数に合わせて左に移動してくれないケースがある。 その場合は、列数を指定して […]
2018年5月16日 / 最終更新日時 : 2018年5月16日 mio_pcsupport EXCEL EXCEL 行の高さの自動調整(結合セルの場合) エクセルのセルにに改行された文章をVBAで出力した際に、自動的に行の高さを調整させたい場合、書式の「行の自動調整」にすることによって当該セルは高さが自動的に行数に合わせた高さになる。 ところが、そのセルが結合セルの場合、 […]
2018年5月12日 / 最終更新日時 : 2018年5月12日 mio_pcsupport ACCESS ACCESS VBA エラー発生時をイベントとしたプログラム Private Sub Form_Error(DataErr As Integer, Response As Integer) Select Case DataErr Case 3146 MsgBox “番号 […]
2018年5月1日 / 最終更新日時 : 2018年5月1日 mio_pcsupport EXCEL EXCEL アルファベットで連続データ ************************* 横方向に入力したい場合 =SUBSTITUTE(ADDRESS(1,COLUMN(A1),4),1,) セルのどこに入力しても上記のセル番地を変更する必要はありません。 […]
2018年4月16日 / 最終更新日時 : 2018年4月16日 mio_pcsupport ACCESS ACCESS VBA でダイアログボックスを使いたい時 ACCESS VBA でダイアログボックスを使いたい時に、Microsoft Office Object Library を参照設定で追加してApplication.FileDialog(msoFileDialogOpe […]
2018年3月8日 / 最終更新日時 : 2018年3月8日 mio_pcsupport ACCESS Accessでのトランザクション(SQL SERVERとの連携) Access SQl serverの連携で、Formのアクティブ時に、5つもの長い更新クエリ的なファンクションを実行させるイベント処理があるのだけれども、同一フォームを複数の人が参照し、わずかでも編集を加えた場合、「デー […]
2018年3月6日 / 最終更新日時 : 2018年3月6日 mio_pcsupport ACCESS Access クエリ フィールド 独自の並び替え ランクというフィールドで、SS S A B の順番に並べ替えたいときには、 Switch([ランク]=”SS”,1,[ランク]=”S”,2,[ランク]=”A&# […]