• 締切済み

access　setfocusについて

いつもお世話になっております。 いろいろ調べたのですが行き詰っておりまして ご教授お願いします。 下記記述でsetfocusでエラーになってしまいます。 Private Sub コマンド_Click() If IsNull(Me.テキストボックスコントロール名) Then MsgBox "未入力です" Me.テキストボックスコントロール名.SetFocus End If テキストボックスの処理記述 End Sub https://www.moug.net/tech/acvba/0030005.html こちらを参考にしました。 よろしくお願いします。

  • ylls
  • お礼率28% (15/53)

みんなの回答

回答No.4

コントロールの名前は プロパティの「名前」で指定してください。 コントロールソースは全く別の用途です。 新規でテキストボックスと、ボタンを作成して質問のコードをコピペで正常動作します。 「名前」をコントロールソースに指定されていたということであれば、その他のプロパティで余計な設定、もしっくは間違った設定をされている可能性があります。 テキストボックスを作り直して、「名前」だけを入力して、コードが動くか確かめてください。

回答No.3

エラーメッセージは文章そのままの意味ですね・・・ 理由は指定したコントロールがSetfocusをサポートしていない = フォーカスできないコントロールである可能性が高いです。 コードの入力画面で、 Me.テキストボックスコントロール名.Set ここまで手入力した時にSetfocusが補完機能の候補に残っていますでしょうか？ 残っていない場合にはコントロール名が間違っているか、テキストボックスではない可能性があります。 フォーカスさせたいテキストボックスのプロパティの「名前」をしっかり確認してください。 もしかして、テキストボックスのプロパティの「名前」に 「Me.テキストボックスコントロール名」 としていたりしませんよね？ テキストボックスの名前には「テキストボックスコントロール名」と「Me.」は入れてはいけません。

ylls
質問者

補足

>ここまで手入力した時にSetfocusが補完機能の候補に残っていますでしょうか？ はい、保完候補にのこっております。 >もしかして、テキストボックスのプロパティの「名前」に >「Me.テキストボックスコントロール名」 >としていたりしませんよね？ はい、確認しましたがプロパティの「名前」にはMe.は入っておりません。 追記 補足ですが、テキストボックスのプロパティで「名前」と「コントロールソース」がありますが どちらを使うのが正しいのでしょうか？ 「名前」の方を使ったところ 実行時エラー94 NULLの使い方が不正ですとなりました。 質問時は「コントロールソース」を指定していました。 皆様お手数をお掛けしますが、宜しくお願いします。

  • chayamati
  • ベストアンサー率41% (254/607)
回答No.2

「テキストボックスコントロール名」この名称でテキスとボックスが フォーム上に配置されていますか？

ylls
質問者

補足

回答遅れまして申し訳ありません。 はい、フォーム上に配置されています。 宜しくお願いします。

回答No.1

コード自体は問題ないようです。 setfocusでエラーが出るのであれば何らかの理由でフォーカスが移動できないんじゃないですかね？ テキストボックスのプロパティで　「使用可能：いいえ」になっているとかじゃないでしょうか？ また、このような質問の場合、何というエラーが出るのかも記載したほうがよいですよ！

ylls
質問者

補足

ご回答ありがとうございます。 「使用可能：はい」となっております。 エラーメッセージですが 実行エラー488 オブジェクトはこのプロパティまたはメソッドをサポートしておりません となります。 よろしくお願いします。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • Access2010 SetFocusが当たらない

    Access2010です。 VBAにて、あるフォームの、デザイン上、「詳細」の中に存在しているテキストボックスにSetFocusでフォーカスを当てようと思ってます。 １　フォームロード時、フォームの「詳細」は非表示（当然、テキストボックスも非表示） ２　ボタンクリック時、フォームの「詳細」を表示し、テキストボックスにフォーカスを当てる という動作をしているのですが、２でテキストボックスにフォーカスがフォーカスが当たりません。どうしたらフォーカスが当たるのでしょうか？ 以下、コードです。 Private Sub Form_Open(Cancel As Integer) Me.詳細.Visible = False End Sub Private Sub cmdボタン_Click() Me.詳細.Visible = True 'テキストボックスにフォーカスを当てる Me.txtテキスト.SetFocus End Sub よろしくお願いいたします。

  • Access　VBA

    Access2003を使用しています。 単純な質問かもしれませんがよろしくお願いします。 ログイン画面を作成しておりログイン自体はできたのですが、ログインしたときに ログイン画面を自動的に閉じたいのですが、うまくいきません。 現在の仕様では、ログイン画面(frm_ログイン)とメイン画面(frm_main)があり ログインに成功するとメイン画面が開くようになっています。 ーー以下VBAコードーー Private Sub rogin_Click() Dim a If IsNull(Me.[UserName]) Then MsgBox "IDが未入力です" Me.[UserName].SetFocus ElseIf IsNull(Me.[password]) Then MsgBox "パスワードが未入力です" Me.[password].SetFocus Else a = DLookup("パスワード", "tbl_ユーザー", "ユーザー名='" & Me.[UserName] & "'") If IsNull(a) Then MsgBox "該当する ユーザー名 は存在しません" Me.[UserName].SetFocus ElseIf StrComp(a, Me.[password], vbBinaryCompare) = 0 Then On Error GoTo Err_rogin_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_main" DoCmd.OpenForm stDocName, , , stLinkCriteria Else MsgBox "パスワードが違います" Me.[password].SetFocus End If End If Exit_rogin_Click: Exit Sub Err_rogin_Click: MsgBox Err.Description Resume Exit_rogin_Click End Sub ーー以上ーー 長くなって申し訳ないのですが、どのようにすればログイン後にログイン画面（frm_ログイン)を閉じるようにできるのでしょうか？ よろしくお願いします。

  • ACCESS

    現在以下のシステムを検討しています。 (1)ログインフォームと(2)トップフォーム(3)注文フォームが別々に存在しており、 (1)ログインフォームは 　・ログインID入力用のテキストボックスが一個 　・パスワード入力用のテキストボックスが一個 　・ログインボタンが1個 　設置されています。 以下はログインボタンクリック時に動作するプログラムです。 Private Sub cmdLogIn_Click() Dim Res If IsNull(Me.txtID) Then MsgBox "IDを入力してください" Me.txtID.SetFocus Exit Sub End If If IsNull(Me.txtPass) Then MsgBox "パスワードを入力してください" Me.txtPass.SetFocus Exit Sub End If Res = DLookup("パスワード", "T顧客", _ "顧客ID='" & Replace(Me.txtID, "'", "''") & "'") If IsNull(Res) Then MsgBox "該当するIDはありません。正しいIDを入力してください。" Me.txtID.SetFocus Exit Sub End If If Res = Me.txtPass Then DoCmd.OpenForm "注文フォーム" '----ID,pass合致でフォームを開く。 Me.txtID = Me.txtID2 Me.txtPass = Me.txtPass2 DoCmd.Close acForm, "Fログイン" Else MsgBox "パスワードが異なります。", vbOKOnly + vbCritical Me.txtPass.SetFocus End If End Sub (2)トップフォームは 　商品のリストが画像付き（商品一個につき画像一個） 　で示され、画像を押すと商品別に作成してある注文フォームに進むのですが、 　ログイン完了していないとログインを促すメッセージが出て注文フォームが開かないよう 　にしています。 　トップフォームにはテキストボックスを２個不可視の状態で配置しております。 　以下は商品画像に埋め込んであるコマンドです。 Private Sub 商品画像 1_Click() Dim Res If IsNull(Me.txtID) Then MsgBox "ログインしてください" Exit Sub End If If IsNull(Me.txtPass) Then MsgBox "ログインしてください" Exit Sub End If If Res = Me.txtPass Then DoCmd.OpenForm "商品名" '----ID,pass合致で注文フォームを開く。 End If End Sub 　 (3)注文フォームは 　・数量選択のコントロールボックス 　・注文ボタン 　・キャンセルボタン 　を設置しています。 【以下が質問内容になります】 「ロフインフォーム」内の入力値（テキストボックスに入力されていたIDやパスワード値）を注文フォーム内のテキストボックスに取得させる（あるいは設定させる）にはどのようにすればよいのでしょうか？ 注文フォームにはテキストボックス２個（ ID入力用と Password入力用)を不可視で配置しています。こちらのテキストボックス２個については手動入力は行わず、注文フォームが開いた際にログイン時の ID, Paswordがテキストボックスの中に自動的に入力あるいは設定されるようにしたいのですが、どのようにすればよいかがわかりません。 因みにログイン ID,Passwordは複数セットあり、ユーザーがログイン完了後、注文フォームを閉じるまでの間は 同一のID, Paswordの内容を保持したいと考えています。 上記の中にID,Paswordを保持させるようなコードを入れることは可能でしょうか？ 注文フォームを開く際のコードに何か入れることができるのではないかと考えていたの ですが、よい案が浮かびません。 他によいやり方などがあれば教えていただけますでしょうか？ よろしくお願いします。

  • Accessログイン権限

    Access2003を使用しています。 ログイン画面を作成しておりログイン自体はできたのですが、 管理者とそうでないユーザーに分けて、ログイン時に管理者であればfrm_mainを、 そうでなければfrm_main2を開くようにしたいのですがうまくいきません。 現在の仕様では、ログイン画面(frm_ログイン)とメイン画面(frm_main、frm_main2)があり テーブル名：tbl_ユーザー フィールド名：ユーザー名、パスワード、アカウント アカウントで"1"が管理者、"2"が一般ユーザー このようになっています。 ーー以下VBAコードーー Private Sub rogin_Click() Dim a If IsNull(Me.[UserName]) Then MsgBox "ユーザー名が未入力です" Me.[UserName].SetFocus ElseIf IsNull(Me.[password]) Then MsgBox "パスワードが未入力です" Me.[password].SetFocus Else a = DLookup("パスワード", "tbl_ユーザー", "ユーザー名='" & Me.[UserName] & "'") If IsNull(a) Then MsgBox "該当する ユーザー名 は存在しません" Me.[UserName].SetFocus ElseIf StrComp(a, Me.[password], vbBinaryCompare) = 0 Then On Error GoTo Err_rogin_Click Dim stDocName As String Dim stLinkCriteria As String If アカウント = "1" Then stDocName = "frm_main" Else stDocName = "frm_main2" End If DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.Close acForm, Me.Name Else MsgBox "パスワードが違います" Me.[password].SetFocus End If End If Exit_rogin_Click: Exit Sub Err_rogin_Click: MsgBox Err.Description Resume Exit_rogin_Click End Sub ーー以上ーー 現在はこのようになっているのですが、これだとなぜかアカウントが"1"でも"2"でも frm_mainが開いてしまいます。 長くなって申し訳ないのですが、アドバイスをお願いします。

  • Setfocus について

    お世話になります。 Access2000でVBAを書いています。 ユーザがテキスト１に商品番号を入れます。ここで商品番号が８桁指定なので Dim Keta As Intger Keta = Len(テキスト１) If Keta <> 8 Then Msgbox"???" テキスト１.SetFocus End If と書きました。 しかし、SetFocusが効きません。他のテキスト（例えば、テキスト２）などにフォーカスを飛ばすことは テキスト２.SetFocus　でいくのですが、自分のところに フォーカスを戻すのはなにか特別なコマンドがあるのですか？ ご指導、お願いします。

  • Accessテキストボックスの未入力チェック

    いつも参考にさせて頂いております。 Accessテキストボックスの未入力チェックで上手くいかず悩んでいます。過去の情報等調べましたが、わかりませんでした。 どなたか宜しくお願い致します。 フォーム1にテキストボックス1、ボタン1があります。 テキストボックスを何も入力せず、Enter等で移動する時にチェックをかけたいです。 もし、テキストボックスに何も入力がなかったら、メッセージを出し、フォーカスをテキストボックスに戻す。 何か入力があれば、ボタンにフォーカスが移動する。 If IsNull(Me.テキストボックス1) = "" Then msgbox "未入力です。" Me.テキストボックス1.SetFocus End If 宜しくお願い致します。

  • PickFolder　アウトルックとアクセス連携

    アクセスのフォームに テキストボックスとコマンドボタンを置きました。 ＶＢＡでoutlookに参照設定をして、 Private Sub コマンド2_Click() Dim myNaSp As NameSpace Set myNaSp = GetNamespace("MAPI") Me.テキスト0.Value = myNaSp.PickFolder Set myNaSp = Nothing End Sub としました。 テキストボックスには、 Private Sub テキスト0_AfterUpdate() MsgBox Me.テキスト0.Value End Sub としました。 しかしoutlookのフォルダ名をPickFolderでテキストボックスに入れても テキストボックスの更新後処理のイベントは発動しません。 しかしテキストボックスにはちゃんとフォルダ名が入っています。 Private Sub テキスト0_Change() MsgBox Me.テキスト0.Value End Sub にしても同じです。 Private Sub コマンド2_Click() Me.テキスト0.Value = "aaa" End Sub にしてコマンドボタンをクリックすると、 Private Sub テキスト0_Change() MsgBox Me.テキスト0.Value End Sub は、発動します。 PickFolderでフォルダ名を選択して値をテキストボックスに入れても イベントを発動させる方法を教えてください。

  • Excel VBA SetFocus

    環境:Excel 2002です UserForm1での質問です Flame5にTextBox14とTextBox15があります TextBox14とTextBox15のBeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)後 Flame2にあるTextBox1にSetFocusしたいのですがエラーが発生します 実行時エラー　2147467259(800004005) 異なるFlameにSetFocusする方法があるのでしょうか？ Flame5の中でTextBox14及びTextBox15のSetFocusはできます TextBox14とのTextBox1５のBeforeUpdateのプロシージャです Private Sub TextBox14_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Len(Me.TextBox14.Text) <> 0 Then Dim a As Variant a = 100 - Val(Me.TextBox14.Text) Me.TextBox15.Text = a Dim i As Integer For i = 1 To 4 Me.Controls("TextBox" & i).Enabled = True Me.Controls("TextBox" & i).BackColor = &H80000005 '背景色（白色） Next i End If Me.TextBox1.SetFocus End Sub Private Sub TextBox15_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Len(Me.TextBox15.Text) <> 0 Then Dim a As Variant a = 100 - Val(Me.TextBox15.Text) Me.TextBox14.Text = a Dim i As Integer For i = 1 To 4 Me.Controls("TextBox" & i).Enabled = True Me.Controls("TextBox" & i).BackColor = &H80000005 '背景色（白色） Next i End If UserForm1.TextBox1.SetFocus End Sub ご支援願います

  • accessの検索フォームについて（複数条件）

    access初心者です。 本などを参考に検索フォームを作成しました。 １つの条件で検索することは出来たのですが、複数の条件を入力するとうまく検索出来ません。 全ての条件を満たすデータの抽出を行いたいと思います。 「あ」「い」「う」というテキストボックスを用意しています。 Private Sub コマンド14_Click() If Not IsNull(Me.txt_あ) Then ' Me.Filter = "あ LIKE '*" & Me!txt_あ & "*'" End If If Not IsNull(Me.txt_い) Then ' Me.Filter = "い LIKE '*" & Me!txt_い & "*'" End If If Not IsNull(Me.txt_う) Then ' Me.Filter = "う LIKE '*" & Me!txt_う & "*'" End If Me.FilterOn = True End Sub よろしくお願いします。

  • ExcelVBAのSetFocusとプロシージャーの呼び出しについてで

    ExcelVBAのSetFocusとプロシージャーの呼び出しについてです。 質問させて頂きます。 セルをSetFocusで選択することはできないのでしょうか？ 同じブックの別々のユーザフォームからプロシージャーを呼びだすことはできないのでしょうか？ ユーザフォーム１ sub mh() a=1 msgbox a End sub SUB　A_clik()　呼び出し可能 mh　　　　　　　　　　　 End sub ユーザフォーム２　 Sub B_click() call mh　　　　呼び出し不可能　　　　 End　Sub Sub B_click() userform1.mh　　　　呼び出し不可能　　　　 End　Sub 呼び出しの指定の仕方がわかりません。 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する