先日質問した「オブジェクト（コントロール）の名前を変更したい」
http://okwave.jp/qa/q7896863.html?by=datetime&order=DESC
の応用で、
前回はDexMachina様にご回答いただいて解決したのですが今度は違う部分で詰みました。
フォームに乗っかっているコマンドボタンの名前を変更しつつ、
インデックスを付けていこうと思うのですが
**************************************
Sub オブジェクト名変更()
Dim ctl As Control
Dim i As Long
Dim f As String
f = "フォーム1"
i = 1
DoCmd.OpenForm f, acDesign 'デザインビューで開く
For Each ctl In Forms(f).Controls
If ctl.ControlType = acCommandButton Then
Forms(f)!Controls(ctl.Name).Caption = i
Forms(f)!Controls(ctl.Name).Name = i
End If
Next ctl
DoCmd.Close acForm, "フォーム1", acSaveYes '保存する
End Sub
**************************************
のControls(ctl.Name).でエラーになります。
エラー内容は
実行時エラー2465
指定した式で参照されている’ Controls’フィールドが見つかりません。
です。
イミディエイトで?ctl.Nameして見ると
コマンド0となるので問題ないと思うのですが文法がおかしいのでしょうか？
Forms(f)!コマンド0.Caption
にすると問題なく動作します。
ご回答よろしくお願いします。
クリックイベントなのに、2回クリックしないとフォームが閉じないです。
フォームに閉じると言うコマンドボタンがあり、クリックイベントで
Private Sub cmd_閉じる_Click()
DoCmd.Close acForm, Me.Name
End Sub
としてるのですが、なぜか1回ボタンを押しただけではフォームが閉じません。
2回目押した時にフォームがとじます。
ダブルクリックでも閉じます。
Private Sub cmd_閉じる_Click()
'DoCmd.Close acForm, Form_Fフォーム.Name
End Sub
のように、フォーム名を指定すると1回のクリックで閉じます。
しかしMe.Nameだと2回目じゃないと閉じない理由がわかりません。
Fフォームは他フォームから
DoCmd.OpenForm Form_Fフォーム.Name, acNormal
で開いたから2回クリックしないと閉じないのでしょうか？
アクセスのテーブル1に何件レコードがあるかをvbaのDCountで取得したいのですが
Sub a()
MsgBox DCount("テーブル1")
End Sub
すると、引数は省略できません。(Error 449)になります。
フィールドは件数あり、レコードが入ってたり入ってなかったりするし、主キーはありません。
アクションクエリの削除クエリですべてのレコードを削除したりするので
レコード件数が0件なのか、レコードがはいってるかをDCountで取得できればなー
と思うのですが、どうすればいいでしょうか？
以前http://okwave.jp/qa/q7848134.html
で質問したものです。
2名の方ご回答ありがとうございました。
頂いたご回答を実行するとエラーになるので教えてください。
新規にフォームを作り、タブとコマンドボタンを置き、
Sub delPage()
Dim myForm As String
Dim frm As Form
Dim i As Long
myForm = "フォーム1"
DoCmd.OpenForm myForm, acDesign
Set frm = Forms(myForm)
For i = frm!タブ0.Pages.Count - 1 To 2 Step -1
frm!タブ0.Pages.Remove (i)
Next
DoCmd.Close acForm, myForm, acSaveYes
Set frm = Nothing
End Sub
を実行すると、ページが消えフォームが閉じられますが、再度フォームを開いた時に、
「イベントプロパティに指定した式 クリック時 でエラーが発生しました:
Microsoft Office AccessがOLEサーバーまたはActiveXコントロールと通信指定いるときにエラーが発生しました。」が出てしまいます。
コードを消したり、タブを削除してもこのコードはずっと出るようになってしまいました。
（フォームにコマンドボタンしかなくても）
なぜこのコードを実行すると、このようなエラーがでるのでしょうか？
http://www.accessclub.jp/bbs2/0033/beginter10779.html
をみると、
「OCX/ActiveX コントロールを貼り付けたが、不要になって外すなどして、無意味な参照設定が残ることがあります。」
となっていますが、コマンドボタンとタブとページだけで、ActiveX コントロールは貼りつけてないし、
参照設定は何もいじってません。
新規にｍｄｂファイルを作り、同じ事をすると同じエラーメッセ―ジが出ます。
当方ｗｉｎ７、オフィス２００７です。
ご回答よろしくお願いします。
