- ©«¤l
- 19
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 57
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2015-3-8
- ³Ì«áµn¿ý
- 2016-12-27
|
AccessVBA®É¶¡¬d¸ß
½Ð°Ý¦p¦ó§â®É¶¡¼g¶i¥h~
¥Ø«e³£·|¸õ¿ù¡C
§Úªº¤é´Á®æ¦¡¹w³]¬°yyyy/mm/dd hh:nn¡A¦³pºâ¨ì¤À¬í
½Ð°Ý¬Oþ¸Ìnקï©O??
Private Sub ¬d¸ß_Click()
FltStr = ""
If IsNull(Me![sch¬d¸ß]) = False Then FltStr = "sch like [sch¬d¸ß] and"
If IsNull(Me![owner¬d¸ß]) = False Then FltStr = FltStr & " owner¥N½X like '*" & Me![owner¬d¸ß] & "*' and"
If IsNull(Me![É¥X®É¶¡°_]) = False Then
If IsNull(Me![É¥X®É¶¡¨´]) = False Then
FltStr = FltStr & "É¥X®É¶¡ between #" & Me![É¥X®É¶¡°_] & "# and #" & Me![É¥X®É¶¡¨´] & "# and"
Else
FltStr = FltStr & " É¥X®É¶¡ between #" & Me![É¥X®É¶¡°_] & "# and #" & Date & "# and"
End If
Else
If IsNull(Me![É¥X®É¶¡¨´]) = False Then
FltStr = FltStr & " É¥X®É¶¡ between #" & Date & "# and #" & Me![É¥X®É¶¡¨´] & "# and"
End If
End If
If FltStr = "" Then
Me![®É¶¡¬d¸ß¤lªí³æ].Form.FilterOn = False
Else
FltStr = Mid(FltStr, 1, Len(FltStr) - 4)
Me![®É¶¡¬d¸ß¤lªí³æ].Form.Filter = FltStr
Me![®É¶¡¬d¸ß¤lªí³æ].Form.FilterOn = True
End If
End Sub |
|