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

سؤالك جميل اخي kaser906

هذا ما يدعى ب"كسر الكود" او "Code Breaking"

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

لذلك يتم استخدام الاشارة "_"

مثال:

If Day(Date) > 10 _
And Hour(Time) > 20 Then _
MsgBox "Besm Allah " & _
"AlRahman AlRahim"

ملاحظات للاستخدام:

* لكسر السطر يجب ان تضغط مسافة ثم تتبعها ب _ ثم ENTER اي (ENTER + _ + SPACE)

* لا تكسر السطر عند كلمة محجوزة مثل (Msgbox او Elseif)

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

بالتوفيق ان شاء الله

اياد دهشان كتب:

سؤالك جميل اخي kaser906

هذا ما يدعى ب"كسر الكود" او "Code Breaking"

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

لذلك يتم استخدام الاشارة "_"

مثال:

If Day(Date) > 10 _
And Hour(Time) > 20 Then _
MsgBox "Besm Allah " & _
"AlRahman AlRahim"

ملاحظات للاستخدام:

* لكسر السطر يجب ان تضغط مسافة ثم تتبعها ب _ ثم ENTER اي (ENTER + _ + SPACE)

* لا تكسر السطر عند كلمة محجوزة مثل (Msgbox او Elseif)

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

بالتوفيق ان شاء الله

الله يعطيك العافيه أخي اياد

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

Me![startDat] = DLookup("[startDat]", "[DawratTidreb]", "[EndDat]>=forms![Editholltawed].[Dattewads] AND [PcDigit]=forms![Editholltawed].[PcDigit] And [startDat]<=forms![Editholltawed].[dattewads]or[Enddat]<=forms![Editholltawed].[Dattewads] AND [PcDigit]=forms![Editholltawed].[PcDigit] AND [Enddat]>=forms![Editholltawed].[Hi-Dates]  AND [PcDigit]=forms![Editholltawed].[PcDigit]")

ارجو التكرم بالتطبيق على الكود

دمت بخير

ضروري يا شباب الهمة

تفضل أخي

Me![startDat] = DLookup("[startDat]", "[DawratTidreb]", "" _
& " [EndDat]>=forms![Editholltawed].[Dattewads] AND" _
& " [PcDigit]=forms![Editholltawed].[PcDigit] And" _
& " [startDat]<=forms![Editholltawed].[dattewads]or[Enddat]<=forms![Editholltawed].[Dattewads] AND" _
& " [PcDigit]=forms![Editholltawed].[PcDigit] AND [Enddat]>=forms![Editholltawed].[Hi-Dates]  AND" _
& " [PcDigit]=forms![Editholltawed].[PcDigit]")

للتوضيح على مثالك:

Me![startDat] = DLookup("[startDat]" _
, "[DawratTidreb]" _
, "[EndDat]>=forms![Editholltawed].[Dattewads] _
 AND [PcDigit]=forms![Editholltawed].[PcDigit] _
 And [startDat]<=forms![Editholltawed].[dattewads]or[Enddat]<=forms![Editholltawed].[Dattewads] _
 AND [PcDigit]=forms![Editholltawed].[PcDigit] _
 AND [Enddat]>=forms![Editholltawed].[Hi-Dates] _
 AND [PcDigit]=forms![Editholltawed].[PcDigit]")

هذا الكود خاطئ لانك قمت بكسر الباراميتر الثالث ل DLOOKUP

-كل ما هو ضمن "" يعتبر Parameter-

Me![startDat] = DLookup _
("[startDat]" _
, "[DawratTidreb]" _
, "[EndDat]>=forms![Editholltawed].[Dattewads] AND [PcDigit]=forms![Editholltawed].[PcDigit] And [startDat]<=forms![Editholltawed].[dattewads]or[Enddat]<=forms![Editholltawed].[Dattewads] AND [PcDigit]=forms![Editholltawed].[PcDigit] AND [Enddat]>=forms![Editholltawed].[Hi-Dates] AND [PcDigit]=forms![Editholltawed].[PcDigit]")

هذا هو المثال الصحيح حيث مهما طال المقطع الثالث يجب ان يكون في نفس السطر

و هنا ارفقت لك مثال ليشرح كيف يمكنك كسر سطر الكود (ادخل على كود رز الامر dlookup)

لاتنسى اخي الكريم انه يجب كتابة (مسافة ثم تتبعها ب _ ثم ENTER)

test.zip

تسلم اخوي اكسير

الله يعطيك العافيه

او كما فعل الاخ اكسير

اياد دهشان كتب:

للتوضيح على مثالك:

Me![startDat] = DLookup("[startDat]" _
, "[DawratTidreb]" _
, "[EndDat]>=forms![Editholltawed].[Dattewads] _
 AND [PcDigit]=forms![Editholltawed].[PcDigit] _
 And [startDat]<=forms![Editholltawed].[dattewads]or[Enddat]<=forms![Editholltawed].[Dattewads] _
 AND [PcDigit]=forms![Editholltawed].[PcDigit] _
 AND [Enddat]>=forms![Editholltawed].[Hi-Dates] _
 AND [PcDigit]=forms![Editholltawed].[PcDigit]")

هذا الكود خاطئ لانك قمت بكسر الباراميتر الثالث ل DLOOKUP

-كل ما هو ضمن "" يعتبر Parameter-

Me![startDat] = DLookup _
("[startDat]" _
, "[DawratTidreb]" _
, "[EndDat]>=forms![Editholltawed].[Dattewads] AND [PcDigit]=forms![Editholltawed].[PcDigit] And [startDat]<=forms![Editholltawed].[dattewads]or[Enddat]<=forms![Editholltawed].[Dattewads] AND [PcDigit]=forms![Editholltawed].[PcDigit] AND [Enddat]>=forms![Editholltawed].[Hi-Dates] AND [PcDigit]=forms![Editholltawed].[PcDigit]")

هذا هو المثال الصحيح حيث مهما طال المقطع الثالث يجب ان يكون في نفس السطر

و هنا ارفقت لك مثال ليشرح كيف يمكنك كسر سطر الكود (ادخل على كود رز الامر dlookup)

لاتنسى اخي الكريم انه يجب كتابة (مسافة ثم تتبعها ب _ ثم ENTER)

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

سأحاول تطبيق شرحك