- 締切済み
アクセスでのVBA記述で検索
-00の回答
- -00
- ベストアンサー率33% (1/3)
過去の回答を探せば出てきます。 そちらを参考にされるのが良いかと思います。
関連するQ&A
- AccessのVBAの記述について
たびたびお世話になります AccessのVBAで、フォーム上にあるテキストボックス(CadrDate)のデータを同一フォーム内の別のテキストボックスに貼り付ける操作はできるのでしょうか? 出来るのであれば記述文を教えてください。
- ベストアンサー
- その他(データベース)
- Access 2003 VBA について
始めまして Access 初心者です。 ある、フォームのテキストボックスに入力した内容を元に、 コマンドボタンクリック時に、Aテーブル内容を検索し、テキストボックスに 入力した内容と一致しない場合にAテーブルに格納し 一致するレコードが見つかった場合は、エラーを表示したいのですが、 どのように記述すればいいのでしょうか? 駄文失礼します。
- ベストアンサー
- その他MS Office製品
- アクセスVBAについて
"問題数フォーム"というフォームに国語、社会、数学、英語、理科テキストボックスが5個あります。別に得点入力フォームが各教科ごとにあります。で、各教科のフォームにはそれぞれ第1問から第5問までの得点を入力するようになってます。で、例えば問題数フォームの国語に4と入力すれば国語の得点入力フォームの第1問から第4問までを表示して、第5問を非表示にするということをVBAで記述したいんですが、どのようにすればいいのかわかりません。教えてください。
- ベストアンサー
- オフィス系ソフト
- Accessでの検索について
Access2003を使用しています。 まだAccessを使い始めて2ヶ月ほどの初心者です。 コンボボックスでの絞り込み検索を行いたいのですが、ネットや友人に借りた参考書を見てもなかなか解決に至らないもので、質問をさせていただきます。 コンボボックスから項目を選択するとそれにあった一覧が出るようにしたいと考えています。「値集合ソース」などの部分はできたのですが、現在は、フォームにおいてコンボボックスから項目を選んでも何も起きない状態です。(あたりまえですが) 私が質問したいところは、「更新後処理」のところなのですが、どのようなVBAコードを記述すればいいのでしょうか? それと勉強のために、VBAの参考になる書籍やサイトなどあれば教えていただきたいと思います。 よろしくお願いします。
- 締切済み
- その他(プログラミング・開発)
- Access VBA コントロール 削除
Access の VBA にて、フォームに設置しているラベルやテキストボックスといったコントロールを削除するコードを作成したいのですが、どのように記述すればよろしいでしょうか?
- ベストアンサー
- Visual Basic
- Accessのフォームにて顧客番号を検索して無ければ新規作成したい
Access2003のフォームで社員管理システムを作ろうとしていますが、VBAの記述でわからないことがあるので、教えてください。 まず、テキストボックス「txt_検索」に社員番号を入力し「cmd_検索」ボタンを押すと、社員管理テーブルの社員番号フィールドより検索をします。 社員管理テーブルに該当するレコードがある場合は、レコードの編集となり、社員番号がない場合はテキストボックス「txt_社員番号」に「txt_検索」の値を入れた新規レコードの作成としたいのです。 入力した値でレコードの検索をして、無いなら新規作成といったコードは どのような記述になるのか教えてください。 よろしくお願いいたします。
- 締切済み
- その他MS Office製品
- Access2007の初心者です。VBAの記述で困っています、お力添え
Access2007の初心者です。VBAの記述で困っています、お力添えお願いします。 チェックボックスにチェックが入っている場合に、誕生日が空白のものを抽出する部分のVBAの 記述のところで躓いているのだと思っています。 ■テーブルの情報 ・テーブル名:T_会員情報 ・T_会員情報のフィールド:会員名(テキスト形式)・性別(数値型)・誕生日(日付/時刻型) ■実現したいこと ・T_会員情報で、「検索」ボタンを押下したら、条件にあった情報がフォーム上に抽出できるもの。 ■用意したフォーム T_会員情報の連結フォーム ・フォーム上には以下を用意 ◆「性別」の非連結コンボボックス:txtSeibetsu ◆「誕生日が空白」という非連結チェックボックス:chkBirthday ◆「AND OR」のいずれかが選択できるオプションボタン ◆「検索ボタン」 ◆「会員名」「性別」「誕生日」のT_会員情報の帳票フォーム ■VBA Option Compare Database Option Explicit Const cAnd = 1 Const cOr = 2 Const cBaseQuery = "SELECT * FROM T_会員情報" Private Sub 検索ボタン_Click() Dim strWhere As String Dim strAndOr As String strWhere = vbNullString If Me.optAndOr.Value = cAnd Then strAndOr = " AND " Else strAndOr = " OR " End If '性別検索 If ISNull(Me.txtSeibetsu.value)=False Then strWhere = strWhere & strAndOr & " 性別 = " & Me.txtSeibetsu.Value End If '誕生日空白検索 If Me.chkBirthday=False Then strWhere = strWhere & strAndOr & " 誕生日= " & Null End If 'WHERE句編集 strWhere = Replace(strWhere, strAndOr, "WHERE", , 1) 'レコードソース書き換えと再クエリ Me.RecordSource = cBaseQuery & " " & strWhere Me.Requery End Sub 誕生日が空白の検索のところの記述が問題だと思っています。 初心者でよくわかっておりません。 ご存知の方がいらっしゃいましたら、教えてください。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- Access97でフォームの数字入力時マイナス値を認めない方法
Access97で、フォームのレコードソースに Access内テーブルを割り当てています。 フォームのテキストボックスのコントロールソースには そのテーブルの数値項目の値を割り当てているのですが、 このテキストボックスにマイナス数値の入力を 認めない場合、更新後イベントにエラーチェックの コードを記述する以外に、簡単にエラーチェック出来る ような方法はないでしょうか。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- ★アクセス2002★DoCmd.ApplyFilterの記述
先日同じような質問をして回答頂きましたが再度お願いします。 住所検索フォームを作成中です。 住所検索フォームにテキストボックス[検索値]を配置して、[検索値]に入力した語句で始まるレコードを表示させています。[抽出開始]コマンドボタンに下記の様に記述していますが、これだと[住所]の頭の文字でしか抽出できません。[検索値]に入力する語句は必ずしも頭の文字ではないので、途中の一部の語句でもヒットするようにしたいのですが、上手く記述できずに困っています。 DoCmd.ApplyFilter , "[住所] Like '" & Forms![住所テーブル一覧]![検索値] & "*'"
- ベストアンサー
- その他(データベース)
- アクセスで注文ナンバを検索して、表示させたい。
こんにちは。 マイクロソフトアクセスで注文表を作っています。 フォームで、注文ナンバを入力すると、そのフォームにその注文情報が全て表示したいです。 (1)フォームにテキストボックスを作って、注文ナンバを入力→表示 (2)フォームにコンボボックスを作って、注文ナンバを入力→表示 検索は、情報を保存しているテーブルからしたいです。 どちらのやり方でも良いので、やり方をお願いします。 VBAは、ほとんどわからないので、アクセスで教えていただければ、幸いです。 どうぞよろしくお願い致します。
- ベストアンサー
- オフィス系ソフト