• ベストアンサー

【Access VBA】subフォームの空のテキストデータが認識できない

名前を入力してその人のデータを抽出したい。パスワードが空欄のときメッセージを表示させコントロールソースを変更したいのですが、できません。どなたかアドバイスお願いします 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

質問者が選んだベストアンサー

  • ベストアンサー
  • a3453a
  • ベストアンサー率28% (132/460)
回答No.1

="" =NULL の命令はあんまり　機能発揮しないことがありますからね ISNULL 関数を使うほうがいいと思います Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号] をどこか１次的な　項目へ入れて DIM KOMOKU-1 AS VARIANT KOMOKU-1=Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号] IF ISNULL(KOMOKU-1) THEN MsgBox "から" ENDIF --------------------------------------------------------- あと　気づいた点は サブフォームの中の項目指定は [Forms]![フォーム名]![サブフォーム名].[Field名] でいいんじゃないでしょうか Value はなくてもいい？？？

その他の回答 (3)

回答No.4

If (Nz(Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号].Value) = "") Then ではどうでしょうか？ NzでNull値をNullでない空の値(変数の型によって0または""またはその他)を返してくれます。

  • Dxak
  • ベストアンサー率34% (510/1465)
回答No.3

＃１さんの回答で、ほぼ終了だと思うけど・・・ 補足で、Nullは、型でもあり、値でもあると言うことで、＝は、代入の意味でしか使用できません 等号演算としての＝はNullは、使用できないんですよ Nullを検出するならIsNull関数か？ Is 演算子を使用することになります どっちが楽かといえば、IsNull関数の方が楽かな？ Valueは、Vriant型で、文字の場合、Vriant/String型、空白の場合、Variant/Null型と、型が変更になってたと思うよ

