[مساعدة] : عبارة SQL !

[أبو ألين]

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

 

الاساتذه الفضلاء.

 

هل كتابة عبارة SQL بهذه الطريقة وداخلها دالة .. هل تعمل بهذا الشكل وتكون صحيحة ام ينقصها شي لأني لم اعرف ماهو الخلل يعطيني خطأ Object Required .

Forms!MainScreen!lstLastTrans.RecordSource = "SELECT TransactionsT.TransID, TransactionsT.idEmp, TransactionsT.TransSubject,TransactionsT.TransCreatedOn='" & DateDiff("dd", TransactionsT.TransCreatedOn, Now()) & "'AS [ãÏÉ ÇáãÚÇãáÉ],TransToDept FROM TransactionsT" & _
"WHERE TransSubject Is Not Null AND TransStatus Not Like 'ãäÊåíÉ' AND TransType Is Not Null AND TransTitle Is Not Null" & _
"ORDER BY TransID DESC ,TransCreatedOn='" & DateDiff("dd", TransactinosT.TransCreatedOn, Now()) & "'DESC; "

 

[Eng.Qassim]

جرب الجملة التالية ..فقط قم بتغيير  'b' بالعبارة لديك لانها غير مفهومة

Forms!MainScreen!lstLastTrans.RowSource = "SELECT TransactionsT.TransID, TransactionsT.idEmp, TransactionsT.TransSubject, TransactionsT.TransCreatedOn, TransactionsT.TransToDept, TransactionsT.TransStatus, TransactionsT.TransType, TransactionsT.TransTitle, DateDiff(""d"",[TransactionsT]![TransCreatedOn],Now()) AS TransCreatedOn1 " & vbCrLf & _
"FROM TransactionsT " & vbCrLf & _
"WHERE (((TransactionsT.TransSubject) Is Not Null) AND ((TransactionsT.TransStatus) Not Like 'b') AND ((TransactionsT.TransType) Is Not Null) AND ((TransactionsT.TransTitle) Is Not Null)) " & vbCrLf & _
"ORDER BY DateDiff(""d"",[TransactionsT]![TransCreatedOn],Now()) DESC;"

 

[أبو ألين]

عملت بشكل رائع استاذي الف الف شكر.

لدي نفس الجملة السابقة، ولكن اضفت لها شرط واعتقد ان المشكلة في هذا السطر ..

((TransactionsT.TransToDept) Like" & Forms!MainScreen!txtDepartment & ")) 

هل بالامكان تصحيحه اذا تكرمت .. 

 

شكرا جزيلا لكم

[ابو جودي]

ممكن مرفق من القاعدة 

وتحديد مكان العمل فيها الذى يحوى تلك المشكلة

وياريت شرح مبسط للنتيجة اللى حضرتك تحتاج الوصول اليها

[Moosak]

12 ساعات مضت, uzer said:

((TransactionsT.TransToDept) Like" & Forms!MainScreen!txtDepartment & "))

جرب هذا :

((TransactionsT.TransToDept) Like '" & Forms!MainScreen!txtDepartment & "'"))

 

[أبو ألين]

7 دقائق مضت, Moosak said:

جرب هذا :

((TransactionsT.TransToDept) Like '" & Forms!MainScreen!txtDepartment & "'"))

 

الف الف شكر استاذي موسى .. الان عمل الكود بشكل رائع ..

يعطيك الف عافية .. ❤️