Access2000のデータベースの見た目を改善したいのですが、自作のボタンを(自分でラベルを作り「クリック時のイベントプロージャ」で実行させる)クリックしたときに、見た目上へこませたいのですが、(ボタンウィザードで作られるような、クリックするとへこんで、離すとVBAが実行される)どのようなVBAを追加したらよいでしょうか?
ボタンウィザードで作ると背景の色が変えられないので、上記のようにしています。もしへこますのが難しいようなら、クリックしたときに背景色が変わるような設定でも良いかと思っていますが如何なものでしょうか。
ちなみに自作の抽出ボタンの一例です。
*抽出した結果を印刷するボタン[cmb抽出データを
毛筆書体で横書印刷プレビュー]
~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Sub cmb抽出データを毛筆書体で横書印刷プレビュー_Click()
If Me.FilterOn = True Then
DoCmd.OpenReport "R葉書HGP祥南行書体横書",_
acViewPreview, , Me.Filter
End If
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~
汎用性があり、どのボタンにも追加できるようなVBAコードがあればればよいのですが...よろしくお願い致します。
データベースはAccess2000、OSはWindows98SEです。
No.1ベストアンサー
- 回答日時:
ラベルの立体表示プロパティの値を操作すればよいのではないかと思います。
Private Sub ラベル1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.ラベル1.SpecialEffect = 2
End Sub
Private Sub ラベル1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.ラベル1.SpecialEffect = 1
End Sub
tomo-yukiさん返事が遅くなりすみません。
回答ありがとうございます。
試してみたらうまくいきました。助かりました。
ありがとうございました。またの質問の時には
よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- Visual Basic(VBA) Sheet2の日付をキーにオートフィルターで2023年1月のデータを抽出し、Sheet3へ書き出すた 2 2023/03/06 23:57
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Visual Basic(VBA) VBA 画面上のカーソルに文字数字を入力するコードを教えて下さい 1 2022/10/30 10:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
MS-DOSコマンドプロンプトを途...
-
HTMLファイルから、特定の部分...
-
エクスプローラーで「2つの条件...
-
SQLを駆使したデータ抽出ってど...
-
<SQL>条件付きで最小値レコード...
-
抽出したデータを修正して元の...
-
Accessデータベースで抽出した...
-
アクセス クエリ-で空白以外の...
-
GROUP BYを行った後に結合した...
-
Oracleでの文字列連結サイズの上限
-
SQL文で右から1文字だけ削除す...
-
GROUP BYを使ったSELECT文の総...
-
カレントレコードが無い事を判...
-
レコードが存在しなかった場合
-
Accessで別テーブルの値をフォ...
-
select句副問い合わせ 値の個...
-
Access終了時の最適化が失敗?
-
他のテーブルを参照した値はupd...
-
ADO VBA 実行時エラー3021
-
DataGridViewにてセル以外をク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
抽出したデータを修正して元の...
-
エクスプローラーで「2つの条件...
-
<SQL>条件付きで最小値レコード...
-
ACCESSのクエリで同じSQL文だが...
-
ACCESSの集計クエリで3件ある...
-
アクセス クエリ-で空白以外の...
-
MS-DOSコマンドプロンプトを途...
-
エクセル関数 文字(ハイフン...
-
SQLを駆使したデータ抽出ってど...
-
SQLServerからエクセルにデータ...
-
SQL文の記述について
-
空白文字とスペースの検索
-
SQLサーバのデータをエクセルに...
-
PS2のBGM抽出
-
商品テーブルからカテゴリ別の...
-
LIKE *ABC* が ACCESSでは使え...
-
エクセルデータの末尾の改行を...
-
ACCESSでのラベル作成
-
Excel関数:別テーブルから条件...
-
Excel2007:Microsoft quaryで外...
おすすめ情報