Access VBA

新着順 人気順

【Access VBA】テキストボックスに数字しか入力できないようにする

テキストボックスに数字しか入力できないようにする 標準モジュールに下記のコードを記述します。 Public Function chkNumber(ByVal KeyCode As Integer) As Integer Dim Flag As Boolean Flag = ((KeyCode >= 48) * (KeyCode <= 57)) _ + ((KeyCode >= 96) …

【Access VBA】ショートカットメニュー表示を特定のコントロールに限定する

ショートカットメニュー表示を特定のコントロールに限定する テキストボックスを右クリックしたときはショートカットメニューを表示し、フォームを右クリックしたときはショートカットメニューを非表示にします。 テキストボックスを右クリックしたときに表…

【Access VBA】カレンダーコントロールの作成

カレンダーコントロールの作成 ボタンをクリックするとカレンダーコントロールが表示され、カレンダーコントロールの日付をクリックすると、テキストボックスに日付が入力されます。 フォームの作成 フォームを2個用意します。 Fサンプルフォームにテキスト…

【Access VBA】SQL ServerにADOで接続する

SQL Serverにテーブルを準備する SQL Serverで「sample」という名前のデータベースの中に「Tサンプル」という名前のテーブルを用意しました。 Accessでフォームを準備する 下記のブログ記事でグラフを表示するフォームを作成しました。このときは「Tサンプル…

【Access VBA】PostgreSQLのテーブルを編集する

AccessからPostgreSQLのテーブルを編集する PostgreSQLの「売上伝票」テーブルおよび「売上明細」テーブルのデータをAccessで取得し、修正を加えたのち、PostgreSQLに保存します。 テーブルを準備する PostgreSQLで「sample」という名前のデータベースの中に…

【Access VBA】レポートのセルを結合したように見せる

レポートのセルを結合したように見せる レコードソースの準備 下のようなレコードソースを用意しました。 レポートの作成 下のようなレポートを作成しました。 詳細セクションの明細番号テキストボックスから数量テキストボックスまでをまたぐように別のテキ…

【Access VBA】SQL ServerのデータをUTF-8形式でCSVファイルに出力する

SQL ServerのデータをUTF-8形式でCSVファイルに出力する SQL ServerのテーブルのデータをAccess経由でUTF-8形式のCSVファイルに出力します。 テーブルを準備する SQL Serverで「sample」という名前のデータベースの中に「Tサンプル」という名前のテーブルを…

【Access VBA】月別グラフの作成-データのない日も表示する

月別グラフの作成-データのない日も表示する テーブルの準備 下のような2個のテーブルを用意しました。 「Tサンプル」は生データが入ったテーブルです。 「WTサンプル」はグラフに表示するデータを「Tサンプル」から取り込むためのテーブルです。 フォーム…

【Access VBA】フォームの表示位置を指定する

フォームの表示位置を指定する Windows APIを使ってフォームの表示位置を指定します。下記リンク先にて作成したカレンダーコントロールの表示位置が呼び出し元フォームのテキストボックスの位置に連動して変わるようにします。 【Access VBA】カレンダーコン…

【Access VBA】カレンダーコントロールの作成(機能追加)

カレンダーコントロールの作成(機能追加) 下記リンク先にて作成したカレンダーコントロールの「年」テキストボックスをクリックすると、20年分の「年」一覧が表示され、目的の年をクリックすると「年」テキストボックスに入力されるようにします。スピンボタ…

【Access VBA】テキストボックスに日付しか入力できないようにする

クリップボードに日付型データが入っている場合のみ日付型テキストボックスの右クリックメニューの「貼り付け」を有効にする クリップボードに日付型データが入っている場合は日付型テキストボックスの右クリックメニューの「貼り付け」を有効にし、クリップ…

【Access VBA】テキストボックスの文字数を全角2バイト、半角1バイトとして制限する

テキストボックスの文字数を全角2バイト、半角1バイトとして制限する 標準モジュールに下記コードを記述します。 Function LimitedString(inString As String, LenMax As Byte) As String ' ' ' テキストボックスに入力された文字列の,文字数を制限する。…

【Access VBA】SQL Serverのテンポラリテーブルからデータを取得する

SQL Serverのテンポラリテーブルからデータを取得する SQL Serverのテンポラリテーブルからデータを取得し、Accessのテーブルに取り込みます。 テンポラリテーブル名の末尾にセッションIDを付与して他のセッションが作成するテンポラリテーブルと重複しない…

【Access VBA】SQL ServerのデータをExcelに出力して罫線を引く

SQL ServerのデータをExcelに出力して罫線を引く SQL ServerのテーブルのデータをAccess経由でExcelに出力して罫線を引きます。 テーブルを準備する SQL Serverで「sample」という名前のデータベースの中に「Tサンプル」という名前のテーブルを用意しました…

【Access VBA】SQL ServerのテーブルをPostgreSQLにコピーする

SQL ServerのテーブルをPostgreSQLにコピーする SQL ServerのテーブルのデータをAccess経由でPostgreSQLのテーブルにコピーします。 テーブルを準備する SQL Serverで「sample」という名前のデータベースの中に「Tサンプル」という名前のテーブルを用意しま…

【Access VBA】SQL Serverのテーブルを編集する

AccessからSQL Serverのテーブルを編集する SQL Serverの「売上伝票」テーブルおよび「売上明細」テーブルのデータをAccessで取得し、修正を加えたのち、SQL Serverに保存します。 テーブルを準備する SQL Serverで「sample」という名前のデータベースの中に…

【Access VBA】「あかさたな」ボタンでフォームにフィルターをかける

「あかさたな」ボタンでフォームにフィルターをかける 「あ」ボタンをクリックするとフリガナの頭文字があ行の市区町村のレコードのみ表示されます。 フォームに「あかさたな」ボタンを配置する フォームに「あかさたな」ボタンを配置しました。名前とタグを…

【Access VBA】主キー値をSQL Serverから取得する

主キー値をSQL Serverから取り出す AccessをSQL Serverのテーブルに接続し、新規レコード保存の際、主キー値をSQL Serverで設定します。 SQL Serverにテーブルを準備する SQL Serverで「sample」という名前のデータベースの中に「Tサンプル」という名前のテ…

【Access VBA】SQL Serverからユニオンクエリの結果を取得する

2つのテーブルを合計した結果をグラフ表示する SQL Serverにある2つのテーブルを合計した結果をAccessに取り込み、グラフ表示します。 SQL Serverにテーブルを準備する SQL Serverで「sample」という名前のデータベースの中に「Tサンプル1」、「Tサンプル2…