フォームモジュールと標準モジュールで同じ変数を使って値を行き来したい場合、
標準モジュールにpublicで宣言するしかないのでしょうか？
【フォームモジュール】
Private Sub cmd_コマンド0_Click()
test = "aaa"
Call 標準モジュールtest
End Sub
【標準モジュール】
Public test As String
Sub 標準モジュールtest()
MsgBox test
End Sub
でいいのですか？
Do～Loopステートメントで使わな方が良いステートメントとは？
Do～Loopステートメントで「古いから使わない方がよい」、と言われたことがあるのですが
どれの事だか忘れてしまいました。
Sub test()
セルのA1～A10に1～10を入力する
i = 1
Do While i < 11
Worksheets("Sheet1").Cells(i, 1).Value = i
i = i + 1
Loop
End Sub
これは一般的だから使ってもよいと思います。
Sub test()
セルのA1～A10に1～10を入力する
i = 1
Do Until i = 11
Worksheets("Sheet1").Cells(i, 1).Value = i
i = i + 1
Loop
End Sub
これもよく見かけます。
Do While,Do Until以外にもloopステートメントってありますか？
あと使わない方が良いステートメント、私の勘違いでなければ教えてください。
(access 2003)
（メインとサブがあり、メインフォームです。）
フォームのチェックボックス(yes/no型)をコントロールの種類変更よりトルグボタンに変更し、
トルグボタンで入力しています。
yesなら、「仮」 noなら「普通」としたいと思い、下記の式を試して見ましたが、下記のようになります。
ページ移動ごとに凸凹は変わるのですが、トルグボタンに表記させている文字が「仮」から変わりません。
ボタンを押した時だけ「普通」に変わるのですが、ページを移動すると今度は「普通」ばかりの表記になってしまいます。
よろしくお願い致します。
Private Sub T2伝票仮_AfterUpdate()
If Me![T2伝票仮].Value = True Then
Me![T2伝票仮].Caption = "仮"
Me![T2伝票仮].ForeColor = 255
Else
Me![T2伝票仮].Caption = "普通"
Me![T2伝票仮].ForeColor = 16711680
End If
End Sub
フォームにタブコントロールを置いて、ページを６つにして、コマンドボタンを置きました。
３から６ページをＶＢＡで削除する事は可能でしょうか？
（１・２は残したいです）
「ページを削除する」というＶＢＡコードがわかりません。
Private Sub コマンド7_Click()
Dim ctl As Control
For Each ctl In Forms(Me.Name).Controls
If ctl.ControlType = acPage Then
Debug.Print ctl.Name
'ここでページを削除したい
End If
Next ctl
End Sub
あと、もしかしてデザインビューでないと削除できないですか？
であれば、DoCmd.OpenForm Me.Name, acDesign
を追加しようと思っています。
ご回答よろしくお願いします。
フォームにタブコントロールを置いて、ページを６つにして、コマンドボタンを置きました。
３から６ページをＶＢＡで削除する事は可能でしょうか？
（１・２は残したいです）
「ページを削除する」というＶＢＡコードがわかりません。
Private Sub コマンド7_Click()
Dim ctl As Control
For Each ctl In Forms(Me.Name).Controls
If ctl.ControlType = acPage Then
Debug.Print ctl.Name
'ここでページを削除したい
End If
Next ctl
End Sub
あと、もしかしてデザインビューでないと削除できないですか？
であれば、DoCmd.OpenForm Me.Name, acDesign
を追加しようと思っています。
ご回答よろしくお願いします。
エクセルなら、
Sub Sample01()
Application.StatusBar = True
Application.StatusBar = "あああ"
End Sub
で、左下に文字を表示させられますが、
同じコードをアクセスで実行すると、「StatusBar 」の部分が、コンパイルエラーになります。
なので、
Sub Sample02()
DoCmd.StatusBar = True
DoCmd.StatusBar = "あああ"
End Sub
として見ましたが、結果は同じでした。
http://okwave.jp/qa/q7837097.html
でも質問した者ですが別の事がやりたくなってきちゃいました。
と言うのは、
ページのインデックスと同じ番号をページ名とページの表題に設定したいと思いました。
フォームにタブ0を置き、ページを５つくらいにしました。
その際、ページインデックスが0の時にページの名前はページ1になり、
ページインデックスが1の時にページの名前はページ2になり・・・
とひとつずつずれてるのを前回の質問で学習しました。
そしてさらにコマンドボタンを置いてそのコマンドボタンを押下すると
ページインデックスの値を
ページ名とページの表題に設定するＶＢＡコードを作ったのですがエラーになってしまいます。
フォームモジュールに
**********************************************************
Private Sub コマンド_Click()
'SetFocusメソッドはデザインビューでは使えない
Dim ctl As Control
Dim i As Long
DoCmd.OpenForm "フォーム1", acDesign
For Each ctl In Forms("フォーム1").Controls
If ctl.ControlType = acPage Then
Forms("フォーム1").タブ0.Pages(i).Name = "ページ" & i
Forms("フォーム1").タブ0.Pages(i).Caption = i
i = i + 1
End If
Next ctl
End Sub
**********************************************************
としました。
これを実行すると
Forms("フォーム1").タブ0.Pages(i).Name = "ページ" & i
の部分で
実行時エラー 29054
「指定のコントロールを追加 名前の変更 または削除することはできません」
となります。
終了（E）しか選択できない状態でデバッグ（D）は選択できないです。
でも、これと全く同じコードを標準モジュールに貼り付けて実行すると問題なく動きます。
なぜフォームモジュールだとエラーになるのでしょうか？
２００３でも２００７でもエラーになります。
ご回答よろしくお願いします。
