Access総合相談所 其の21 【桐にしとけ】at BSOFTAccess総合相談所 其の21 【桐にしとけ】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト609:名無しさん＠そうだ選挙にいこう 09/07/14 00:43:17 >>598 ぶっちゃけ、コードが欲しいんだろ? Private Sub コマンド0_Click() Dim Ctrl As Control Dim i As Long With CurrentProject.AllReports For i = 0 To .Count - 1 DoCmd.OpenReport .Item(i).Name, acViewDesign, , , acHidden For Each Ctrl In Reports(.Item(i).Name).Controls If Ctrl.ControlType = acLabel Then If Ctrl.Caption = "ABC" Then '比較対照（ABC）はテキストボックスにしておくとよい Ctrl.Caption = "XYZ" '代入対象（XYZ）はテキストボックスにしておくとよい End If End If Next Ctrl DoCmd.Close acReport, .Item(i).Name, acSaveYes Next i End With End Sub こんな感じか? 610:名無しさん＠そうだ選挙にいこう 09/07/14 09:54:17 win2000 ACC2000 アクセス起動時にアプリケーションを全画面表示したいのですが、どのようなコードを書けばよいでしょうか フォームやテーブルの最大表示は出来るのですが、アクセス自体を全画面表示に出来ません 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch