• ベストアンサー

access2000でコンボボックスでの選択は変更されていないと判断されるのですが。

現在、履歴をとるモジュール（beforeupdateとafterupdate利用）なのですが、今は変更が起こったかどうかを見て履歴を書いているのですが、これを更新ボタンをクリックしたら。に変更は可能でしょうか？（これは何故かと言いますと、コンボボックスで選択を変えただけでは変更が起こっていないとみなされて履歴を取ってくれないのです。それに変更をした！という気にもなるので。よろしくお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • Watapo3
  • ベストアンサー率76% (33/43)
回答No.1

現在 If Ctr.ControlType = 109 Then と記述されているところを If ((Ctr.ControlType = acTextBox) or (Ctr.ControlType = acComboBox)) Then へ、変更してみてください。

cas-jp
質問者

お礼

本当に本当にありがとうございます。m(__)m やっぱり、更新ボタンを押したら・・・ というのは、難しいんですね。(*_*)

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

関連するQ&A

  • ExcelVBAでコンボボックスを選択不可にする

    ExcelVBAで初期表示させたときにコンボボックスが選択できないようにするにはどうしたらいいか教えて下さい。 オプションボタンが4個あり、コンボボックスが3個あります。配置のイメージは以下の通りです。 <配置イメージ> ○オプションボタン1 ○オプションボタン2【コンボボックス1】 ○オプションボタン3【コンボボックス2】 ○オプションボタン4【コンボボックス3】 <今の状態> (1)初めに開いたときはどのコンボボックスもクリックできる (2)「オプションボタン1」を選択すると、全てのコンボボックスがクリックできない (3)「オプションボタン2」を選択すると、コンボボックス1が選択できるが、他のコンボボックス2と3は選択できない。 (4)「オプションボタン3」を選択すると、コンボボックス2が選択できるが、他のコンボボックス1と3は選択できない。 (5)「オプションボタン4」を選択すると、コンボボックス3が選択できるが、他のコンボボックス1と2は選択できない。 今の状態の(1)を改善したく、どなたか教えていただきたくお願い致します。

  • ACCESSのコンボボックスについて

    ACCESSでコンボボックスを使っているときに たまに入力できなくなってしまう時があり困っています。 例えばA,B,Cという3つのデータを選択できるコンボボックスがあり、 現在、Aが選択されていてBに変更しようとした時に コンボボックスの表示部分が突然空欄（または選択されているのに表示されていない）になってしまいます。 その後、どれを選択してもコンボボックスには何も表示されなくなってしまいます。 この現象が起こるとなぜか同じフォーム内のボタンなどにも不都合が起こるようになってしまいます。 (テキストボックスのデータを削除するボタンがあるのですがおしてもなにも起こらなくなってしまいました) いろいろ試しているのですが全く原因がわかりません。 どのようなところに原因がありそうかなどあれば教えてください。 宜しくお願いします。

  • アクセス　コンボボックスについて

    コンボボックス　印刷ボタンについて アクセス勉強中です。 フォームで作成した画面　だけを印刷する、コンボボックスを作成しています。 コンボボックスウィザードにてフォーム印刷ボタンを作成したのですが、 1000人くらいの、すべてのデーターが印刷されてしまい困っております。 どこを変更すれば1枚だけ印刷ができるのでしょうか？ イベントプロジャという部分は下記です。 またプロジャー以外に何かしなければならないのでしょうか？？ どうぞ宜しくお願いいたします。 Option Compare Database Private Sub リスト70_AfterUpdate() ' コントロールの値と一致するレコードを検索する Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[IDI] = " & Str(Me![リスト70]) Me.Bookmark = rs.Bookmark End Sub Private Sub コンボ73_AfterUpdate() ' コントロールの値と一致するレコードを検索する Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[NO] = " & Str(Me![コンボ73]) Me.Bookmark = rs.Bookmark End Sub Private Sub コンボ73_BeforeUpdate(Cancel As Integer) End Sub Private Sub 生年月日_AfterUpdate() Me.年_____齢 = Int(DateDiff("d", [生年月日] - 1, Date) / 365.25) End Sub Private Sub 郵便番号_AfterUpdate() Me!現住所.SetFocus Me!現住所.SelStart = Len(Me!現住所) End Sub Private Sub コマンド121_Click() On Error GoTo Err_コマンド121_Click Dim stDocName As String Dim MyForm As Form stDocName = "顧客リスト" Set MyForm = Screen.ActiveForm DoCmd.SelectObject acForm, stDocName, True DoCmd.PrintOut DoCmd.SelectObject acForm, MyForm.Name, False Exit_コマンド121_Click: Exit Sub Err_コマンド121_Click: MsgBox Err.Description Resume Exit_コマンド121_Click End Sub

  • コンボボックスで選択したものをクリアーしたい(アクセス　ＶＢＡ)

    こんばんは。 早速ですが、コンボボックスよりデータをいくつか選択した時、コマンドボタンをクリックしたら、一回で選択したものをクリアーできるように設定しようと思っています。どのようにすればいいのでしょうか？ 宜しくお願いします。

  • 【Access2010】　コンボボックスのリセット

    オプションボタンとコンボボックスの連携(再クエリ)はできています。 オプションボタンや選択(1)～選択(3)を選んだ後にどれか１つでも選び直した場合、選択(1)～選択(3)をリセット(空欄)にする方法はありますか？ 　<やりたいこと> 　　・オプションボタンを選び直したら選択(1)～選択(3)すべてリセット 　　・選択(1)を選び直したら選択(2)と(3)をリセット 　　・選択(2)を選び直したら選択(3)をリセット 尚、コンボボックスをリストボックスにした場合、選び直すと自動的にリストが変更されるのは確認できましたが、次ページに移るとリストボックスの部分が前ページの内容がそのまま表示されてしまいました。さらには、次ページの内容を変更後前ページに戻るとリストボックスの部分が次ページの内容が表示されてしまうので、リストボックスの使用はあきらめました。 リストの件数が少ないので本当はリストボックスを使用したいです・・・

  • コンボボックス　選択後のカーソル制御

    ACCESS2007のデータベースを利用しています。 テキストボックス１、コンボボックス１、テキストボックス２が上から順に並んでおり、コンボボックス１で表示されるリストから一つを選ぶと、カーソルがテキストボックス２に遷移します。 (ACCESS2007のオプションの詳細設定のところで、フィールド移動時の動作をフィールドの先頭に移動)に設定しています。 コンボボックス１の選択後、コンボボックス１の先頭にカーソル移動するには、どのような処理をVBAに追加すればよいでしょうか? Private Sub コンボボックス１_AfterUpdate() テキストボックス１.SetFocus コンボボックス１.SetFocus With Me!コンボボックス１ .SelStart = 0 .SelLength = 0 End With End Sub ではうまく動作しませんでした。どうぞ宜しくお願い致します。

  • Accessのコンボボックスでリストが選択できない

    いつもお世話になっております、ありがとうございます。 コンボボックス1で部署名を選択し、 コンボボックス2でその部署の社員の名前を選択するようなフォームがあります。 コンボボックス1の値集合ソースで社員テーブルの一覧を参照し、 部署名のフィールドでグループ化して選択できるようになっています。 このとき、なぜかコンボボックス2では最上段にリスト化された社員名しか 選択できなくなります。 画面上では全員がリストとして見えているのに、 リストの2番目以降をクリックしても、一番上の社員しか入力されません。 プロパティで何か変な制約がかかっているのでしょうか？ どなたかお分かりになる方がいらっしゃいましたら教えてください。 どうぞよろしくお願いします。

  • ACCESSのコンボボックスについて

    ACCESSのコンボボックスに「012/015/028/125」等が設定されているて、 コンボボックスのプロパティの「入力チェック」は「はい」の設定になっております。 そういった場合、「12」と入力した場合、「012」とすることは可能でしょうか？ テキストボックスの場合には、そのテキストボックスの更新後処理で Me.コード = Format(Me.コード, "000") のように記述し変更していたのですが・・・。 コンボボックスでは、「指定した値はリストにありません」と表示され、更新後処理がが実行されません。

  • ACCESSのコンボボックスのレコードを変更する方法

    いつもありがとうございます。 以下のような事を行いたいと思っていますがそのようにすればいいでしょうか？ ------------------------------ [得意先コード ▽] [得意先名] [<-] [->] ------------------------------ 上記のようなフォームがあります。 コンボボックスで得意先を選択すると、 得意先コード、得意先名が表示されます。 コンボボックスの値集合ソースはSELECT文で定義してありまして、 ここまでは問題なくできています。 問題はここから。 現在 得意先コード 10 得意先名 静岡産業 だったとして、 [<-] をクリックすると 得意先コード 9 得意先名 神奈川商店 [->] をクリックすると 得意先コード 11 得意先名 愛知製作所 というようにボタンをクリックする事で コンボボックスの値を変更するには どんなコードを書けばいいでしょうか？

  • accessコンボボックスで今日の日付のみ選択

    accessのフォームにあるコンボボックスで今日の日付のみ選択できるようにしたいです。 コンボボックスの右端の三角の記号をクリックすると今日の日付のみが候補としてでてくるような 設定の方法を教えてください。 値集合ソースには関数を入れることができなくて困っています。 ネットや本でいろいろ調べてみましたが、今日の日付前後3日を表示する方法はあっても 今日の日付のみを選択の候補として設定する方法がわかりませんでした。 また、フォームを開いたときにコンボボックスに今日の日付が自動で出てくる状態にする方法は わかったのですが、常時（コンボボックスの右端の三角をクリックしなくても）今日の日付が見えてしまいます。 コンボボックスの右端の三角をクリックして初めて今日の日付が選択できるようにしたいです。 access初心者です。宜しくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する