[OSのVer]：Windows　xp　　　[VBのVer]：VB.NET　2003

お世話になっています。

Me.txt_day・・・日付
値のみ参照しています。

If Me.txt_day.Value <> "" And IsNothing(Me.txt_day.Value) Then

日付型の空白チェックを行いたいのですが，
Me.txt_seinen.Value<>""　にしてしまうと、エラーになってしまいます。
空白チェックをする方法等ございませんでしょうか?

宜しくお願いします。

> 日付型の空白チェックを行いたいのですが，
日付型の初期値は空白ではありません。

Dim dt As DateTime
Debug.WriteLine(dt)

説明が全く足りてなくてすみません。
日付は　インプットマンの日付コントロールを使用していて
Me.txt_day.text　にしてしまうとデータチェックの時に　
日付未入力時　書式が判断されてしまうので、値のみ取り出して
値チェックをしたいのです。

それで、その取り出した値が空白かどうかチェックをしたいんです。
宜しくお願いします。

お世話になります。

> 説明が全く足りてなくてすみません。
> 日付は　インプットマンの日付コントロールを使用していて
> Me.txt_day.text　にしてしまうとデータチェックの時に　
> 日付未入力時　書式が判断されてしまうので、値のみ取り出して
> 値チェックをしたいのです。
>
> それで、その取り出した値が空白かどうかチェックをしたいんです。
> 宜しくお願いします。

GrapeCity社製、InputMan for .Net3.0の
GrapeCity.Win.Input.Dateを使っているのですか？
であれば、

If IsNothing(Date1.Value) Then
　　Trace.WriteLine("入力されてません")
End If

ではないですか？

> 説明が全く足りてなくてすみません。

むやみに、ハンドルネームを変更しないで下さい。

雨 さん、ゆず さん 同じ方ですよね。

☆ - 値のみ取得 - 雨 09/21-14:48 No.2207 　New 　と同様の質問ですよね。
ヘルプなり、メーカのQ & A を調べてから質問された方がいいですよ。

> ☆ - 値のみ取得 - 雨 09/21-14:48 No.2207 　New 　と同様の質問ですよね。
> ヘルプなり、メーカのQ & A を調べてから質問された方がいいですよ。
すみません。以後気をつけるようにいたします。


お返事ありがとうございます。

空白チェックは上手くいきましたありがとうございます!!

それで、
顧客の登録をSQL文で行っているのですが，

        sql = "INSERT INTO テーブル(項目名)"
        sql = sql & "VALUES"
        sql = sql & "(" & cmd_bunruiCD.Text & ","
・・・
       If IsNothing(txt_seinen.Value) Then

        日付を入力していなかった場合の処理
           txt_seinen.Text=""
            sql = sql & " '" & txt_seinen.Text & "',"
        Else
　　　　　　　日付が入力された場合の処理
            sql = sql & " '" & txt_seinen.Text & "',"
        End If

・・・・・


としています。

       If IsNothing(txt_seinen.Value) Then

　　　　　　txt_seinen.Text=""
            sql = sql & " '" & txt_seinen.Text & "',"

        Else
            sql = sql & " '" & txt_seinen.Text & "',"
        End If

で、日付を指定しているのですが，日付を入力していなかった場合
txt_seinen.Textは　　' / / ,,'  (書式'  yyyy/MM/dd,, )が入っています。
そのままSQLで実行をしてしまうと、型エラーが起きてしまいます。
この部分を　空白・・・にして　
　' / / ,,'  で登録処理されないようにしたいのですが、なにか良い方法はありませんでしょうか?

お世話になります。

> txt_seinen.Text=""
> sql = sql & " '" & txt_seinen.Text & "',"

ではなくて、
sql += "NULL,"
にしてみては。

> txt_seinen.Text=""
にしても、マスク文字は消えませんよ。

ありがとうございます。
お返事がおそくなってすみません。
早速やってみます。
有難うございました。