| |
Private Sub コマンド14_Click()
If IsNull(Me!抽出入社日始) = True Then
MsgBox "抽出する入社年月日（開始）を入力して下さい。", vbOKOnly + vbInformation
Me!抽出入社日始.SetFocus
Exit Sub
End If
If IsNull(Me!抽出入社日終) = True Then
MsgBox "抽出する入社年月日（終了）を入力して下さい。", vbOKOnly + vbInformation
Me!抽出入社日終.SetFocus
Exit Sub
End If
Me.Filter = *********************
Me.FilterOn = True
If Me.Recordset.RecordCount = 0 Then
MsgBox "抽出条件に入力された期間に一致するレコードはありません。", vbOKOnly + vbInformation
Me!抽出入社日始.SetFocus
End If
End Sub
*********************の部分が良く分からず、
いろいろ試しては上手く動かないといった状況です。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
