Microsoft Access 掲示板

Microsoft Access 掲示板

標準フォームでコントロール名を使用する方法

2 コメント
views
4 フォロー

はじめまして。

目的

Access で次の2つフォームを作成しました。

  1. メインフォーム（ボタンがあり、クリックすると2のフォームを開きます。）
  2. 新規登録フォーム（登録ボタンがあります。）

2つのフォームで使用するボタンは、フォントサイズ、ボタンの色等すべて決まっております。

今は、ボタンの数が少ないですが今後増える予定です。

そのため、フォントサイズ、ボタンの色等を指定する標準モジュールを作成しました。

VBA

標準モジュール（モジュール名：Module1）

Option Compare Database
Option Explicit
Public Sub initButton()
    Dim Chrsize As Integer
    Chrsize = 10
        With button1.FontSize = Chrsize
           .FontSize = Chrsize
           .BackColor = RGB(191, 191, 191)
        End With
End Sub

フォームモジュール

Private Sub Form_Load()
        Call Module1.initButton
        button1.Caption = "01_Japanese"
End Sub

エラーメッセージ

変数が定義されておりません。とエラーメッセージが表示され、標準モジュールのbutton1が選択されました。

質問したい事

標準モジュールにコントロール名を使用したいと思っております。
よろしくお願いいたします。

バージョン

Access 365
OS:Windows10

MASA2021
作成: 2021/08/09 (月) 22:40:14
通報 ...
1
hatena 2021/08/10 (火) 10:09:41

引数で対象コントロールを渡せはいいでしょう。

標準モジュール

Public Sub initButton(btn as Control)
    Const Chrsize = 10
    With btn
        .FontSize = Chrsize
        .BackColor = RGB(191, 191, 191)
    End With
End Sub

フォームモジュール

Private Sub Form_Load()
    Call Module1.initButton(Me.button1)
    Me.button1.Caption = "01_Japanese"
End Sub
2
MASA2021 2021/08/10 (火) 22:36:36 d4978@eaf17

解決いたしました。
ありがとうございました。