Access VBA質問箱 IV

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

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


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

6676 / 9994

←次へ　｜　前へ→


	【6520】Re:入力規制

小僧 - 05/10/17(月) 18:00 -


	引用なし

	パスワード

▼koorin さん：
こんにちは。

なんとなく状況は理解できるのですが…。

VBA やクエリを使用する場合は、
フィールドのデータ型によって条件式が変わる場合が多々あります。

また今回のご質問の場合は、フォーム上にどういったコントロールが
配置されているかもご提示されておりません。

全て回答者の想像任せになってしまうために、勘を外すと効率が悪くなってしまいますよね？
どのへんまでを情報として提示した方が良いのかは
難しいと思うのですが、もうちょっと情報量を増やして下さいね。

さて、フォーム上には「注番」というテキストボックスに数値型の番号があると仮定しますと、

Private Sub 見積金額_BeforeUpdate(Cancel As Integer)
Dim curCost As Currency
　　curCost = CCur( _
　　DLookup("コスト合計","注番別コスト","注番 = " & Me.注番.Value)*1.3)

　　If Me.見積金額.Value < curCost Then
　　　　MsgBox "利益30%以下！"
　　　　Cancel = True
　　End If
End Sub

こんな感じになると思います。

256 hits

▼

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