Access VBA質問箱 IV

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

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


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

5827 / 9994

←次へ　｜　前へ→


	【7380】Re: DFirstで大丈夫なの？

たん - 06/2/24(金) 8:43 -


	引用なし

	パスワード

横から失礼。

DFirstには、下記の技術情報が出ています。
http://support.microsoft.com/kb/208190/ja

DFirstでの取得で正しいのかどうかは、質問者が判断して下さい。

また、

>Function TEST001()

については、下記のようにすべきかと。
（同じDLoookupを繰り返すのは処理が遅くなるだけなので、
　１回処理した結果は変数等に格納し、２度手間かけさせないようにすべき。）

Function TEST001()
Dim wk_Dfirst_1 AS String, wk_Dfirst_2 AS String

wk_Dfirst_1 = Nz(DFirst("ModelNo", "M1"), "")
wk_Dfirst_2 = Nz(DFirst("ModelNo", "M2"), "")

If wk_Dfirst_1 = "あ" And wk_Dfirst_2 = "い" Then
　 MsgBox "Ｍ１、Ｍ２正解"
ElseIf wk_Dfirst_1 = "あ" Then
　 MsgBox "Ｍ１不正解"
ElseIf wk_Dfirst_2 = "い" Then
　 MsgBox "Ｍ２不正解"
End If
End Function

# 元コードではEnd Ifの後に、MsgBox "Ｍ２不正解"やってますよ。

１行でやらせたくても、M1、M2が正解の場合と、どちらかが不正解の
場合に出すメッセージパターンが違うので、現状の仕様では、同一には、
出来ません。

# 出来なくはないけど、結局、IFで３回チェックするのは変わりません。
# （１行に見えるだけで、結局は３回処理させるので）

MsgBox "Ｍ１：" & IIF(wk_Dfirst_1 = "あ","正解","不正解") & CHR(13) & _
　"Ｍ２：" & IIF(wk_Dfirst_2 = "い","正解","不正解")

というように、正解の時に出すメッセージパターンと不正解の時に出す
メッセージパターンを同一にすれば可能かと。

463 hits

▼

【7342】二つのテーブルの内容をチェックするには kumakai 06/2/21(火) 14:00