• ベストアンサー

メッセージボックスの表示

mozori01の回答

  • ベストアンサー
  • mozori01
  • ベストアンサー率26% (7/26)
回答No.1

書き方はプログラム言語によります。 フローチャートとしては以下になります。 1.新規追加IDと、既存のIDの全てを比較します。 2.重複したIDが無ければ、メッセージボックスで「新規商品が登録されました。」と表示します。 3.重複したIDがあれば「IDが重複しています。確認してください。」と表示します。

関連するQ&A

  • Accessのコンボボックスの使い方について

    初心者です。 コンボボックスの使い方について教えて下さい。 商品テーブルA 商品名|コードA|コードB|コードC| マスターテーブル A|B|商品名|コードA|コードB|コードC|D|E のような2つのテーブルを作成し、マスターテーブルの「商品名」に コンボボックスで商品テーブルAの商品名を表示させるとします。 そこでコンボボックスで商品名を選択すると同時に 商品テーブルAからほかの「コードA」「コードB」「コードC」の値を マスターテーブルの「コードA」「コードB」「コードC」に入れる方法は ありますでしょうか? また、他の方法はありますでしょうか? 宜しくお願い致します。

  • Access アクセスについて

    Accessでデータベースを作っています。 テーブル、クエリは下記のようになっており、リレーションシップで紐付けしてあります。 クエリからフォームを作成し、商品番号を入力することでマスタテーブルに登録されていれば自動で商品名等の情報が表示されるようになっています。(フォーム1) 商品番号を入力しカーソルが移動した時、マスタテーブルに該当する項目がなかった場合、マスタテーブルから作成した新規追加用のフォームが表示されるようになっています。(サブフォームではありません) 新規追加用フォームに商品名を入力し、閉じてもフォーム1の商品名の欄に反映されません。新規追加用フォームを閉じる時にVBAで”Requery”,”Refresh”もやってみましたがダメでした。商品番号を入力し直すと表示されます。 どうすれば自動で商品名が表示されるようになるか教えてください。 テーブル1(入力用) 1.ID(主キー) 2.商品番号 3.etc. テーブル2(マスタテーブル) 1.商品番号(主キー) 2.商品名 3.etc. クエリ 1.ID(テーブル1) 2.商品番号(テーブル1) 3.商品名(テーブル2) 4.etc.(テーブル2) 5.etc.(テーブル1)

  • コンボボックスのテキスト窓にデータを表示させたい

    オフィスソフト環境:ACCESS2007(諸般の事情により使用中) [アドバイスの背景とお願いしたいこと] ◆アドバイスの背景 コンボボックスを使ったフォームで入力を行っています。テーブルにはID(数値)「食材名、素材名」が入力されるのですが、フォームのコンボボックス「2段目」には素材名(入力済)が表示されません。但し、1段目のコンボボックスには数値ではなく食材名(入力済)が表示されています。 ◆お願いしたいこと(実現したいこと) 入力フォームを過去入力を遡り確認することもありますので、1段目同様に素材名(入力済)を表示させたいと思っています。 [対象オブジェクト] ◆テーブル:T_食材管理「質問対象フィールドのみ記載」 ・テーブル名:T_食材管理:食材名(数値型)、素材名(数値型) ・テーブル名:T_食材名:食材名ID、食材名 ・テーブル名:T_素材名:素材名ID、素材名、食材名ID ◆フォーム:F_食材管理「質問対象オブジェクトのみ記載」 ・フォーム(F_食材管理)のレコードソース名:T_食材管理 [1段目コンボボックスの設定] ・コンボボックス名:食材名(参照テーブル名:T_食材名) ・クエリビルダ設定フィールド:「食材名ID、食材名」 ・書式(列数):2 ・書式(列幅):0cm;2.551cm ・コントロールソース:SELECT T_食材名.食材名ID, T_食材名.食材名 FROM T_食材名 [2段目コンボボックスの設定] ・コンボボックス名:素材名(参照テーブル名:T_食材名) ・クエリビルダ設定フィールド:「素材名ID、素材名、食材名ID(抽出条件:[Forms]![F_食材管理]![食材名])」 ・プロパティーの書式(列数):3 ・プロパティーの書式(列幅):0cm;2.551cm;0cm ・コントロールソース:SELECT T_素材名.素材名ID, T_素材名.素材名, T_素材名.食材名ID FROM T_素材名 WHERE (((T_素材名.食材名ID)=[Forms]![F_食材管理]![食材名])); 説明にだらだらの羅列感をお感じになられるもしれませんが、簡潔に説明ができず申し訳ございません。宜しくお願いします。

  • 検索結果を非連結のテキストボックスに表示させるには

    accessでシステム開発しています。初心者です。 検索結果を非連結のテキストボックスに表示させる方法を教えてください。 条件(1) フォームのレコードはどのテーブルとも紐づいていない 条件(2) 2つのテーブルから1つの検索ボタンで検索できるようにしたい テーブルA;案件マスタ テーブルB:リソースマスタ ・検索テキストボックス(1つ) ・検索ボタン(1つ) 条件(3) 案件ID、リソースIDはともに数値型です。 検索結果表示テキストボックス(非連結) ・案件IDテキストボックス:案件マスタより検索した案件IDを表示する ・リソースIDテキストボックス:リソースマスタより検索したリソースIDを表示する 下記のように考えていますが ・非連結のテキストボックスに検索結果を表示させる ・1つの検索ボタンで2つのテーブルから検索ができるようにする 方法がわかりません。 どのようなコードを追記したらいいのか教えていただけないでしょうか。 よろしくお願いいたします。 Private Sub btn検索ID_Click() Dim strFilter As String Me![案件マスタ].SetFocus If Me!案件IDテキスト = Me![案件マスタ]![案件ID] Then strFilter = " AND 案件ID= " & Me!案件IDテキスト End If If Me!テキストリソースID = Me![リソースマスタ]![リソースID] Then strFilter = strFilter & " AND リソースID= " & Me!リソースIDテキスト End If ’↓?いらないかも.. 'Forms!ID検索.Filter = Mid(strFilter, 6) Forms!ID検索.FilterOn = True Me.案件IDテキストボックス= Null Me.リソースIDテキストボックス = Null

  • AC2000でフォームから入力したデータをサブフォームに表示

    ID 商品名 単位 単価で商品マスタフォームを作っています。このフォーム内にサブフォームを作っておいて データが入力するたびにサブフォームへ表示させたいのですが、このときの条件としてID(オートナンバー)を降順(最新のデータが一番上になる)・データシート形式にしたいと思います。 T_商品(テーブル名) Q_商品(IDを降順としたクエリ) MF_商品(各入力テキストボックスがあるフォーム) SF_商品(MF_商品に貼り付けるサブフォーム) 降順にすると一番若いIDのデータだけがサブフォームに 表示されるのです。 requeryは必要なのでしょうか? よろしくお願い致します。

  • アクセス リストボックスから選択したデータを抽出条件にするには…

    アクセス超初心者です。 フォーム上のリストボックスで選択した項目を条件にデータ抽出しています。 そこで、その抽出されたデータの中に商品コードがあるのですが、 その商品コードを条件にして他のデータを抽出したいと思っています。 (↓説明が長いですが、お願いします↓) 出来ていること フォームでコードを入力すると、商品名が表示されます。 同じくコードを条件にリストボックスにカテゴリ1表示され、 そのリストのいずれかをクリックすると、別のリストボックスにカテゴリ2が表示され、 そのいずれかをクリックすると詳細に必要情報が表示される。 http://accessclub.info/beginer/cd/part_07.htm ここを参考に作成しました。 したいこと ランキング作成。 今回新たにテーブルを追加しました。 リストボックス_カテゴリ2を条件に抽出されたデータにある商品コードを、 条件として、新たに追加したテーブル_ランキングからデータを抽出したい。 また、ランキングの上位順に並び替えした状態で抽出したい。 ------------------- 抽出結果はこのようにしたいです。 ランキング順位/商品コード/商品名/生産工場/カテゴリ1/カテゴリ2 ------------------- T_商品名 ID(主キー) 商品コード 商品名 生産工場 カテゴリID※T_カテゴリ_IDとリレーション ------------------- T_カテゴリ カテゴリ1 ・・・(大分類カテゴリ) カテゴリ2 ・・・(大分類の中の詳細分類) ID(主キー)※T_商品名_カテゴリIDとリレーション ------------------- (今回は新たに追加したテーブル) T_ランキング ランキング順位 商品コード 商品名 ポイント ID(主キー)(リレーション無し) ------------------- F_総合検索  ヘッダー部分   (1)コード入力欄(テキストボックス非連結)   (2)商品名(テキストボックス非連結)   (3)カテゴリ1(リストボックス)   (4)カテゴリ2(リストボックス)   (5)ボタン ------  詳細部分    商品コード/商品名/生産工場/カテゴリ1/カテゴリ2 ------------------- しくみ  I (1)にコードを入力する   →II (2)に商品名が表示/(同時に)(3)カテゴリ1が表示(そのいずれかをクリック)   →III その商品が属しているかつ、選択されたカテゴリ1に属す、カテゴリ2が(4)に表示   →IV(4)のクリックされたカテゴリを条件に、そのカテゴリに属すレコードが詳細に表示    ※(5)ボタンは詳細の表示と同じものを別途クエリを作成し、開くようにしています。     (今はまだランキングが出来ていないので、クエリをコピーしエクセルでランキングを作っています。) ---補足-------------------- もともとエクセルで管理していたデータをインポートしてテーブルを作成しています。 ------------------------------------------------------------ 【カテゴリシート】商品コード/商品名/生産工場/カテゴリ1/カテゴリ2 というシート(4500件くらい) ※商品コード重複あり 例: 商品コード 商品名 生産工場 カテゴリ1 カテゴリ2 0003 キャラクターペン 東京 玩具 対象小学生以上 0003 キャラクターペン 東京 文具 筆記用具 0003 キャラクターペン 東京 文具 消耗品 ※カテゴリ1 ・・・(大分類カテゴリ)/カテゴリ2 ・・・(大分類の中の詳細分類) ------------------------------------------------------------ 【ランキング2007シート】ランキング順位/商品コード/商品名/ポイント/調査日 というシート(4000件くらい) ※商品コード重複なし ※ランキングは廃盤の商品コード(100件くらい)もあり、その商品に関しては順位とポイントが空欄です。   (空欄セルがあるとエラーの原因になるかと思い、念のため補足。) ------------------------------------------------------------ ここから、ある商品はどのカテゴリに属しているか、また同カテゴリに含まれる商品はランキング内で何位にいるのか。 という情報を出すように、と仕事で依頼されます。(同類商品の中でどう評価されているのかを比較するため) いつもは、エクセルで作業シートを作っており、関数で呼び出しているのですが、 関数が複雑かつ多いせいか、計算時間が長く、効率が悪くなっています。 VBA、マクロ、SQLはわかりません。 そんな私でも学習していきたいと思っています。 よろしくお願いします。

  • ACCESS リストの使い方

    お願いします! ACCESS2003で作成した「F商品マスタ」というフォームで、 「朝食名」という名前のリストボックスがあります。 そのリスト一覧は、「T朝食マスタ」という名前のテーブルから取得しています。 「T朝食マスタ」には、「朝食コード」「朝食名」のフィールドがあります。 「F商品マスタ」内にある「朝食名」のリストボックスで朝食コードを選択したら、 横にあるテキストボックスに「T朝食マスタ」の「朝食名」が表示されるようにしたいのですが、 どのようにすればよいでしょうか? ご回答お願い致します。

  • フォーム内のテキストボックスに複数レコードを表示

    いつも大変お世話なっております。Accessを始めて3週間の初心者です。 今、社員の在籍中の職級推移を残すための社員明細フォームを作成しています。 社員数数百名。 フォーム名:社員明細 テーブル名:TBL_職級期間一覧 テーブルには 以下のようなレコードが並んでいます。 IDはオートナンバー型を振っています。 年度が替わって、職級が変化すればレコードが追加されます。 (ID 586のように001234 さんのレコードが追加)  ID  社員No    開始     終了    職級名  1  001234  2004/04/01 2008/03/31   S3  2  001234  2008/04/01 2012/03/31   S2  3  001234  2012/04/01 2015/03/31   S1  4  005678  1998/04/01 2003/03/31   T6  5  005678  2003/04/01 2005/03/31   T5  6  005678  2005/04/01 2013/03/31   T4  7  005678  2013/04/01 2016/03/31   T3  ・  ・  ・ 586  001234  2015/04/01 2016/03/31   K5 これらを添付写真のようにフォームに表示させる方法がわかりません。 IDを振ったのは社員Noで絞り込み、昇順・降順で表示させる順番を 推移の新しい順、古い順に可変させられるのでは・・?と思ったので IDフィールドを付けました。 いろいろ検索し=DLOOKUPを使ったりと試してみましたが、よくわかり ませんでした。 何卒お力添えをお願い致します。

  • コンボボックスの複数列表示に関して

    開発言語:Visual Basic 2008 現在、コンボボックスをフォーム上に作成し、そのコンボボックスにテーブルから取得した項目を表示させ、 選択させるような事を考えています。 その際に、コンボボックスに表示する内容として、例えば2つの列、  コード、内容  001、北海道  002、青森 というように、コード、内容という2つの項目が存在し、内容だけでなく、コードも同時に表示させる事を検討しています。 インターネット等で検索した際に、そもそも2つの項目を1つのコンボボックスに表示させる事は難しく、仮に表示させたい 項目がテーブルに存在するのであれば、SQLで対応すればとの事が記載があった為に、以下のように対応しました。 《内容》 'SQL文作成 Select_SQL = "select 案件コード,案件名, CONCAT(CONCAT(案件コード,' :'),案件名) as fullname from T_案件" 'SQL文と接続情報を指定し、MySQLコマンドを作成 da = New MySqlDataAdapter(Select_SQL, Connection) 'DataAdapterを指定し、自動的に更新コマンドを生成するコマンドビルダーを作成 cb = New MySqlCommandBuilder(da) 'データセットの中に案件マスタ_Tというテーブルを作成し、そこへ格納する。 da.Fill(ds, "案件マスタ_T") 'コンボボックスに案件マスタ_Tを連結する CMB_2.DataSource = ds.Tables("案件マスタ_T") 'コンボボックスに結合項目名を表示する CMB_2.DisplayMember = "fullname" '案件コードをSelectdValueで取得する CMB_2.ValueMember = "案件名" 但し、この場合、仮にコードが3桁でなく2桁のものが混在してしまった場合、プルダウンの 表示としてガタガタな形(内容の表示が綺麗に左でそろわない)となってしまいます。 そこで、別の方法で、何かコンボボックスに複数列表示させ、なおかつ、項目の列幅が整列 するような方法はないでしょうか。。。 教えて下さい。

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

    質問があります。下記のようなテーブルがあります。 ▼商品情報テーブル  ・商品ID (番号はオート。キー)  ・商品番号(自社で設定している商品ごとの番号)  ・商品名 これを「受注伝票」フォームに使用します。 商品番号をコンボボックスで指定すると 商品名が別のテキストボックスに自動で表示。 もし登録されていない商品の場合には 商品番号と商品名をその場で登録して商品情報テーブルに反映させたい。 コンボボックスで選択する際はID順ではなく、 商品番号の昇順で並び替えたいと思います。 商品番号は数値ではなくテキストになっています。 弊社では「i0001、i0002...」のように、商品番号の頭に「i」が付くからです。 ACCESSのバージョンは2002です。 どうぞよろしくお願いいたします。