Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27415 / 76732

←次へ　｜　前へ→


	【54636】Re:日付でエラーを返す方法

VBWASURETA - 08/3/25(火) 10:38 -


	引用なし

	パスワード

おはようございます。

データ入力のシステムを構築する場合、
当然なのですが登録前に妥当性チェックを入れます。

必須項目、正確なデータかをチェックして
OKであれば登録に進むようにします。

たとえば

Private Sub コマンド登録_Click()
　 'チェックが通らない場合は登録しない
　 if CheckData() = False Then
　　　Msgbox "正しくありません"
　　　Exit Sub
　 End if

'*** 以下が登録処理とします(省略) ***

End Sub

'項目チェック関数
Function CheckData() As Boolean
　 Dim bcheck As Boolean
　 bcheck = True

　 '項目1
　 if Textbox1.text = "" then
　　　bcheck = False
　 End if

　　'項目2
　 if Textbox2.text = "" then
　　　bcheck = False
　 End if

　　'項目3
　 if Not IsDate(Textbox2.text) then
　　　bcheck = False
　 End if

　 ChackData = bcheck
End Function

こんな感じに事前にチェックを入れるようにします。

0 hits

▼

【54627】日付でエラーを返す方法 小次郎 08/3/24(月) 23:48