ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

AccessVBA®É¶¡¬d¸ß

AccessVBA®É¶¡¬d¸ß

½Ð°Ý¦p¦ó§â®É¶¡¼g¶i¥h~
¥Ø«e³£·|¸õ¿ù¡C
§Úªº¤é´Á®æ¦¡¹w³]¬°yyyy/mm/dd hh:nn¡A¦³­pºâ¨ì¤À¬í
½Ð°Ý¬O­þ¸Ì­n­×§ï©O??
11.png
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

¦b¿ù»~°T®§¤¤¤w«ü¥X,between  date and  date+time¿ù»~

TOP

­n«ç»ò¼g¤ñ¸û¦nªü?

TOP

¦Û¤v·Q¥X¤èªk¤F!!

TOP

¬O¤£¬O«á­±ªº¤é´Á®É¶¡¤Ö¤F#¸¹?

TOP

ÁÂÁ §Ú¤]¦³¦P¼Ë°ÝÃD

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD