اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


m_aly

الردود الموصى بها

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

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

انظر الكود


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

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

& Me.filter2 & ")"

  • Like 1
رابط هذا التعليق
شارك

  • 8 years later...

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

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;"

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

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

رابط هذا التعليق
شارك

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 كيف اضيف المتغير في الجملة وشكرا


 
رابط هذا التعليق
شارك

  • 2 weeks later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information