[Amin_Mansouri]

Hi everyone!

I have a question here and I can't seem to figure it out...

I have to import this date value to my table as text because initially it has letters and other bad characters in it. I've already removed all of these characters with my code but now I'm trying to sort the RS on open, using SQL, and make sure it's identifying the ApptDate column as a date when sorting. This is what I have but I keep getting Error 13, Type Mismatch.

Any guidance is always greatly appreciated!!


Code :

کد:

Dim rs As Recordset
Dim RSAppt As Recordset

Set RSAppt = CurrentDb.OpenRecordset("Tbl_Advantix_Appts")
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Tbl_Advantix_Appts ORDER BY " & Format(DateValue(RSAppt.Fields("ApptDate")), "MM/DD/YYYY") & " ASC, PatFullName, DOB")
        
rs.MoveFirst
Debug.Print rs.Fields("ApptDate")

اینجا هم به کارت میاد :
http://www.dreamincode.net/forums/topic/...ess-table/