Access VBA質問箱 IV

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

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


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

6658 / 9994

←次へ　｜　前へ→


	【6538】Re:入力規制

小僧 - 05/10/18(火) 13:27 -


	引用なし

	パスワード

▼koorin さん：
Null 対策も含め、ちょっとコードを変えてみました。

Private Sub 見積金額_BeforeUpdate(Cancel As Integer)
Dim varCost As Variant
　　varCost = DLookup("コスト合計", "注番別コスト", "注番 = '" & Me.注番.Value & "'")
　　
　　If IsNull(varCost) Then
　　　　MsgBox "注番:" & Me.注番.Value & "のコスト合計が見つかりません。"
　　　　Exit Sub
　　Else
　　　　varCost = CCur(varCost * 1.3)
　　　　MsgBox "閾値:" & varCost
　　End If
　　
　　
　　If Me.見積金額.value < varCost Then
　　　　MsgBox "利益30%以下！"
　　　　Cancel = True
　　End If
End Sub

Null 値が返って来てしまう、という事は注番別コストから
フォームで指定した注番が見つからない事になってしまうのですが…。

>こういう場合VBAヘルプの目次でいうとどこを見ればよいのでしょうか？

人によって使い方が異なるとは思いますが、当方は「質問」タブを良く使います。
検索窓に「DLookup」と入れて実行すると、DLookup関数に関する情報が載っています。

333 hits

▼

【6510】入力規制 koorin 05/10/17(月) 13:16