2

Visual Basic 6 を使用してフォームを作成しました。すべてうまくいき、フォームはデータベースにデータを挿入し、ここではまったく問題はありません。

ここで、日付フィールドを検証する必要があります。日付を次の形式で入力する必要があります: dd/mm/yyyy

私がやっている：

Private Sub txtMyText_Validate(Index As Integer, Cancel As Boolean)
If IsDate(Format$(txtMyText(9).Text, "dd/mm/yyyy")) Or txtMyText(9).Text = "" Then
txtMyText(9).SetFocus
Else
txtMyText(9).SetFocus
MsgBox "Please enter a valid date with this format: dd/mm/yyyy."
End If
End Sub

しかし、このコードは機能していません。この形式 dd/mm/yy で日付を入力すると、フローは挿入関数に従い、dd/mm/yyyy ではないというエラーが発生します。

このコードを修正するのを手伝ってもらえますか?

どうもありがとう！

4

1 に答える 1

1

日付フィールドのデータベース行への挿入でこれを使用します。

Format(txtMyText(9).Text, "dd/mm/yyyy")

これにより、dd/mm/yy または yyyy/mm/dd として入力された日付が解決されます

日付の代わりに整数や文字列を入力しないようにするには:

Private Sub txtMyText_Validate(Index As Integer, Cancel As Boolean)
    If Not IsDate(txtMyText(9).Text) Then
    MsgBox "Enter a valid date with this format: dd/mm/yyyy"
    Cancel = True
    End If
End Sub
于 2013-01-28T10:04:22.340 に答える