שלום..
יש לי העיה עם קוד ב VBA שאמור לבצע סינון של טווח תאריכים
בגדול יש לי טופס (Form) עם שתי תיבות טקסט - תאריך התחלה ותאריך סיום.

קוד:

Private Sub ClickRange_Click()
	Dim sql As String, intX As Date, intY As Date
	Dim qdfLoop As QueryDef, Qry As QueryDef
	 
   For Each qdfLoop In CurrentDb.QueryDefs
		 If qdfLoop.Name = "Que" Then DoCmd.DeleteObject acQuery, "Que"
	  Next qdfLoop
	  
		
	'''txtStartDate.Value = 0 Then Exit Sub
	If txtStartDate.Value = 0 Then MsgBox ("Set Start Date")
	intX = txtStartDate.Value
	intY = txtEndDate.Value
	sql = "SELECT credit.order, credit.Date FROM credit WHERE (((credit.Date) Between #" & intX & "# And #" & intY & "#));"
   
	
	Set Qry = CurrentDb.CreateQueryDef("Que", sql)
  
	DoCmd.OpenQuery "Que"
End Sub

לחיצה על הכפתור עם הקוד הנ"ל אינה מניבה תוצאות נכונות

לא הצלחתי למצוא את הטעות שלי
אשמח לעזרה
תודה

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://dinods.co.il/images/logo4.png]

עיצוב גרפי | מיתוג | הפקות דפוס
dinods.co.il

אני מאמין שהצלחתי לעלות על הבעיה אני רק לא יודע איך לפתור אותה.

גיליתי שאם אני מחליף בתיבה השניה (תאריך סיום) בין החודשים והימים אני מקבל את התוצאה הרצויה.
כלומר הוא מחייב אותי לרשום בתיבה הראשונה: dd/mm/yyyy ובתיבה השניה: mm/dd/yyyy
ניסיתי Format Date אך אין לי ניסיון ב-VBA
איך אוכל לתקן זאת?
תודה

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://dinods.co.il/images/logo4.png]

עיצוב גרפי | מיתוג | הפקות דפוס
dinods.co.il

אני חושב שזה תלוי בתבנית עיצוב שבחרת בה...
אבל בכל מיקרה אני מאוד ממליץ שלא להשתמש בתיבות טקסט עבור תאריך.
עדיף לך להשתמש בפקד date and time picker או לחילופין ב-MonthView.

את הפקדים הנ"ל תוכל למצא בהוספה => פקד ActiveX ולחפש שם...

תודה רבה.. אני אנסה את זה
נראה לך שזה מצריך שינוי דרמטי בקוד?

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://dinods.co.il/images/logo4.png]

עיצוב גרפי | מיתוג | הפקות דפוס
dinods.co.il

אחרי שעות רבות.. סוף סוף הצלחתי
הפתרון פשוט אך לא היה לי פשוט להגיע אליו

קוד:

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 נכנס לתמונה.

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://dinods.co.il/images/logo4.png]

עיצוב גרפי | מיתוג | הפקות דפוס
dinods.co.il