OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

エラ-9 ” Null値が不正です!! ”の解消方法は?

  • 困ってます
  • 質問No.238711
  • 閲覧数180
  • ありがとう数3
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 22% (2/9)

Private Sub ComboBox1_Change()
Dim db As Database
Dim Tname As Recordset

Set db = OpenDatabase("c:\Sam1.mdb ", True)
Set Tname = db.OpenRecordset("Table1", dbOpenTable)
N = ComboBox1.ListIndex

Tname.Move N
TextBox1.Text = Tname.Fields(0).Value
TextBox2.Text = Tname.Fields(1).Value
TextBox3.Text = Tname.Fields(2).Value

Tname.Close
db.Close

Set Tname = Nothing
Set db = Nothing
End Sub
エクセルよりmdbファイルを開けて、ComboBoxのリストインデクッス番号
値とmdbのレコ-ド数値が合致することから、各フィ-ルドの値をTextBox
に返すプログラムを作りました。デ-タが各フィ-ルドに存在する時はう
まくいくのですが、空の時(Null値の時)は”Null値が不正です!!”とい
うエラ-がでて止まってしまいます。Null値はNull値として、TextBoxに
返したいのですが、どうすればよいでしょうか?
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全2件)

  • 回答No.1
レベル11

ベストアンサー率 33% (102/305)

TextBoxのTextはあくまで文字列です。 文字列にNullという値は代入できないと思います。 文字列には""(ダブルクオーテーション)がつきます。 それで、Null値は、""(ヌルストリング)にすることが必要です。 If Tname.Fields(0).Value=Null Then TextBox1.Text = "" ...続きを読む
TextBoxのTextはあくまで文字列です。
文字列にNullという値は代入できないと思います。
文字列には""(ダブルクオーテーション)がつきます。
それで、Null値は、""(ヌルストリング)にすることが必要です。

If Tname.Fields(0).Value=Null Then
TextBox1.Text = ""
End If

例えば、こんなのです。
お礼コメント
kenchan_h

お礼率 22% (2/9)

ありがとうございます、試してみます。
投稿日時 - 2002-03-21 00:32:33

  • 回答No.2
レベル13

ベストアンサー率 68% (791/1163)

TextBox1を例にして、 (1)  TextBox1.Text = "" & Tname.Fields(0).Value (2)  TextBox1.Text = IIf(IsNull(Tname.Fields(0).Value), "", Tname.Fields(0).Value) (3)  If Not IsNull(Tna ...続きを読む
TextBox1を例にして、

(1)
 TextBox1.Text = "" & Tname.Fields(0).Value

(2)
 TextBox1.Text = IIf(IsNull(Tname.Fields(0).Value), "", Tname.Fields(0).Value)

(3)
 If Not IsNull(Tname.Fields(0).Value) Then
   TextBox1.Text = Tname.Fields(0).Value
 Else
   TextBox1.Text = ""
 End If

(4)On Error で対応

と色々あるようです。。。ご参考に。
お礼コメント
kenchan_h

お礼率 22% (2/9)

ありがとうございます、試してみます。
投稿日時 - 2002-03-21 00:34:25
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