خطأ بجملة mySQL

[محمد أبوعبدالله]

السلام عليكم ورحمة الله وبركاته

برجاء المساعدة في تصحيح جملة MySQL

يوجد خطأ في جملة الاستعلام التالية في السطر الثاني

    mySQL = "Select * From Query2"
    mySQL = mySQL & " WHERE IDStu  Between [Forms]![X1]![A1] And [Forms]![X1]![A2] & """
    Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveLast: rst.MoveFirst

الذي اريده ان يتم حصر الارقام حسب مدخلات النموذج X1بين A1 And A2

ولكم وافر التحية

تم تعديل أكتوبر 27, 2019 بواسطه محمد ابوعبد الله

[jjafferr]

وعليكم السلام 🙂

 

اذا كان الحقل IDStu رقم:

    mySQL = "Select * From Query2"
    mySQL = mySQL & " WHERE IDStu  Between " & [Forms]![X1]![A1] & " And " & [Forms]![X1]![A2] 
    Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveLast: rst.MoveFirst

 

بينما اذا كان الحقل IDStu تاريخ:

    mySQL = "Select * From Query2"
    mySQL = mySQL & " WHERE IDStu  Between #" & [Forms]![X1]![A1] & "# And #" & [Forms]![X1]![A2] & "#"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveLast: rst.MoveFirst

 

جعفر

[محمد أبوعبدالله]

السلام عليكم

استاذنا جعفر ظهرت هذه الرسالة

دمتم بالخيرات

[jjafferr]

هذا معناه انه لا توجد سجلات بين هذين الرقمين 🙂

 

استعمل هذه الطريقة للتخلص من هذه الرسالة:

private sub abc_click()

on erroro goto err_abc_click
	dim rst as dao.recordset

    mySQL = "Select * From Query2"
    mySQL = mySQL & " WHERE IDStu  Between " & [Forms]![X1]![A1] & " And " & [Forms]![X1]![A2] 
debug.print mySQL    'حتى نرى الجملة كاملة في اسفل الشاشة، ونستطيع لصقها في الاستعلام حتى نرى النتيجة هناك
	Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveLast: rst.MoveFirst

Exit_abc_click:
	
	rst.close: set rst=nothing

	exit sub
err_abc_click:

	if err.number=3021 then
		'no records
		resume Exit_abc_click
	else
		msgbox err.number & vbcrlf & err.description
	end if

end sub

 

جعفر

[محمد أبوعبدالله]

تحمل معي اخي الحبيب

 

[محمد أبوعبدالله]

افلح وجهك يا غالي

الخطأ من عندي انا

الحمد لله تم الحل

وجزاك الله خيرا اخي الحبيب

تحياتي

[jjafferr]

🙂