Private Sub 刷新_Click()
Dim Str
If Me.刊期 = "年刊" Then
If IsNull(开始日期) = False Then
Str = "SELECT ID, 年月日, 季度, 双月, 日期, 星期 FROM 刊期维护 " _
& "where format(年月日,'yyyy')=#" & Format(开始日期, "yyyy") & "#"
Else
Str = "SELECT ID, 年月日, 季度, 双月, 日期, 星期 FROM 刊期维护 "
End If
Else
If IsNull(开始日期) = False Then
If IsNull(结束日期) = False Then
Str = "SELECT ID, 年月日, 季度, 双月, 日期, 星期 FROM 刊期维护 " _
& "where 年月日>=#" & 开始日期 & "# and 年月日<=#" & 结束日期 & "#"
Else
Str = "SELECT ID, 年月日, 季度, 双月, 日期, 星期 FROM 刊期维护 " _
& "where 年月日>=#" & 开始日期 & "# "
End If
Else
If IsNull(结束日期) = False Then
Str = "SELECT ID, 年月日, 季度, 双月, 日期, 星期 FROM 刊期维护 "
Else
Str = "SELECT ID, 年月日, 季度, 双月, 日期, 星期 FROM 刊期维护 " _
& "where 年月日<=#" & 结束日期 & "#"
End If
End If
End If
CurrentDb.QueryDefs("出版日期").SQL = Str
Me.刊期.Requery
Me.出版日期.Requery
End Sub
