名前を入力してその人のデータを抽出したい。パスワードが空欄のときメッセージを表示させコントロールソースを変更したいのですが、できません。どなたかアドバイスお願いします
If (Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号].Value = "") Then
↑これが認識しません。「NULL」でやってもだめです。
以下がソースです。
Private Sub cmd検索_Click()
Forms![名前検索]![SUB_名前検索].Requery
If DCount("[使用者氏名]", "q_リンク名前抽出") = 0 Then
MsgBox "データがありませんよ"
Me.txt名前入力.SetFocus
End If
If (Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号].Value = "") Then
MsgBox "から"
Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号].ControlSource = "入力データフォーマットV8新人.職員番号"
End If
No.1ベストアンサー
- 回答日時:
="" =NULL の命令はあんまり 機能発揮しないことがありますからね
ISNULL 関数を使うほうがいいと思います
Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号]
をどこか1次的な 項目へ入れて
DIM KOMOKU-1 AS VARIANT
KOMOKU-1=Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号]
IF ISNULL(KOMOKU-1) THEN
MsgBox "から"
ENDIF
---------------------------------------------------------
あと 気づいた点は
サブフォームの中の項目指定は
[Forms]![フォーム名]![サブフォーム名].[Field名]
でいいんじゃないでしょうか
Value はなくてもいい???
No.4
- 回答日時:
If (Nz(Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号].Value) = "") Then
ではどうでしょうか?
NzでNull値をNullでない空の値(変数の型によって0または""またはその他)を返してくれます。
No.3
- 回答日時:
#1さんの回答で、ほぼ終了だと思うけど・・・
補足で、Nullは、型でもあり、値でもあると言うことで、=は、代入の意味でしか使用できません
等号演算としての=はNullは、使用できないんですよ
Nullを検出するならIsNull関数か? Is 演算子を使用することになります
どっちが楽かといえば、IsNull関数の方が楽かな?
Valueは、Vriant型で、文字の場合、Vriant/String型、空白の場合、Variant/Null型と、型が変更になってたと思うよ
No.2
- 回答日時:
X If (Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号].Value = "") Then
O IF Not Len(Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号] & "") Then
は、判るんですが、メイン・サブフォームの関係では使えないと思います。
だって、サブフォームですから複数行が発生していると思います。
部門:
ID_部門
_1_A
_2_B
職員名簿:
部門_ID__ID__職員名
______1___1__OOOO
______1___2________
このサブフォームの部門=1、職員名簿.ID=2 が空とのメッセージを出す場合は・・・。
こんな難しいことは私はしないです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
市役所職員は他の市に住所を移...
-
市役所の会計年度任用職員につ...
-
自主退職に追い込む 自主退職に...
-
休日に仕事の買い出しが…
-
B型作業所で利用者として働いて...
-
自治労を辞めたいのですが。
-
平成18年度以降に社会福祉法...
-
火葬場のおじさん。
-
ちょっとした仕事の悩みです。 ...
-
退職まであと1ヶ月半ですが、...
-
市役所の臨時職員。契約更新し...
-
出入国在留管理の申請等取次申...
-
この話を、どう思いますか?
-
ハローワークの職員
-
図書館で電卓を叩く人、私語す...
-
農協はノルマがあるので、辛い...
-
府知事と市長は兼任出来るので...
-
世の中天罰ってあると思いますか?
-
職場の職員において、「私がア...
-
遠回しにいうぶりっこがむかつく
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
市役所の会計年度任用職員につ...
-
公務員の横柄な態度は我慢する...
-
市役所職員は他の市に住所を移...
-
保育園で服をなくされてしまい...
-
JA(農協)ってブラックなん...
-
社協職員の保険、年金
-
地方公共団体における監と官
-
B型作業所 辞める 後悔
-
県職員の方と会話をしたことが...
-
教員の「任免」と「採用」の用...
-
出入国在留管理の申請等取次申...
-
一時保護所、児童相談所の対応...
-
B型作業所を辞めたのですが聞...
-
就労継続支援B型事業所 管理者 ...
-
自主退職に追い込む 自主退職に...
-
市役所の臨時職員。契約更新し...
-
田舎の公民館に非正規職員とし...
-
常勤的非常勤職員とは。。。
-
公務員の引越し
-
この職員が、何だか勝手に俺の...
おすすめ情報