Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1017 / 2272 ツリー ←次へ | 前へ→

【9114】コンボボックスとデータテーブルについて neko 07/2/14(水) 12:05 質問[未読]
【9115】Re:コンボボックスとデータテーブルについて まさ7251 07/2/14(水) 12:22 発言[未読]
【9116】Re:コンボボックスとデータテーブルについて neko 07/2/14(水) 14:01 質問[未読]
【9117】Re:コンボボックスとデータテーブルについて まさ7251 07/2/14(水) 14:45 発言[未読]
【9118】Re:コンボボックスとデータテーブルについて neko 07/2/14(水) 15:04 質問[未読]
【9119】Re:コンボボックスとデータテーブルについて まさ7251 07/2/14(水) 15:27 発言[未読]
【9135】Re:コンボボックスとデータテーブルについて まめ 07/2/22(木) 15:02 お礼[未読]

【9114】コンボボックスとデータテーブルについて
質問  neko  - 07/2/14(水) 12:05 -

引用なし
パスワード
   度々ご質問です。

受注データを入れるフォームを作りました。

商品名の部分をコンボボックスにして、商品を選ぶと単価が出る仕組みです。
そこまでは上手くいくのですが、
データテーブルには商品名の部分が0になってしまいます。

そこで、


Private Sub 受_ICID_Change()
Me.受_単価 = 受_ICID.Column(2)
End Sub

Private Sub 受_商品名_Change()
Me.受_単価 = 受_商品名.Column(2)
Me.[受_小計] = Me.[受_単価] * Me.受_受注数
Me.[受_商品名1] = Me.受_商品名.Column(1)
End Sub

Private Sub 受_受注数_BeforeUpdate(Cancel As Integer)
Me.受_単価 = 受_ICID.Column(2)
Me.[受_小計] = Me.[受_単価] * Me.受_受注数
Me.[受_商品名1] = Me.受_商品名.Column(1)
End Sub


というコードを作りましたが
どうも上手くいきません。

このコードに限らず、他に良い方法をご存知のお方がいらっしゃいましたら教えてください。
宜しくお願い致します。

【9115】Re:コンボボックスとデータテーブルについ...
発言  まさ7251  - 07/2/14(水) 12:22 -

引用なし
パスワード
   受_ICID、受_単価、受_商品名、受_小計、受_受注数、受_商品名1
のようなコントロールがあるようですが、それぞれの説明がない状態では、
何らかの設定がおかしいのでは?ということになります。

> データテーブルには商品名の部分が0になってしまいます。

とありますが、画面上では問題ないのでしょうか。
どのコントロールが、この項目と連結されているのでしょうか。

また、コンボボックスに関しては、以下の設定がどうなっているのかも
書き込んでみてください。

値集合タイプ、値集合ソース、列数、列幅、連結列

【9116】Re:コンボボックスとデータテーブルについ...
質問  neko  - 07/2/14(水) 14:01 -

引用なし
パスワード
   度々ありがとうございます。
そして説明不足で申し訳ございません。


▼まさ7251 さん:
>受_ICID、受_単価、受_商品名、受_小計、受_受注数、受_商品名1
>のようなコントロールがあるようですが、それぞれの説明がない状態では、
>何らかの設定がおかしいのでは?ということになります。


受_ICID 商品マスタのICIDとリレーションしています
受_単価 商品マスタより
受_商品名 商品マスタより
受_小計 受_単価*受_受注数 
受_受注数 注文によって数が違うので特にコントロールしてないと思います
受_商品名1 以前作った人の残骸です。必要なのかは不明です


>
>> データテーブルには商品名の部分が0になってしまいます。
>
>とありますが、画面上では問題ないのでしょうか。
>どのコントロールが、この項目と連結されているのでしょうか。
>
>また、コンボボックスに関しては、以下の設定がどうなっているのかも
>書き込んでみてください。
>
>値集合タイプ、値集合ソース、列数、列幅、連結列


コンボボックスの名前は受_ICIDになっていて
実際コンボボックスで選ぶとフォームでは商品名が見えるようになっています。
しかし、データにはその商品名は残らず、0になっています。


