- 締切済み
Access2013の質問です。
Access2013でフォームを作っています。コンボボックスを使ってレコードを検索するコードを作ったのですが、もし、コンボボックスの内容に対応するレコードがなかった場合、新しくレコードを作るコードは、どう書くのですか？情報不足でしたらすいません。 環境）Windows8.1 Access2013 回答よろしくお願いします。
- scsa03
- お礼率23% (3/13)
- その他(データベース)
- 回答数3
- ありがとう数14
- みんなの回答 （3）
- 専門家の回答
みんなの回答
- NotFound404
- ベストアンサー率70% (288/408)
NotInList イベントはコンボボックスに無いデータを入力したときに発生します。 >もし、コンボボックスの内容に対応するレコードがなかった場合 にフォームに新たなレコードを追加したいのですから >コンボボックスを使ってレコードを検索するコードを に書き加える形になります。 分からなければ、レコードを検索するコード、 コンボボックスのコントロールソースまたは値集合ソース、 それとフォームのレコードソース、 以上３点を提示ください。
- NotFound404
- ベストアンサー率70% (288/408)
>「実行時エラー'2105' 指定したレコードに移動できません。」 結果だけを表示されても困ります。 >内容次第で変わってきますので。 少なくともコードの提示ぐらいないと全く分かりません。
- NotFound404
- ベストアンサー率70% (288/408)
>新しくレコードを作るコードは Docmd.gotoRecord について調べてください。 http://www.tsware.jp/study/vol4/docmd_3.htm など。 >対応するレコードがなかった場合 は >レコードを検索するコード の内容次第で変わってきますので割愛します。
お礼
NotFound404さん、ご回答ありがとうございます。リンクを参考に作ってみたのですが、 「実行時エラー'2105' 指定したレコードに移動できません。」 というエラーが発生しました。どうすればいいのでしょうか。
関連するQ&A
- Accessフォーム
Access初心者です。 Accessのフォーム上で、 [都道府県]のコンボボックスで東京都を選んだ場合、 [市区町村]のコンボボックスには「東京都」の市区町村名が選択できるようにしました。 フォームでの入力はきちんと出来るのですが、新しいレコードに入力すると、 前のレコードに入力した項目が消えてしまいます。 (テーブル上には、入力した情報が残っています) 色々試してみましたが、どうしても出来ません。 いったいどうしたらよいのでしょうか。ほとほと困っています。 どうかご教示ください。お願いいたします。
- 締切済み
- オフィス系ソフト
- アクセスについての質問です
アクセスについて、次の項目について教えてください。 １．テーブルからフォームを作り、後でテーブルのフィールドの属性を変えた場合（たとえば、テキスト ボックスからコンボボックス等）、フォームにこれ が対応しません。対応させる方法はありますか。 ２．アクセスでデータベースを開いたときに希望のフォームが最初に自動的に開くように設定したいので すが、どのようにすればよいでしょうか ３．生年月日を入力したらそれが自動的に年齢になるような背低は可能でしょうか。（フリガナ入力支援 のような） たくさん質問して恐縮ですが、分かるものだけでもけっこうですのでご回答よろしくお願いします
- ベストアンサー
- オフィス系ソフト
- accessのレポートで…
レポート（テーブル１から作成）にあるフィールド１には「1・2・3…」という数字が入っています。 この１・２・３はテーブル２（ID・名前）とリンクしています。 フォーム上ではコンボボックスにして、テーブル２の名前も表示するようになっています。 （テーブルに値としては入っていません） これでレポートを作成した場合、テーブル２の名前を表示させたいのですが、テキストボックスで Iif([フィールド１] = "1","****",Iif(… というようにしてしまうと、せっかくリンクにしたのにデータが固定になってしまうのを避けたいんです。 フォームだとコンボボックスの更新後処理とレコードの移動にコードをかけば最新の情報を表示することができたんですが、レポートでもこのようなことはできるんでしょうか？ （コードをかいて処理したいです） Access2000です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- accessのコンボボックスのことで質問です。
accessを勉強しているのですが、ちょっとしたことで分からなくなってしまいました・・。 質問の内容なのですが、まずフォーム上にコンボボックスＡとコンボボックスＢを配置するとします。 レコードソースには仮に[情報テーブル]というテーブルが選択されているとします。 コンボボックスAには[情報テーブル]のフィールド名が、 例えば[顧客NO]、[商品]、[値段]というフィールド名が入っているとし、フィールドにはそれぞれ10件ずつデータが入力されています。 そしてコンボボックスＡで[顧客NO]を選択するとコンボボックスＢに[顧客NO]の10件のデータが挿入され、選択できるようにしたいのです。 他のフィールド名を選んだときにも同じようにコンボボックスＢにフィールドのデータが入るようにしたいと思っています。 コンボボックスAにテーブル名を入れることはできたのですが、 コンボボックスＡで選択されたフィールドのデータを、コンボボックスBで選択できるようにするというやり方がわからないのです・・。 accessは2002を使っています。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- Access フォームのコンボボックスでの検索
Access2010で質問です。 フォーム上のコンボボックスで レコードを検索・抽出したいと考えています。 以下のような事をやりたい場合、 フォームやVBAをどのように 作ればよろしいのでしょうか？ お忙しいところたいへん恐れ入りますが、 ご教授いただけますと助かります。 ＝＝＝＝＝＝テーブルの説明＝＝＝＝＝ 以下の3つのテーブルがあります。 ◆メインテーブル |No|職業 |住所|年齢|名前| -------------------------- |01|会社員|東京| 31|品川| |02|自営業|埼玉| 30|川口| |03|会社員|東京| 30|渋谷| |04|自営業|埼玉| 20|戸田| |05|自営業|埼玉| 20|熊谷| |06|自営業|東京| 30|太田| ◆職業テーブル |No|職名 | ----------- |01|自営業| |02|会社員| |03|無職 | ◆住所テーブル |No|地名| --------- |01|東京| |02|埼玉| |03|千葉| そして、各テーブルは 以下のようにリレーションされています。 ・職業テーブルはメインテーブルの「職業」へリレーション ・住所テーブルはメインテーブルの「住所」へリレーション ＝＝＝＝＝検索方法の説明＝＝＝＝＝ 検索はフォーム上で行いたいです。 フォームに以下のようなコンボボックスを２つ作成します。 コンボボックス１・・・職業が選べます コンボボックス２・・・住所が選べます それぞれのコンボボックスで条件を選んだ後、 「実行」ボタンを押すことで検索結果を表示させたいです。 ◆両方のコンボボックスが空欄だった場合 「検索条件を選んでください」との メッセージボックスを表示させたいです。 ◆複数のレコードが抽出された場合にやりたい事 各レコードの「年齢」を比較して 値が一番小さいレコードだけが 抽出されるようにしたいです。 「年齢」が同じ値だった場合（競合した場合）は 「No」の値が小さいレコードを抽出したいです。 ◆検索結果の表示方法 抽出されたレコードの「名前」だけを フォームに表示したいです。 ＝＝＝＝＝検索結果の例（やりたい事）＝＝＝＝＝ ◆事例１ コンボボックス１＝「会社員」 コンボボックス２＝「東京」 検索結果＝「渋谷」 01と03が検索にヒットしますが 「年齢」の値が小さい方（03）だけを 抽出されるようにしたいです。 ◆事例２ コンボボックス＝「自営業」 コンボボックス＝「埼玉」 検索結果＝「戸田」 まず02と04と05が検索にヒットしますが 02の「年齢」の値が大きいので除外します。 次に04と05の「年齢」の比較ですが、 同じ値になっています。 したがって「No」の値が小さい04が 抽出されるようにしたいです。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 以上です。 できるだけ詳細に書いたつもりですが、 不足な情報がありましたらご指摘ください。 なにとぞよろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- ACCESSのサブフォーム
ACCESSのサブフォームで、レコード表示について教えてください。 添付のサブフォームの一番左のコンボボックスに値を入力もしくは選択すると、未入力のレコードが下に１行分増えます。 (その他項目は連動して表示されます) サブフォームは帳票フォームを選択しているのですが、一般的には帳票フォームを選択した場合、レコードの数分だけ表示されると思うのですが、これは1レコードづつ増えていきます。 このサブフォームを作った人がもういないので、どうやって作ったのかが分かりません。 どなたか分かる人がいれば教えて頂けますでしょうか。 必要な情報があれば、調べて回答します。
- ベストアンサー
- Access（アクセス）
- アクセス コンボボックス値をレポートに反映
アクセス初心者の為、やりたい事を検索しコードコピー等真似ることで どうにか作っている状態です。 現在あと一歩のところでつまずいてしまったのでお力添え頂けると助かります。 環境：アクセス2003 ------------------------------------------------------------------------------ フォームのコンボボックスで表示された値と一致するレコードを下にあるテキストボックスで表示 ⇒レポートにその値を反映させたい ------------------------------------------------------------------------------ フォーム上： 送付先：「Ａ社」 （コンボボックスで選択） 担当者：「Ａさん」 （コンボボックスで選択するとテキストボックスで表示） 現在の状況： フォーム上ではコンボボックスの値、その値と一致するレコードを該当テーブル（T_送付先）から テキストボックスに表示されている。 レポート上でだけ何故か送付先の部分が元テーブル（T_送付先） の送付先ではなく（フォームでは表示されてるのに） 数字が代わりに表示されてます。 担当者のテキストボックスにはフォームと同様に表示されてます。 ------------------------------------------------------------------------------ フォーム上にある送付先のコンボボックスには↓ Private Sub コンボ8_AfterUpdate() ' コントロールの値と一致するレコードを検索する Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[ID] = " & Str(Nz(Me![コンボ8], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub ------------------------------------------------------------------------------ フォームの送付先を表示するテキストボックスには↓ =[Forms]![F_送付先]![コンボ8] ------------------------------------------------------------------------------ フォーム上のコンボボックス、コンボ8のプロパティ 値集合ソース： SELECT T_送付先.ID, T_送付先.送付先 FROM T_送付先; 連結列： 1 ------------------------------------------------------------------------------ テーブル（T_送付先）の一列目にID項目がありオートナンバー設定してあります。 その値が表示されてる気がします・・・ 他にもコンボボックスを使用してますが、全部レポートには表示されています。 コントロールの値と一致するレコードを検索するこのコンボボックスだけが 表示されない為コードが影響しているのかな・・と考えられますが お手上げ状態です・・・ どなたかアドバイス頂けると助かります。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- Accessで「キーワード検索」をしたい
前任者が作ったデータベースを触っています。 私自身はAccessの基本操作がわかるくらいでVBAとかはよくわかりません。 今回その修正がしたいと思っています。 検索用フォームがあり、現在３つのコンボボックスがあってそれを選択して 「検索開始」をしています。 今回、その検索用フォームに「キーワード検索」というテキストボックスを１つ追加したいです。 検索の対応となるフィールドは２つあります。 「質問」「回答」 このどちらかのフィールドに「キーワード検索」した文字があればレコードを抽出してほしいです。 とりあえず検索結果を表示するためのクエリの「質問」「回答」の抽出条件に同様に Like "*" & [Forms]![F_検索フォーム]![キーワード] & "*"と入れてみました。 なんとなく違う気はするのですが、どうやってやれば良いのかイマイチわかりません。 またこの同じクエリに IIf(IsNull([Forms]![F_検索フォーム]![区分１cd]),True,[区分1cd]=[Forms]![F_検索フォーム]![区分1cd]) 抽出条件欄に「True」 これが３つのコンボボックス分あります。 何のためのフィールドでしょうか？ また、私が追加する「キーワード検索」テキストボックスの分も作らないといけないものでしょうか？ 素人質問で申し訳ありませんがアドバイスいただけたら助かります。 Accessのテキストは職場にたくさんあるのですが、私のレベルでは読んでも？？ばかりです。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- Access コンボボックスを使って抽出
Access2000・Windows2000を使用しています。 レコードの抽出をしたいと思います。テーブルは1つ、フィールドには日付・商品名・業者名・単価・・・とあります。フォームで「商品名から抽出（コンボボックスから商品を1つ選ぶ）」または「業者名から抽出（コンボボックスから業者を1つ選ぶ）」（コンボボックスから商品を1つ選ぶ）出来るようにし、なおかつ今月のレコードのみ表示させたいのですが、まずそのテーブルを1つ作成した時点でつまづいてしまっています。 どなたかご教授お願いします。
- 締切済み
- その他(データベース)
補足
>少なくともコードの提示ぐらいないと全く分かりません。 次のようなコードを使いました。 Private Sub コンボ91_NotInList(NewData As String, Response As Integer) Response = acDataErrContinue Dim L As Long: L = MsgBox("…", vbYesNo) Select Case L Case vbYes DoCmd.GoToRecord , , acNewRec ←ここでエラーが出ました。 Exit Sub Case vbNo コンボ91.Text = "" End Select End Sub