Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8188 / 9994

←次へ　｜　前へ→


	【4986】Re:連動するデータ表示

小僧 - 05/5/9(月) 13:21 -


	引用なし

	パスワード

▼kao さん：
こんにちは。

顧客IDコンボボックスと商品IDコンボボックスの値が
両方入った時に単価テキストボックスに値を代入しております。

Private Sub 顧客IDコンボボックス_AfterUpdate()
　　If IsNull(Me.商品IDコンボボックス.Value) _
　　Or IsNull(Me.顧客IDコンボボックス.Value) Then Exit Sub
　　Call 単価抽出
End Sub

Private Sub 商品IDコンボボックス_AfterUpdate()
　　If IsNull(Me.商品IDコンボボックス.Value) Or _
　　IsNull(Me.顧客IDコンボボックス.Value) Then Exit Sub
　　Call 単価抽出
End Sub

Sub 単価抽出()
Dim Tanka As Variant
　　Tanka = DLookup("単価", "T_単価", _
　　　　　　　　　"顧客ID = " & Me.顧客IDコンボボックス.Value & " AND " _
　　　　　　　　& "商品ID = " & Me.商品IDコンボボックス.Value)
　　If IsNull(Tanka) Then
　　　　Me.単価テキストボックス = "該当無し"
　　Else
　　　　Me.単価テキストボックス = Tanka
　　End If
End Sub

288 hits

▼

【4985】連動するデータ表示 kao 05/5/9(月) 12:10