値集合タイプ テーブル/クエリ
値集合ソース SELECT [商品マスタ].[ICID], [商品マスタ].[IC_商品名], [商品マスタ].[IC_原価] FROM 商品マ
列数 3
列幅 0cm;2.54cm;2.54cm
連結列 1


以上です。

ご迷惑をおかけいたしますが宜しくお願い致します。

【9117】Re:コンボボックスとデータテーブルについ...
発言  まさ7251  - 07/2/14(水) 14:45 -

引用なし
パスワード
   >>> データテーブルには商品名の部分が0になってしまいます。
>>
>>とありますが、画面上では問題ないのでしょうか。

表示は問題ないのですよね。

>>どのコントロールが、この項目と連結されているのでしょうか。

こちらへの返答は?
テーブルの商品名と連結したコントロール(テキストボックス等)は
ないのでしょうか。

受_商品名 と 受_商品名1 がありますが、画面上、どちらにセットされていて
問題ないと言われているのでしょうか。
それぞれのコントロール(テキストボックス?)のコントロールソースは
どうなっていますか。

【9118】Re:コンボボックスとデータテーブルについ...
質問  neko  - 07/2/14(水) 15:04 -

引用なし
パスワード
   ご返答ありがとうございます。

>>>> データテーブルには商品名の部分が0になってしまいます。
>>>
>>>とありますが、画面上では問題ないのでしょうか。
>
>表示は問題ないのですよね。


データテーブルの画面上には「0」とあり、
フォーム入力時点では商品名が入っています


>
>>>どのコントロールが、この項目と連結されているのでしょうか。
>
>こちらへの返答は?
>テーブルの商品名と連結したコントロール(テキストボックス等)は
>ないのでしょうか。


テーブルの商品名と連結しているのは商品マスタにある商品名にしているつもりなのですが・・・


>
>受_商品名 と 受_商品名1 がありますが、画面上、どちらにセットされていて
>問題ないと言われているのでしょうか。
>それぞれのコントロール(テキストボックス?)のコントロールソースは
>どうなっていますか。

受_商品名のコントロールソースは 受_ICID

受_商品名1 のコントロールソースは =[受_ICID].Column(1)

です。

わかりずらいですよね・・・。本当に申し訳ありません。
初めから作ってしまえば良かったのですが、
途中から交代してしまったので・・・

【9119】Re:コンボボックスとデータテーブルについ...
発言  まさ7251  - 07/2/14(水) 15:27 -

引用なし
パスワード
   >>>>どのコントロールが、この項目と連結されているのでしょうか。
>>
>>こちらへの返答は?
>>テーブルの商品名と連結したコントロール(テキストボックス等)は
>>ないのでしょうか。
>
>テーブルの商品名と連結しているのは商品マスタにある商品名にしているつもりなのですが・・・

言い方を変えます。
コントロールソースが”商品名”となっているコントロール(テキストボックス等)は
ありませんか。

ちなみに、どのような仕組みでテーブルに保存されるのかは
理解されていますでしょうか。

あと、商品名をデータテーブルへ保存する必要性はあるのですか。
商品コードのみを保存しておけば良いのではないのでしょうか。

>>受_商品名 と 受_商品名1 がありますが、画面上、どちらにセットされていて
>>問題ないと言われているのでしょうか。
>>それぞれのコントロール(テキストボックス?)のコントロールソースは
>>どうなっていますか。
>
>受_商品名のコントロールソースは 受_ICID
>
>受_商品名1 のコントロールソースは =[受_ICID].Column(1)
>
>です。

”どちらにセットされていて問題ないと言われているのでしょうか。”
と聞いているはずですが、それに対しての明確な返答が見当たりませんけど...
どっちのコントロールが正しい値を表示していますか。
あるいは、両方とも。ですか。

【9135】Re:コンボボックスとデータテーブルについ...
お礼  まめ  - 07/2/22(木) 15:02 -

引用なし
パスワード
   ▼まさ7251 様


色々、考えてみましたところ
データテーブルのルックアップにて修正することができました。
本当にありがとうございます!
散々教えていただきながら、理解するのに苦労し、ご迷惑をおかけしました。
なんとお礼を伝えたら良いか・・・本当に感謝しております。
ありがとうございました!

1017 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078201
(SS)C-BOARD v3.8 is Free