この度はてなブログから新規ドメインでのブログに引越ししました。新ブログ https://scombu.com 新ブログ名 すこんぶこれまで同様よろしくお願いいたします。なおはてなブログの記事はそのまま残しておくと共に はてなブログの記事からリダイレクトで自動転…

Keychron K6 購入時のメモ どのくらいの日数でキーボードが手元に届くか？結論からいうと発送から３日で都内の自宅まで届きました！！ 日付 所要日数 注文日 2021/10/04 - 発送日 2021/10/11 7 配達完日 2021/10/14 3 オンラインショップでの注文は 2021/10/…

Keychron K6 メカニカルキーボードを購入した フルサイズキーボードの65％の大きさで小さいからマウスへの手の移動が短くてすむ。 英語配列だからプログラミングの時の記号入力が少しらく。 そもそも自分の手が小さいのでフルサイズキーボードよりも小さいキ…

VBAでPDFファイルを印刷する！で検索すると確かに情報は沢山でてきます。 しかし今回やりたいのは「同期印刷」複数のPDFがフォルダに入っていてそれをFSOでなんとかしながら ループで各PDFファイルを印刷処理するとループががぁ～っと流れてしまい、 適切なS…

数値変数にInputBoxから数値を入力させると処理終了なんですが、 数値以外を入力すると変数に代入する時点でエラーになり それをトラップして三秒待ったのちに再度エラーが発生した処理を 行う流れです。リトライ回数を決めればある程度使えそう。 その時は…

ごめんなさい、丸パクリです なにに使えるかって、機器設定用の番号読み上げとか入力値チェックで読み上げれば ダブルチェックできる！ Private Sub txt_test1_AfterUpdate() With CreateObject("SAPI.SpVoice") Set .voice = .GetVoices.Item(0) .Rate = 5 …

Accessで音を鳴らすにはいくつか方法がありますよね。 １，フォームにwavファイルを挿入して以下の様にする oleSound.Action = acOLEActivate 参考にさせていただきました。 tsware.jp ２，API使って音を出す方法 ・mciSendString ・PlaySoundなどなどそこで…

Option Compare Database Option Explicit Private Sub コマンド0_Click() Dim ieobj As InternetExplorer Set ieobj = New InternetExplorer ieobj.navigate ("https://kakaku.com/kaden/washing-machine/ranking_2110/hot/") ieobj.Visible = True 'Webブ…

はい、帳票フォームにボタンつけたら色々できそうですよね。 レコードの内容によってボタンの表示・非表示をコントロールしたいですよね。はい！できません。まぁ、レコードごとにボタンみたいなコントロールつけて管理してたら システム不安定になるからで…

Excelでセルに=[Bファイル]Sheet1!$A$1 と書いてExcelファイルを開かずに他のファイルのセル値を取得することができますよね？ それをexcelVBAで下の様に書くと、パスワードがかかったファイルは＃Ref!になって検出できます。 Sub ボタン1_Click() Dim A As …

参考にさせていただきました。 note.comwww.bayashita.com Public Sub excelSample() Dim xlApp As Object 'Excelアプリ' Dim xlBook As Object 'Excelブック' Dim xlSheet As Object 'Excelシート' Set xlApp = CreateObject("Excel.Application") xlApp.Vi…

参考にさせていただきました。 officetanaka.net Sub xpdf_pdfinfo_getInformation() Dim WSH, wExec, sCmd As String, Result As String Set WSH = CreateObject("WScript.Shell") ''(1) sCmd = "dir C:\" sCmd = "C:\Users\xxxx\Desktop\test\pdfinfo.exe …

以下の感じでリストにアイテムを追加する。 Private Sub Form_Load() 'フォーム読み込み時 Dim prt As Printer 'すべてのプリンタを列挙してコンボボックスの値集合ソースに追加 For Each prt In Application.Printers Me.リスト10.AddItem prt.DeviceName N…

WikiってみるとAS400のCLにも影響をうけているらしいので とっつきやすいかも？ tonari-it.com

vbabeginner.net

はい！タイトルはさておき、連結フォームは危険。いみわかんないｗ Accessってなんだかなぁ～と思う今日この頃。てなわけで非連結フォームの導入部分の記述をします。いくつかやり方はあるらしいんだけど、 詳細部分あるボタンをクリックして そのボタンから…

参考になったサイト様 感謝！ www.relief.jpこちらにサイトに掲載されている 一覧表がとても参考になりました。 テキストボックスの使用可能、編集ロックの組み合わせは それぞれ二種類で合計四種類。それぞれ設定した四つのテキストボックスに それぞれ前景…

コンボボックスで商品マスターの大分類、中分類、小分類でデータを絞り込んで そのレコード数をSQLでカウントするだけの例です。目的はデータを絞り込んだレコード数を知りたいだけなので、 効率的なやり方は他にあるとおもいますが、あえてSQL使ってやって…

tsware.jp

vba-create.jp www.sejuku.net

さて、レコード選択画面を作成してみるダメバージョンの記事ではコンボボックスで選択するテーブル項目にNullがはいっていると期待していたレコード選択ができませんでした。そこで！！今回は違う方法でレコード選択してみましょう。手順１，Nullが存在して…

「Accessのフォームから、データをかんたんにExcelに出力する方法」～VBAで関数にしちゃいましょ♪～ | AccessからVBAでEXCELへ帳票出力する｜アズビーパートナーズ 参考にさせていただきました。 'Excelにデータを出力 Function ExcelData(frm As Form) On E…

上の商品マスターを使ったデータ抽出画面の作成をしてみましょう。下のフォームの様に、左上のチェックボックスを外した状態であれば 商品説明１，商品説明２がブランクのレコードも含めて画面に表示し コンボボックスで絞り込みを可能にします。 Like (Nz([…

はい！またドはまりしました。まぁ、もともとカラム名って二バイト文字で設定するものじゃないのは今までの経験上 それが当然だとおもっていたんですが、Accessではテーブルカラムを日本語で作成できますよね。 当然のようにテーブル構造が日本語で命名され…

www.sejuku.netofficek.net

Ｄ関数は集計したり検索したりする１２個のApplication Object Methodがあります。 あぷりけーしょんめそっど？まぁ、Access自体に包括されている便利なものでしょうかね？ ご存じの方ご教授いただけると幸いです。 Dlookup テーブルの値を取得 Davg 平均 Dc…

標準モジュールにSnipetModuleって名前でモジュール追加して 下のプロシージャを記述しておく。 VBEのイミディエイト画面で「sni」と入力してCtrl+Spaceで 選択できるので、まぁスニペットっぽく使えるかな？ 先人の知恵をお借りしました。へへへ まぁ、複数…

デザインビューでナビゲーションウィンドウが小さくなり過ぎて大きく出来なくなる事があります。 その時はF11で一度最小化してマウスを合わせて大きくしましょう。メモでした

me.[商品名]とme.商品名の違いは？ [ｘｘｘｘ] 基本は同じ me.[商品名]のような使い方は商品名23の様に数字・日本語が名前に混在して入っている場合に使う me. me!の違いは？ 掲示板では 「Me.」は「Meのプロパティとして構成しているラベルコントロールのプ…

これで日付を渡せば、「月」「火」「水」を取得できる。 「月曜日」と曜日もほしかったらfalseにする。 WeekdayName(Weekday(Date), True) kosapi.comdekiru.net