13-03-2011, 23:17
|
|
|
|
חבר מתאריך: 16.11.06
הודעות: 216
|
|
טוווובבבב
אחרי שעות רבות.. סוף סוף הצלחתי
הפתרון פשוט אך לא היה לי פשוט להגיע אליו
קוד:
Private Sub ClickRange_Click()
Dim sql As String
Dim intX As String
Dim intY As String
Dim qdfLoop As QueryDef
Dim Qry As QueryDef
Dim MyResultX, MyResultY As Date
For Each qdfLoop In CurrentDb.QueryDefs
If qdfLoop.Name = "Que" Then DoCmd.DeleteObject acQuery, "Que"
Next qdfLoop
If Not IsDate(txtStartDate) Or Not IsDate(txtEndDate) Then Exit Sub
'''If txtStartDate.Value = 0 Then MsgBox ("÷áò úàøéê äúçìä")
intX = txtStartDate.Value
MyResultX = Format(intX, "mm/dd/yyyy")
intY = txtEndDate.Value
MyResultY = Format(intY, "mm/dd/yyyy")
sql = "SELECT * FROM credit WHERE (((credit.date) Between #" & MyResultX & "# AND #" & MyResultY & "#));"
Set Qry = CurrentDb.CreateQueryDef("Que", sql)
DoCmd.OpenQuery "Que"
End Sub
ה-Date Format נכנס לתמונה.
_____________________________________
|