>>869
要は「2002/_8/_5」なんかも「2002/08/05」と入力させたいワケね。

Private Sub テキスト0_BeforeUpdate(Cancel As Integer)
　　If IsNull(Me!テキスト0) Then Exit Sub

　　Dim p年 As String: p年 = Left(Me!テキスト0, 4)
　　Dim p月 As String: p月 = Mid(Me!テキスト0, 6, 2)
　　Dim p日 As String: p日 = Right(Me!テキスト0, 2)

　　If (Not IsNumeric("0" & p年 & "0")) Or (Not IsDate(p年 & "/01/01")) Then
　　　　MsgBox "年指定が不適切です。", vbExclamation
　　　　Cancel = True: Exit Sub
　　End If
　　If (Not IsNumeric("0" & p月 & "0")) Or (Not IsDate("1900/" & p月 & "/01")) Then
　　　　MsgBox "月指定が不適切です。", vbExclamation
　　　　Cancel = True: Exit Sub
　　End If
　　If (Not IsNumeric("0" & p年 & "0")) Or (Not IsDate("1900/01/" & p日)) Then
　　　　MsgBox "日指定が不適切です。", vbExclamation
　　　　Cancel = True: Exit Sub
　　End If
End Sub