空の場合はテキストボックスを空にする

こんにちは私はmysqlサーバーに接続されているExcelでuserformを持っています。日付のテキストボックスを空のままにする以外はすべて動作します。日付の値が正しくないというエラーが発生します。空の場合はテキストボックスを空にする

今後の調査では、テキストボックスはゼロ長の文字列を返します。保存ボタンをクリックすると、テキストボックスをnullに設定することはありますか？

2016-09-02 Danny

はたぶん、HTTPの複製の変更をしようとか、イベント – arcadeprecinct

を残す場合：//stackoverflow.com/questions/7475023/how-do-i-check-for-null-value-in-an-excel-userform-textbox/7475152#7475152 –

Heres私の解決策は、うまくいけば、これが役に立ちます。

基本的にその簡単なチェック問題のテキストボックスが空であるかどうかを確認し、もしそうなら、それはヌルにする：

If textbox1.value = "" then 
    textbox1.value = null 
end if

出典

2016-09-02 16:17:52 Ruthus99

私はこれについて考えました。ボタンをクリックイベントに追加する必要がありますか？ – Danny

Nopeはボタンのクリックイベントでそれを試してみました – Danny

最後にソリューションが、場合、これは、Bの痛みになりますあなたは20の日付列を持っています。残念ながら、私は20の日付列を持っている... :(

これは、これは将来的に誰か

Private Sub CommandButton1_Click()

が設定CN =のCreateObject（「ADODB.Connectionの」）セットrs役に立てば幸い私のために、コードであります=のCreateObject（ "ADODB.Recordsetの"）

strCon = "ドライバ= {MySQLのODBC 5.3のUnicodeドライバ};サーバ= localhostの;データベース=サンプル;" _ &「ユーザー=ルート;パスワード=パスワード; OPTION = 3 ; "

c n.Open strCon

txt5.Value = "もし" その後

SQLStr = "insert into sample.details (ID,Name,Age,Gender,Date_of_Birth) values ('" & txt1.Value & "', '" & txt2.Value & "','" & txt3.Value & "','" & txt4.Value & "',Null);" 

cn.Execute SQLStr

エルス

SQLStr = "insert into sample.details (ID,Name,Age,Gender,Date_of_Birth) values ('" & txt1.Value & "', '" & txt2.Value & "','" & txt3.Value & "','" & txt4.Value & "','" & Format(txt5.Value, "yyyy-mm-dd") & "');" 

cn.Execute SQLStr

エンド End Subの

出典

2016-09-02 18:05:03 Danny

空の場合はテキストボックスを空にする

答えて

関連する問題