noname#140971
noname#140971
回答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 が空とのメッセージを出す場合は・・・。 こんな難しいことは私はしないです。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • ｖｂａ　ユーザーフォームについて

    勉強のためにvb勉強中です。エクセルのユーザーフォームについて質問です。 コンボボックス 01 02 のどちらかを選択すると、テキストに入力した数字は、01を選択したら１１行、02を選択したら12行に転記できるようにしたいのですが、if文を使うのだろうと思うのですが、教えていただけないでしょうか。 私が途中まで作成した載せておきます。よろしくお願い申し上げます。 Private Sub CommandButton1_Click() Dim rc As Long Dim retu As Long Dim Ctrl As Control If Me.txtComboBox1.Value = "" Then MsgBox "社員名を選択してください！", vbOKOnly Me.txtComboBox1.SetFocus Exit Sub End If rc = MsgBox("件数を入力しますか？", vbYesNo) If rc = vbYes Then MsgBox "実行する" Else MsgBox "中止しました" Exit Sub End If retu = Cells(3, Columns.Count).End(xlToLeft).Column + 1 Cells(3, retu).Value = Me.txtComboBox1.Value ←社員を選択 Cells(4, retu).Value = Me.txtsuzuki.Value　　←売れた件数 Cells(5, retu).Value = Me.txttoyota.Value　　←売れた件数 Cells(6, retu).Value = Me.txthonnda.Value　　　←売れた件数 For Each Ctrl In Me.Controls If Ctrl.Name Like "txt*" Then Ctrl.Value = "" End If Next Ctrl End Sub また、テキストボックスに数字だけ入力して、プルダウン選択してないとエラ～メッセージも出るようにしたいです...

  • Excel VBA テキストボックスを検索

    テキストボックス３に数値を入力し ExcelのA列にあるか検索をかける。 ある場合は、B列の同じ行に 「みーつけた！」と入力。 その設定で組んでみたのですが、 テキストボックス３にデータを6桁入力しようとすると 6桁目にオーバーフローエラーが出ます。 このプログラムの何処がおかしいのでしょうか？ Private Sub TextBox3_Change() Dim Number As Integer If TextBox3.Value <> "" Then '空じゃない場合 Number = TextBox3.Value Call 検索(Number) MsgBox TextBox3.Value End If End Sub Sub 検索(ByVal Number As Variant) Dim FoundCell As Range Set FoundCell = Range("A:A").Cells.Find(What:=Number, lookat:=xlPart) If FoundCell Is Nothing Then Else FoundCell.Activate Range("O" & ActiveCell.Row).Value = "みーつけた！" End If End Sub

  • exel　vba ワークシートデータを日付にしたい

    ワークシートからＦＩＮＤ関数でＩＤ検索し、生年月日の検索値をテキストボックスに表示します。 過去データがない場合は日付形式で入力を促すため、日付形式でない場合誕生日EXITでエラーメッセージを表示させます。 過去データがあった場合はワークシートからデータを表示するのですが、ワークシートの日付データが25897のような数値で表示されるのでエラーになります。 ワークシート自体には日付形式で入力されていても、フォームにＶＢＡで値を引っ張ると数値になってしまいます。数値を日付データに戻して表示はどうすればよいでしょうか？ ’ＩＤを入力した後のＢＶＡです。 ************************************************************************************************* Private Sub TextBoxID_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim FRange As Range If TextBoxID.Text = "" Then Exit Sub End If ID = TextBoxID.Text On Error GoTo ErrHdl Worksheets("data").Activate With ActiveSheet Set FRange = .Range("b2:ｂ65536").Find(ID, LookIn:=xlValues, LookAt:=xlWhole) If FRange Is Nothing Then MsgBox "新規です" Exit Sub End If TextBoxシメイ.Value = FRange.Offset(0, 1).Value TextBox誕生日.Value = FRange.Offset(0, 2).Value sex = FRange.Offset(0, 3).Value If sex = "M" Then OptionButton男.Value = True Else OptionButton女.Value = True End If TextBox体重.SetFocus End With Exit Sub ErrHdl: MsgBox "エラー" & Err.Number & Chr(13) & Err.Description End Sub *********************************************************************************************** Private Sub TextBox誕生日_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsDate(TextBox誕生日.Text) = False Then MsgBox "日付型データで入力.ex:H10/5/5" TextBox誕生日.Value = "" Else Exit Sub End If End Sub

  • EXCEL　VBA　データ抽出について

    ユーザーフォームを利用して、データの管理を行なっております 各データには、コードを設定しており 検出時に利用しています フォームでコードを入力する際には 前半（年・月）　後半（No.）で２か所に分けて入力しており 以下、コード前半⇒　コード１ 　　　　コード後半⇒　コード２　　・・・としておきます シートへの転記も、コード１はA列・コード２はB列に分けて書き込んでいます 以下は、コードからデータを検出し、その内容をテキストボックスへ表記するように 書いたコードですが、コード１のみでの検索になっております コード２をどのように組み込めばいいのか、わからずとても困っています。 シート名　AllDate コード１　TextBox36　　　　（A列） コード２　TextBox37　　　　（B列） １行目は項目名になっており、２行目からデータが蓄積されています。 また新規で登録した場合には、空欄最下部へフォームからシートへ転記されるように設定しています 　 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Worksheets("AllDate").Activate Dim i As Long, kb As String If TextBox36.Text = "" Then MsgBox "検索する番号を入力してください" Exit Sub End If For i = 2 To Range("A1").CurrentRegion.Rows.Count If Cells(i, 1).Text = TextBox36.Text Then kb = TextBox36.Text Exit For End If Next If kb = "" Then MsgBox "指定した番号はありません" Exit Sub Else Call ReadRecord(kb) End If TextBox36.Text = "" TextBox37.Text = "" End Sub Sub ReadRecord(kb As String) Dim rw As Long Set kRange = Range("A1").CurrentRegion.Columns(1).Find(What:=kb, LookAt:=xlWhole) If kRange Is Nothing Then MsgBox "データがありません" Exit Sub End If rw = kRange.Row TextBox1.Text = Cells(rw, 1).Value TextBox2.Text = Cells(rw, 2).Value TextBox3Text = Cells(rw, 3).Value TextBox4.Text = Cells(rw, 4).Value ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ また自分なりにも何とか模索しており、フィルターを使う方法も考えておりますが 何分まだまだ初心者LVの為、 こちらも難航しております。 フィルタを使用する場合 TextBox36の値で、A列にて抽出 抽出されたデータから、さらに TextBox37の値で、B列にて抽出 重複データは存在しないので、A２行へ常に１件のデータが残り それをセル指定で、テキストボックスへ転記さようと考えています。 また、修正⇒上書き作業も必要なので フィルタで抽出したデータをテキストボックスへ表示させ 修正後、同様にA２行へ書き込み その後、フィルター解除がいいのかな？と思っています。 長々となり恐縮なのですが 方法のオススめ コードのご教授など お力をお貸しいただけないでしょうか？ よろしくお願いいたします！！

  • ｖｂａ　ユーザーフォームにて質問

    勉強のためにｖｂａにユーザーフォームを作っています。 画像のとおり青色が塗られている箇所に、ユーザーフォームで社員名、件数を 転記したいです。 ユーザーフォーム 社員名 件数 を入力したら範囲はC3からC15転記されます。 転記終わったら、D3からD15に転記。この作業をH列まで行いたいのですが、 C3の列以降転記できません。 お答えできる方いればよろしくお願いします。 Private Sub CommandButton1_Click() Dim rc As Long Dim retu As Long Dim Ctrl As Control If Me.txtComboBox1.Value = "" Then MsgBox "社員名を選択してください！", vbOKOnly Me.txtComboBox1.SetFocus Exit Sub End If rc = MsgBox("件数を入力しますか？", vbYesNo) If rc = vbYes Then MsgBox "実行する" Else MsgBox "中止しました" Exit Sub End If retu = Cells(2, Columns.Count).End(xlToLeft).Column + 1 Cells(3, retu).Value = Me.txtComboBox1.Value ←社員を選択 Cells(4, retu).Value = Me.txtsuzuki.Value　　←売れた件数 Cells(5, retu).Value = Me.txttoyota.Value　　←売れた件数 Cells(6, retu).Value = Me.txthonnda.Value　　　←売れた件数 For Each Ctrl In Me.Controls If Ctrl.Name Like "txt*" Then Ctrl.Value = "" End If Next Ctrl End Sub

  • エクセル2003のＶＢＡで、ユーザーフォームにあるテキストボックスに入力制限をつけたいのですが

    エクセル2003のＶＢＡで、ユーザーフォーム上にあるテキストボックスに入力制限をつけようとしています。 エクセルのセル13列目にdeg値 0 0.5 1 1.5 2 ・ ・ ・ があります。 ここにない値を入力するとエラーメッセージを表示させます。 下記のコードで、小数点を入力した瞬間（例えば「1.」）にエラーメッセージが表示されてしまいます。 どう修正したらよいか、どなたか分かりませんでしょうか？ よろしくお願いいたします。 Private Sub TextBox21_Change() For i = 7 To 1446 If TextBox21.Value = ThisWorkbook.Sheets(\"default\").Cells(i, 13).Value Then Exit For Next i If i = 1447 Then MsgBox \"deg値と一致しません。補正値を入れなおしてください。\" TextBox21.Text = \"\" End If End Sub

  • Excel VBAで検索（Win2000 Excel2000）

    現在、下記のようなコードを書いています。データテーブルの縦と横の検索値を探してその列数と行数を返したいのですが、下記の Sub検索1 と Sub検索2 を1つのSubで実行させるにはどうしたらよいのでしょうか？よろしくお願い致します。 ----------------------------------------- Sub 検索1() Worksheets("Data").Activate Dim x As Integer For x = 3 To 22 If Cells(2, x).Value >= 12 Then MsgBox x Exit Sub End If Next MsgBox "見つかりません" End Sub --------------------------------------------- Sub 検索2() Worksheets("Data").Activate Dim i As Integer For i = 4 To 42 If Cells(i, 2).Value = "A" Then MsgBox i Exit Sub End If Next MsgBox "見つかりません" End Sub

  • エクセルVBAでユーザーフォームのテキストボックス

    ユーザーフォーム上にテキストボックスを8個設置しました。 そこに数値が入力された場合は自動的にカンマ区切りが表示されるように以下のコードを書きました。 これで希望の動きはしてくれるのですが、このやりかたは正しいでしょうか？ また、テキストボックスは8個あるので、それぞれに下記のように8通りコードをかかなければいけないのでしょうか？ご教示ください。 Private Sub TextBox1_Change() 　　If IsNumeric(TextBox1.Value) Then Application.EnableEvents=False 　　　　TextBox1.Text = Format(TextBox1.Value, "#,##0") Application.EnableEvents=True 　　End If End Sub 途中（2～7）略 Private Sub TextBox8_Change() 　　If IsNumeric(TextBox8.Value) Then Application.EnableEvents=False 　　　　TextBox8.Text = Format(TextBox8.Value, "#,##0") Application.EnableEvents=True 　　End If End Sub

  • VBA ユーザーフォーム

    VBA初心者です。以下の様なソースを見つけました。この場合は、文字を検索するとD1 にその該当番号が表示されます。 ※A列には番号、B列には文字列 そうではなく、そのクリックした行のA列にセルが移動し、ユーザーフォームが閉じられる様にできますでしょうか？ よろしくお願い致します。 Private Sub ListBox1_Click() Sheets("Sheet1").Range("D1").Value = ListBox1.Value End Sub Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim v() As Variant Dim c As Range Dim k As Long ListBox1.Clear With Sheets("Sheet1") With .Range("A1", .Range("A" & .Rows.Count).End(xlUp)) ReDim v(1 To 2, 1 To .Rows.Count) For Each c In .Cells If c.Offset(, 1).Value Like TextBox1.Value & "*" Then k = k + 1 v(1, k) = c.Value v(2, k) = c.Offset(, 1).Value End If Next If k = 0 Then MsgBox "指定の値は存在しません" Else ReDim Preserve v(1 To 2, 1 To k) ListBox1.List = WorksheetFunction.Transpose(v) End If End With End With End Sub

  • 検索用フォームで数値型データを抽出する方法

    いつも大変お世話になっております。アクセス初心者ですが宜しくお願いします。 テーブル1を元にクエリ1を作成し，それを元にフォーム表示用を作成しました。フォーム表示用のデータを検索するために非連結のフォーム検索用を作成しました。 検索用フォームでは，氏名，住所，契約締結日等複数の非連結フィールドがあり，入力された値を抽出するために，検索実行というコマンドボタンを一つ配置しています。 検索実行コマンドボタンは，以下のようになっています。 Private Sub 検索実行_Click() On Error GoTo エラー処理 Dim StrWhr As String 'Where条件式 Dim StrMsg As String '表示メッセージ Dim StrSrc As String 'レコードソース Dim stDocName As String '表示用フォームの名前 If Nz(Me!名前, "") <> "" Then StrWhr = IIf(StrWhr = "", "", StrWhr & " And ") & "名前 Like '*" & Me!名前 & "*'" End If If Nz(Me!契約締結日, "") <> "" Then StrWhr = IIf(StrWhr = "", "", StrWhr & " And ") & "Format(契約締結日,'yyyy/mm/dd') Like '*" & Me!契約締結日 & "*'" End If If MsgBox(StrMsg, vbOKCancel, "確認") = vbOK Then DoCmd.OpenForm "frm_顧問先CARD", , , StrWhr End If 終了処理: Exit Sub エラー処理: MsgBox Err & Error$, , Me.Name & " 検索実行" Resume 終了処理 End Sub 表示用フォームに契約年数という項目があり，数値型のデータが入力されています。そのデータを検索用フォームで算術演算子を使用して抽出するには，どのようにしたら良いでしょうか。 過去に質問したことと似ているので，色々と参考書を見ながら考えてみたのですが，上手くいきません。 できれば，一つのテキストボックスに >12 とか 4<8 とか入力してデータを抽出したいですが，不可能なら検索用フォームに二つのテキストボックスを配置して，そのテキストボックスで範囲を指定し，範囲内のレコードを抽出するという方法でも構いません。 どなたか，ご教示下さい。宜しくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する