饂飩コーディング

iOSアプリやら、Unityやら、Cocos2dやらごにょごにょ書いております

Access VBA

添付型フィールドにwavファイルを追加してボタンクリックで音を出す。

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

帳票フォームにボタン付けてもVisible設定できません。

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

Excelファイルを開かずにパスワード有無を確認するには・・・

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

VBAでリストにプリンター一覧を追加し、選択したプリンタでPDFを印刷する。

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

テキストボックスの文字色がVBAで変更できない!!!それは使用可能・編集ロックのせい

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

SQLでカウントしてそのまま表示するだけ

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

通勤時に読みたいTIPS

tsware.jp

VBAでIEを操作する時に参考になるサイト

vba-create.jp www.sejuku.net

レコード選択画面を作成してみる 少しましバージョン

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

フォームのレコードソースをExcelで出力する。

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

レコード選択画面を作成してみる ダメバージョン

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

AccessのSQLはカラム名を[]で囲んだほうが安全なのか?

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

D関数~12個覚書 簡単な操作ならこいつらで!注意点は返り値が一つでレコード順は無視してるところ

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

Access VBA VBE画面でスニペットっぽくコーディングしてみる。

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

accessでナビゲーションウィンドウが小さくなった時。

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

me.[商品名]とme.商品名の違いは?  me. me!の違いは?

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

日付から曜日を取得する

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

Access VBAでSQLで日付を扱うときは#使おう

sorceryforce.com

Accessのテクストボックスで日付に曜日をつけて日付比較する

テキストボックスに日付をテキストでセットする場合、 規定値でFormat(Now(),"yyyy/mm/dd(aaa)")とすれば、曜日を日付の後ろに セットすることができますが、デートピッカーで変更すると曜日が消えてしまいます。さらに、日付の大小を比較するともちろんテキ…

Access ショートカット

AccessとVBEの切り替え Alt + F11