منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الاستعلام في سكول شغال بس اكسس لا
اذا ممكن منوع حقل التاريخ في اكسس يفضل نص او تاريخ
الاستعلام كامل
Public Function movmensrf(ByVal n As String, ByVal d1 As DateTime, ByVal d2 As DateTime) As DataSet
Dim ds As New DataSet
Dim h As New connection()


ds = h.show("SELECT dayt1.datee, dayt2.name, dayt2.m,dayt2.d, dayt2.note,dayt1.note,dayt1.id,dayt2.datee,account.Name AS Expr2 FROM dayt2 INNER JOIN dayt1 ON dayt2.id = dayt1.id INNER JOIN account ON dayt2.idaccount = account.id WHERE (dayt1.note ='" & n & "') and(dayt1.datee Between '" & d1.Month & "/" & d1.Day & "/" & d1.Year & "' And '" & d2.Month & "/" & d2.Day & "/" & d2.Year & "') ORDER BY dayt1.datee")
Return ds
End Function

مشا الحال بس غيرت نوع التاريح باكسس الى تكست
ممكن كود حفط نسخة احتياطية واسترجاعها بكلمة مرور داتا بيز اكسس

http://www.planet-source-code.com/vb/scr...&lngWId=10

لم اجربها .. لكن اتمنى تفيدك.