【Access】リストボックスに値を設定する（値リスト）

リストボックスに値リストを使って値を設定する方法です。

例

たとえば、このようなフォームにリストボックス（listFruits）が貼り付けてあるとします。


このリストボックスに値リストで値を設定するには次のように記述します。

Private Sub Form_Load()

    '値集合タイプ
    Me.listFruits.RowSourceType = "Value List"
    
    '値集合ソース
    Me.listFruits.RowSource = "みかん;バナナ;りんご;パイナップル;いちご"
    
End Sub

値リストの集合ソースには、項目を「;」（セミコロン）で区切って設定します。

Read More

【Access】コンボボックスの値を取得する

コンボボックスの値を取得する方法です。

値リストタイプの場合

まず、値集合タイプが「値リスト」の場合ですが、この場合はコンボボックスのValueで取得することが出来ます。

『【Access】コンボボックスに値を設定する（値リスト）』の例でいうと、以下のようにすれば取得できます。

Me.comboBloodType.Value

テーブル／クエリタイプの場合

次に、値集合タイプが「テーブル／クエリ」の場合ですが、この場合は取得したいデータの種類によって方法が変わってきます。

Read More

【サクラエディタ】PPAマクロを使ってみる

サクラエディタでは、PPAマクロというものが使えるということで今日試してみました。

まず、PPAマクロを使うためにはPPA.DLLが必要ですので、下記のサイトからダウンロードしてきます。

http://ht-deko.com/junkbox.html#PPA


PPA_124.LZHというのをダウンロードしてください。

こちらのほうにDLLが入っています。

ダウンロードした「ppa_124.lzh」を解凍すると中に「DLL」というフォルダがあります。

Read More

【100均】ダイソーの200円自転車用空気入れを買ってみた

この前、ダイソーに行ったところ、こんなものを見つけてしまいました。


自転車用の空気入れです。



値段は２００円します。


100均の空気入れってどうなんだ？と思いましたが、試しに買ってみました。



写真では片手になってますが、実際にはペダルに足を乗せ、両手でポンプを押します。



バルブは、日本で一般的な英式バルブに対応していて、アダプターも普通の空気入れと一緒です。


使った感触ですが、思ったより楽に空気を入れることが出来ます。もちろんちゃんとした空気入れに比べたら１回に入る空気の量が少ないので、その分ピストンの回数も多くなりますが、でも全然普通に空気入れとして使えます。２００円でここまで使えれば十分です。サイズもコンパクトなのでサイクリングの時にカバンに入れて持ち運びも出来そうです。

Read More

【Access】コンボボックスに値を設定する（フィールド リスト）

コンボボックスにテーブルやクエリーのフィールド名（フィールド リスト）を設定する方法です。

例

たとえば、このようなフォームにコンボボックス（comboFieldList）が貼り付けてあるとします。


このコンボボックスに次のテーブルのフィールド名を設定するには下記のように記述します。

Private Sub Form_Load()

    '値集合タイプ
    Me.comboFieldList.RowSourceType = "Field List"
    
    '値集合ソース
    Me.comboFieldList.RowSource = "T_血液型"
    
End Sub

Read More

【Access】コンボボックスに値を設定する（テーブル/クエリ）

コンボボックスにテーブルまたはクエリを使って値を設定する方法です。

例

たとえば、このようなフォームにコンボボックス（comboBloodType）が貼り付けてあるとします。


このコンボボックスに次のテーブルの値を設定するには下記のように記述します。

Private Sub Form_Load()

    '値集合タイプ
    Me.comboBloodType.RowSourceType = "Table/Query"
    
    '値集合ソース
    Me.comboBloodType.RowSource = "T_血液型"
    
    '列数
    Me.comboBloodType.ColumnCount = 2
    
    '列幅
    Me.comboBloodType.ColumnWidths = "0cm;2cm"
    
End Sub

ポイントは「列幅」で、１列目を0cmとして２列目だけを表示している点です。こうすることでテーブルのIDではなく実際の血液型がコンボボックスに表示されるようになります。

Read More

【Access】コンボボックスに値を設定する（値リスト）

コンボボックスに値リストを使って値を設定する方法です。

例

たとえば、このようなフォームにコンボボックス（comboBloodType）が貼り付けてあるとします。


このコンボボックスに値リストで値を設定するには次のように記述します。

Private Sub Form_Load()

    '値集合タイプ
    Me.comboBloodType.RowSourceType = "Value List"
    
    '値集合ソース
    Me.comboBloodType.RowSource = "A;B;O;AB"
    
End Sub

値リストの集合ソースには、項目を「;」（セミコロン）で区切って設定します。

Read More