كيفيه تقسيم الكود علي سطرين

[m_aly]

-strFilter = strFilter & "([d] Like " & Me.filter1 & ")OR([d] Like " & Me.filter2 & ")

ارجو تقسيم هذا الكود علي سطرين حيث اني استخدمه من filter 1 حتي filter 50

شكرا

[ابوخليل]

اجعل التقسيم يبدأ بعد العلامات مثل & " ,

,والطريقة : مسافة ثم علامة تحت السطر ( _ ) ثم انتر ( Enter)

انظر الكود

strFilter = strFilter & "([d] Like " & _

Me.filter1 & ")OR([d] Like " _

& Me.filter2 & ")"

[m_aly]

بجد ربنا يباركلك بكل ماتعنيه الكلمه من معني

[محمدفتاح]

اريد تقسيم هذا الكود 

sqry.SQL = "SELECT setdown_no, [arabic*-], arabic,iif([arabic]='Û','Û',Val([arabic*-])+Val([arabic])) AS ta, [mathematics*-], mathematics,iif([mathematics],'Û','Û',Val([mathematics*-])+Val([mathematics])) AS tm, [sociability_studies*-], sociability_studies,iif([sociability_studies],'Û','Û',Val([sociability_studies*-])+Val([sociability_studies])) AS tso, [sciences*-],[sciences*1], sciences,iif([sciences],'Û','Û',Val([sciences*-])+Val([sciences])+Val([sciences*1])) AS tsc, [foreign_language*-], foreign_language,iif([foreign_language],'Û','Û',Val([foreign_language*-])+Val([foreign_language])) AS te, [religion_education*-], religion_education,on],'Û','Û',Val([religion_education*-])+Val([religion_education])) AS trel, [advanced_english*-], advanced_english1 ,iif([],'Û','Û',Val([advanced_english*-])+Val([advanced_english1])) AS tad,tblbasicdata.class FROM students INNER JOIN tblbasicdata ON students.class = tblbasicdata.class  WHERE ((tblbasicdata.class='" & Me.txt & "')) ORDER BY setdown_no;"
 

هذا الكود مكتوب في سطر واحد ولا اعرف طريقة تقسيمه افيدونا افادكم الله

[أبو عبدالله الحلوانى]

اضافة الي ما تفضل به استاذنا أبو خليل يمكن تقسيم الكود من خلال تجميع أجزائه بمتغير ما مثل:

Dim StrFlter as string
StrFlter = "SELECT setdown_no, [arabic*-], arabic,iif([arabic]='Û','Û',Val([arabic*-])+Val([arabic])) AS ta," StrFlter =StrFlter &  " [mathematics*-],
mathematics,iif([mathematics],'Û','Û',Val([mathematics*-])+Val([mathematics]))"
StrFlter =StrFlter & " AS tm,[sociability_studies*-], sociability_studies,iif([sociability_studies],'Û','Û',Val([sociability_studies*-])+Val([sociability_studies]))"
StrFlter =StrFlter & " AS tso, [sciences*-],[sciences*1], sciences,iif([sciences],'Û','Û',Val([sciences*-])+Val([sciences])+Val([sciences*1]))"
StrFlter =StrFlter & " AS tsc, [foreign_language*-], foreign_language,iif([foreign_language],'Û','Û',Val([foreign_language*-])+Val([foreign_language]))"
StrFlter =StrFlter & " AS te, [religion_education*-], religion_education,on],'Û','Û',Val([religion_education*-])+Val([religion_education]))" 
StrFlter =StrFlter & " AS trel, [advanced_english*-], advanced_english1 ,iif([],'Û','Û',Val([advanced_english*-])+Val([advanced_english1]))"
StrFlter =StrFlter & " AS tad,tblbasicdata.class FROM students INNER JOIN tblbasicdata ON students.class = tblbasicdata.class"
StrFlter =StrFlter & " WHERE ((tblbasicdata.class='" & Me.txt & "')) ORDER BY setdown_no;"

مع مراعات اثبات المسافة في نهاية المقطع الأول أو بداية المقطع التالي من كل جزء 

تمنياتي بالتوفيق

[محمدفتاح]

اولا جزاك الله عني خيرا وزادك الله علما وحلما عندي سؤال كيف اكتب جملة  sqry.SQL حاولت ولم انجح 

[أبو عبدالله الحلوانى]

10 ساعات مضت, محمدفتاح said:

كيف اكتب جملة  sqry.SQL

لم أفهم ما تقصد ماذا تريد أن تفعل بالتحديد هل تقصد تشغيل الاستعلام السابق من خلال الضغط علي زر مثلا

كل ما عليك أن تكتب هذا الكود خلف الزر المراد التنفيذ من خلاله 

Docmd.RunSQL "StrFlter"

وفقط 

أما ان كنت تعني شيئا آخر فبرجاء التوضيح أكثر 

[محمدفتاح]

انا اقوم بعمل الاستعلام من خلال vba وذلك من خلال الكود 

Dim db As DAO.Database
Dim sqry As DAO.QueryDef
Set db = CurrentDb
If DCount("[Name]", "MSysObjects", "[Name] = 'basicdata'") = 1 Then
"DoCmd.DeleteObject acQuery, "basicdata"
End If
("Set sqry = db.CreateQueryDef("basicdata
sqry.SQL = "SELECT  classroom FROM students WHERE ((class='" & Me.txt & "'))   ORDER BY kind,student_name

qry.Close
db.Close
Set sqry = Nothing
Set db = Nothing
Application.RefreshDatabaseWindow

Application.RefreshDatabaseWindow

فعند الجملة sqry.sql اقوم بتسجيل الحقول التي اريدها وتبدأ الجملة بكلمة select كما تعلم فالعبارة كانت طويلة جدا فأردت تقسيمها ونفذت طريقتكم الجميلة ولكن عند الجملة sqry.sql كيف اضيف المتغير في الجملة وشكرا

[أبو عبدالله الحلوانى]

اكتبها بهذا الشكل

sqry.SQL = StrFlter

 

[محمدفتاح]

اريد دالة if بهذا الشكل 

If ii = 4 Then: lblLabel.Caption = "ÓÜÜÜÑí 4" And lblLabel.Vertical = True And lblLabel.FontSize = 12
ولكن تظر رسالة خطأ type mismatch ما علاج هذه المشكلة