- ベストアンサー
アクセス2000
教えてください。 アクセス2000で下記の構文の’原価’という項目を追加したいのですが、 テキストに参照してきてくれません。’人工’は追加できたのですが・・・・ テーブル・クエリ・等はフィールド追加しているのですが・・・ 何が悪いのでしょうか・・・ Private Sub 商品コード_AfterUpdate() 'テキストボックスに商品コードコンボボックスの値を代入します Me!品名 = Me!商品コード.Column(1) Me!単位 = Me!商品コード.Column(2) Me!単価 = Me!商品コード.Column(3) Me!人工 = Me!商品コード.Column(4) Me!原価 = Me!商品コード.Column(5)
- buchi1
- お礼率52% (10/19)
- オフィス系ソフト
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
関連するQ&A
- Access columnプロパティについて
フォームのコンボボックスで商品コードを選択して 非連結のテキストボックスに選択された商品コード の単価をcolumnで自動入力するようにしたのですが 単価の変更がある場合はこの既定値の単価を変更したい です。今の状態で単価を変更をしようと思っても なにかロックがかかったようになっています。 なぜだかわからないので教えていただけませんか？
- ベストアンサー
- オフィス系ソフト
- アクセス コンボボックスで全項目表示
アクセス2000で発注書をつくっています 発注書フォームのサブフォーム「発注書sub」内で 「大項目」「中項目」「小項目」「商品コード」の ４つのコンボボックスを設置し、 絞込み検索で商品明細を入力しています 新規レコードに移動するときに 「大項目」「中項目」「小項目」の値を空白にし、 ４つめの「商品コード」コンボボックスで 全商品を表示させたいのですが どう記述していいのかわかりません 現在は Private Sub 商品コード_AfterUpdate() Me.品番 = Me.商品コード.Column(1) Me.商品名 = Me.商品コード.Column(2) Me.色 = Me.商品コード.Column(3) Me.サイズ = Me.商品コード.Column(4) Me.商品単価 = Me.商品コード.Column(5) End Sub Private Sub 小項目_Enter() Me!商品コード.Requery End Sub Private Sub 大項目_AfterUpdate() Me!中項目.Requery End Sub Private Sub 中項目_AfterUpdate() Me!小項目.Requery End Sub Private Sub 小項目_AfterUpdate() Me!商品コード.Requery End Sub 'フォーカスが移ると同時にドロップダウンさせる Private Sub 大項目_GotFocus() Me.大項目.Dropdown End Sub Private Sub 中項目_GotFocus() Me.中項目.Dropdown End Sub Private Sub 小項目_GotFocus() Me.小項目.Dropdown End Sub 'テスト Private Sub 摘要_LostFocus() Me!大項目 = Null Me!中項目 = Null Me!小項目 = Null Me!商品コード.Requery End Sub です。 発注書フォーム（単票フォーム） レコードソース「発注書」 サブフォーム名「発注書sub」(帳票形式) レコードソース「発注書明細」 リンク親フィールド子フィールドともに「発注書コード」 （他に表記が必要なのがあるかもしれませんが。。） テーブル ●発注書明細 「明細コード」「発注書コード」「商品コード」「品番」「商品名」「色」「サイズ」「商品単価」「数量」「摘要」です ●商品マスタ 「商品コード」「品番」「種類」「大項目」「中項目」「色」「商品名」「サイズ」「商品単価」 です。 どなたか ご指導のほどよろしくお願いいたします
- 締切済み
- その他(データベース)
- コンボBOXで抽出した値をテキストBOXに表示したい
入力用フォームで注文フォームを作成しているのですが、コンボBOXで商品Noを抽出し、テキストBOXに商品名を表示したいのですが、 Private Sub コンボ1_AfterUpdate() Me!テキスト1 = Me!コンボ1.column(1) End Sub と入力したのですが、他の行にも同じ商品名が表示されます。 商品NoをコンボBOXで指定し、数量を手入力という入力フォームを作成したいのです。 作成方法を教えてください。 よろしくおねがいします
- ベストアンサー
- オフィス系ソフト
- Accessのフォーム その２
すいません、以前にも同じ質問をしたのですが、私の質問の仕方が悪くてうまくいきませんでした。 回答してくださった方、ありがとうございました！ もう一度、詳しく質問しなおします。 顧客データを登録しているのですが、テーブルを元に登録フォームを作成しました。 商品がたくさんあって、４つのコードに分かれています。フォームの中に[Ａ][Ｂ][Ｃ][Ｄ]と４つのコンボボックスを作成し、絞込み検索ができるようにはしました。 しかし、選んだデータの[Ａ]しかテーブルに表示されません。例えば[Ａ]のコンボボックスの中から[１０１０]を選択、[Ｂ]のコンボボックスから選択しようとしても空っぽです。 テーブルを見ると、[Ａ]で選んだ[１０１０]だけが表示されています。 非連結のときはうまく出てたんですが・・。 もしかして連結列が間違ってるのでしょうか？？ 元になるテーブルは Ａコード Ａ Ｂコード Ｂ Ａコード Ｃコード Ｃ Ｂコード Ｄコード Ｄ Ｃコード この２列目を表示したいのです。（２列目が[１０１０]など表示したいデータ） 列数はそれぞれ「２」で連結列は「２」です。 更新後処理は以下の通りです。 Private Sub コンボ0_AfterUpdate() Me!コンボ2.Requery End Sub Private Sub コンボ2_AfterUpdate() Me!コンボ4.Requery End Sub Private Sub コンボ4_AfterUpdate() Me!コンボ6.Requery End Sub ぜひよろしくお願いします。
- ベストアンサー
- その他(ソフトウェア)
- Access VBA
Access 2000 についての質問です。 下記のようなフォーム上のコンボボックスで 商品、産地、サイズを選択 →テキストボックスに個数を入力 →見積りボタンをクリック →テキストボックスに合計金額を表示 ----------------------------------------- フォーム コンボ コンボ コンボ テキスト 商品 産地 サイズ 個数 ボタン テキスト 見積り 金額：＿＿＿＿＿＿円 ----------------------------------------- というものを、下記の表に基づいて作りたいのです。 単価.xls ===================== 商品 産地 サイズ 単価 みかん 和歌山 L 30 リンゴ 青森 M 50 リンゴ 青森 L 70 リンゴ 長野 L 70 ===================== そこで、コンボボックスで選択した値を活かして 単価.xlsの ”単価”の値を利用して テキストボックスに表示したいのですが、 どのように記述すれば使用できるのか？わかりません。 超初心者ですのでわかりやすく教えてください。よろしくお願いします。
- 締切済み
- その他(データベース)
- Access2000 DLookup関数の使い方
色々試してみたのですがわからないので質問させていただきます。 フォーム/サブフォームを作っています。 サブフォームにある商品コード（コンボボックス）を入力すると、同じサブフォームにある単位、単価に商品台帳テーブルの値（単位、単価）を持ってくるようにしたつもりなのですが・・・。 商品コードの更新処理後に以下のコードを記述したのですが、うまく動きません（エラーは出ない）。 Me![単価] = DLookup("[単価]","商品台帳","[商品コード] = [Forms]![フォーム]![サブフォーム]![商品コード]") どこが悪いか教えていただけないでしょうか？
- ベストアンサー
- オフィス系ソフト
- Access2003とAccess2007の違い
Access独習者です。 入門書で「物品貸出状況フォーム」を作成しました。 フォーム画面「物品貸出状況一覧表」の下に作ったコンボボックス289「大分類」とコンボボックス291「小分類」で 貸出状況を調べる物品を絞り込み一覧表に取り込みます。 コンボボックス「大分類」「小分類」の値集合ソースはそれぞれ「T_大分類」と「T_小分類」です。 Access2003では下記のコードとコンボボックス291「小分類」の値集合ソースのクエリビルダに組み込んだ 抽出条件「大分類番号[コンボ289]」で絞り込んだ物品が一覧表に表示されたのですが、Access2007では コンボボックス289「大分類」を変更後コンボボックス291「小分類」が更新されません。 Access2003とAccess2007でなにか違いがあるのでしょうか。 お聞きするのに提示すべきコードなどそろっていないかもしれないのですが、ご助言いただければ助かります。 よろしくお願いいたします。 Private Sub コンボ289_AfterUpdate() Me!コンボ291.Requery End Sub Private Sub コンボ291_AfterUpdate() Me.Filter = "小分類番号=" & コンボ291 Me.FilterOn = True End Sub
- ベストアンサー
- オフィス系ソフト
- アクセスでのリスト表示について。
アクセス初心者です。フォームのコンボボックスにテキストボックスをつけて、コンボボックスには担当者コードテキストボックスには=cmb_担当者.column(1)等と書いて、担当者名をcolumnで表示するのは可能ですよね。リストボックスの中で一覧表を作成したのですが、今は数値ばかりが見えていて、訳が分かりません。テーブルへのデータはほとんど数値で入っていくようにしています。columnが使えたら、テキストでも表示されるので見やすくなると思うのですが、クエリでのcolumnの作成は可能なのでしょうか？
- ベストアンサー
- オフィス系ソフト
- アクセスでの抽出方法
アクセス２０００を使用しています。 今までエクセルで単価を調べていたのを、アクセスで調べたいと考えています。 今は下図のようにテーブルのフィールドを作りました。 担当者 見積番号 機械名 部品名１ 単価１ 部品名２ 単価２・・・ ○○様 ００１ △△機 Ａ１ ５００ Ａ２ ３００ ただ、機械一式で作る場合は問題無いのですが、機械の部品だけを数点作る、という事が多くあります。 例えば、機械一式の場合は下記のようなテーブルを作りました。 品名１ 単価１ 品名２ 単価２ 品名３ 単価３ 品名４ 単価４・・ Ａ１ ５００ Ａ２ ３００ Ａ３ ８００ Ａ４ ２００ この機械で部品３点の場合は下記のようになります。 品名１ 単価１ 品名２ 単価２ 品名３ 単価３ 品名４ 単価４・・ Ａ２ ３００ Ａ４ ２００ Ａ６ ８００ Ａ９ ３００ これで「Ａ２の部品の単価が知りたい」となった時には、フォームに「テキストボックス品名１」と「テキストボックス品名２」を作り、それぞれから調べる方法しか僕には分かりません。 これを、１つのテキストボックスで、部品名を入力またはコンボなどからの選択で、品物１、品物２、品物３などのフィールド全てから検索し、単価を抽出する事は出来ないでしょうか？ 今はエクセルで見積書を作成し、そこからアクセスへインポートしています。 言葉足らずかも知れませんが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ACCESSのコンボボックスについて
ACCESSのコンボボックスに「012/015/028/125」等が設定されているて、 コンボボックスのプロパティの「入力チェック」は「はい」の設定になっております。 そういった場合、「12」と入力した場合、「012」とすることは可能でしょうか？ テキストボックスの場合には、そのテキストボックスの更新後処理で Me.コード = Format(Me.コード, "000") のように記述し変更していたのですが・・・。 コンボボックスでは、「指定した値はリストにありません」と表示され、更新後処理がが実行されません。
- ベストアンサー
- その他([技術者向] コンピューター)
お礼
ありがとうございました。 コンボボックスの列数が4のままでした・・・ 超初心者なものでして・・・ 出来上がっているものを改造しながら使っているので手探り状態でアクセスに 取り組んでいます・・・・ また何か問題があったらお願いいたします。 ありがとうございました。