عبارة Orderby

hasan@ كتب:

أرجو أن يكون طلبي واضح وغير مشفر .

تحياتي ...

من حيث مشفر هو مشفر للغاية :lol:

يا ابو علي يعني لو ترفق ملف يكون احسن

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

أهلا بإستشاري الجراحة العامة مشرفنا العزيز الأستاذ إيهاب عثمان

لقد تعمت التشفير لكي يطلع الكامن ولكن الظاهر اليوم البطارية تحتاج شحن لفك الشفرات .

سوف أقوم يا أستاذ بعمل مثال وإرفاقه لكم إن شاء الله لكي تكون الريا واضحة بشكل أكثر .

تحياتي أستاذي الفاضل إيهاب عثمان .

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

أستاذي الفاضل إيهاب عثمان

أرفق المثال حسب طلبكم وفقكم الله .

sample.rar

وين إستشاريي الجراحة العامة والتخدير الموضعي

يا هو إسعاف

مطلوب إسعاف

مطلوب عاجل إسعاف طواري يا إخوان

الله يجيب الغيث

أنا مازلت أنتظر هل من مغيث

نداء خاص للأستاذ مشكاة ابراهيم

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

تحية طيبة يا اخ/ حسن .. إن شاء الله تكون بخير ...

معلش اطلعت ع المثال المرفق وهو معقد :wacko: .. واعتقد مايحتاج اسعاف بل يحتاج الى لجنة كاملة من الاخصائيين بسبب تداخل المعلومات ..

نأخذ مثلا (رقم الوارد) اي حقل يمثله (بالانجليزي) ؟؟ طبعا المعنى في بطن الشاعر ( اقصد حسن ) .. :D

عموما أنا عندي ملاحظات على طريقة المثال المرفق نظرا لصعوبة فك الرموز أرجو ان تكون وصلت الفكرة ..

ملاحظات عامة :-

1- لماذا تريد عرض جميع الحقول في النموذج في حين يمكن الاكتفاء بالحقول المهمه فقط.

2-لماذا تريد البحث ان يفتح نموذج جديد بينما من المنطق ان البحث يكون ع نفس النموذج ..

3- لماذا الحقول كثيرة بعدد النجوم ولا يوجد لها تعريف باللغة العربية ..

وعلشان ندخل في صلب الموضوع قمت بعمل الطريقه المنطقية ( برأي الخاص) في تحقيق طلباتك.. وهي البحث من خلال رقم الوارد واسم الكتاب فقط كما طلبت

واضافة ميزة الفرز التصاعدي او التنازلي حسب الحقل الذي تختاره ..وسأقوم بالشرح المناسب .. إن شاء الله تعالى..

وعلى رغم الملاحظات سنبدأ العمل بانشاء نموذج جديد بعيد عن النموذج المعقد وتستطيع تطبيق نفس الفكرة على القنبلة الذرية اقصد المثال المرفق.. :D

طيب اتوقف للصلاة ونعود بعد قليل ..

مشكاة

تابع ..

أولا :- سنقوم بالبداية باضافة مجموعة خيار (مجال البحث) وليكن اسمها (srchFoptin) ويحتوي على رقم الوارد ويمثله بالانجليزي (book_no).. واسم الكتاب ويمثله (book_nm) طبعا انا افترضت ان book_no هو الوارد لأني لاأعرف اي حقل يمثله ماشي ..

ثانيا:- سنقوم باضافة مجموعة خيار (نوع البحث ) وليكن اسمه (srchOption) ويحتوي على يبدأ بـ. ويحتوى على .. وينتهي بـ

ثالثا: سنقوم باضافة مجموعة خيار ( الفرز) وليكن اسمه (SrtOption) ويحتوي على تصاعدي و تنازلي ..

رابعا:- سنقوم باضافة مربع تحرير وسرد وليكن اسمه (fsortN) لزوم اخيار اسم الحقل الذي نريد الفرز بناءا عليه ... أوكي متابع يا حسن ..

بالنسبة الى مربع تحرير وسرد (fsortN) مصدره الجدول (tble) ولقد قمت بانشائه لزوم الشغل .. حيث بامكانك اضافة الحقول التي تريد مع تعريفها بالعربي ..

خامسا: تم اضافة مربع نص للبحث من خلاله وليكن اسمه (srChtxt)

سادسا: تم اضافة زر بحث ويحتوي على كود سنأتي لشرحه ..

سابعا:- تم اضافة مربع قائمة وليكن اسمه (listbook) لعرض السجلات التي نريد البحث من خلالها .. وهي مجرد شكل من اشكال العرض ويعتبر خيار أول بحيث تستطيع الاستغناء عنه بالخيار الثاني.

ثامنا:- تم اضافة نموذج فرعي وليكن اسمه (frm1) وهو الخيار الثاني كما شرحنا اعلاه وهذا صورته ..

حتى لاتكون المعلومات مكدسة يتبع ..

مشكاة

تحية طيبه ،، تابع ...

نأتي الى كود زر الأمر (بحث) والذي اسمه (أمر13) وسوف ترى يا حسن ما كنت اقصده ان الحقول كثيرة انظر الكود

Dim strSql As String
Dim CrtTxt As String
Dim ascDe As String
Dim srchfeld As String

Select Case srchFoptin
Case 1
srchfeld = "book_no"
Case 2
srchfeld = "book_nm"
End Select


Select Case srchOption
Case 1
	CrtTxt = ("srChtxt & ""*""")
Case 2
	CrtTxt = ("""*"" & srChtxt & ""*""")
Case 3
	CrtTxt = ("""*"" & srChtxt ")
End Select

Select Case SrtOption
Case 1
ascDe = "ASC"
Case 2
ascDe = "DESC"
End Select

'If ([ftxt]) <> "" Then
strSql = "SELECT dbo_tbl_main_book.book_no  , dbo_tbl_main_book.book_nm, dbo_tbl_main_book.rc_date," & _
				"dbo_tbl_main_book.rc_itm, dbo_tbl_main_book.rc_from, dbo_tbl_main_book.rc_rmk, dbo_tbl_main_book.wrt_id," & _
				"dbo_tbl_main_book.twr_id, dbo_tbl_main_book.snf_id, dbo_tbl_main_book.snf_type, dbo_tbl_main_book.trnsf_no, " & _
				"dbo_tbl_main_book.prt_no, dbo_tbl_main_book.prt_date, dbo_tbl_main_book.prt_place, dbo_tbl_main_book.nasher_nm," & _
				"dbo_tbl_main_book.page_count, dbo_tbl_main_book.book_hala, dbo_tbl_main_book.book_hala_rmk, dbo_tbl_main_book.size," & _
				"dbo_tbl_main_book.mg_itm, dbo_tbl_main_book.mg_no, dbo_tbl_main_book.scan_itm, dbo_tbl_main_book.main_rmk, dbo_tbl_main_book.save_cd," & _
				"dbo_tbl_main_book.rack, dbo_tbl_main_book.drawer, dbo_tbl_main_book.PDF_updated, dbo_tbl_main_book.DateEntered, dbo_tbl_main_book.DateModified, " & _
				"dbo_tbl_main_book.TimeEntered, dbo_tbl_main_book.TimeModified, dbo_tbl_main_book.userEntered, dbo_tbl_main_book.userModified, tbl_snf.snf_nm, dbo_tbl_wrt.wrt_nm, dbo_tbl_wrt.fms_nm " & vbCrLf & _
		"FROM q " & _
		"WHERE " & srchfeld & " Like " & CrtTxt & " " & _
		"ORDER BY " & fsortN & " " & ascDe & ";"
Me.listbook.RowSource = strSql
Me.frm1.Form.RecordSource = strSql

sdss

End Sub

ترجمه الأمور المهمة للكود

strSql= تعريف عبارة sql التي ستكون مصدرا للقائمة (listbook) او للنموذج الفرعي على شكل بيانات الذي اسمه (frm1)

CrtTxt= تعريف لنوع البحث يبدأ بـ.. يحتوى .. ينتهي بـ ..

ascDe= تعريف للفرز التازلي والتصاعدي

srchfeld= تعريف لحقول البحث وهي (رقم الوارد) أو (اسم الكتاب ..).

Me.listbook.RowSource = strSql= لتحديد المصدر لمربع القائمة وتساوي عبارة strSql تم شرحها اعلاه.

Me.frm1.Form.RecordSource = strSql= لاحظ هنا تعريف النموذج الفرعي يختلف عن مربع القائمة حيث يجب ان يكون بهذا الترتيب مع تغيير row الى record .

sdss= اسم وظيفة تم اضافته فقط لكي يقوم كعداد لنتيجه البحث فاذا كان عدد الكتب المطابقة للبحث مثلا (5) يرجع رقم (5) فقط هذه مهمتها.. انظر الكود ..

DoCmd.SetWarnings False
On Error Resume Next
'DoCmd.RunSQL "CREATE TABLE tblTest ([AuTID] COUNTER ,[ID] TEXT(25));"
DoCmd.RunSQL ("DELETE tblTest.* FROM tblTest")
DoCmd.RunSQL ("INSERT INTO tblTest ( ID )SELECT dbo_tbl_main_book.book_no FROM q WHERE " & srchfeld & " Like " & CrtTxt & " ")
DoCmd.SetWarnings True
Me.tt.Value = DCount("ID", "tblTest")

انتبه يا حسن اول سطر تم تعطيله لأن الجدول المسمى (tblTest) موجود وهو مخفي .. اذا نسخت هذا الكود لقاعدة جديده يجب تفعيل الكود بإزالة الشرطه حتى يقوم بانشاء الجدول بشكل تلقائي ..

يتبع .......

مشكاة

تابع .........

الآن آخر مرحله .. وهي عند فتح النموذج في اجراء حدث عند الفتح يوجد الكود التالي وهو خاص بتحديد خصائص مربع السرد والتحرير (fsortN) برمجيا ..وهو يحتوي على الحقول التي نريد الفرز من خلالها كما يلي :-

Forms!frm!fsortN.RowSourceType = "Table/Query"
Forms!frm!fsortN.RowSource = "tble"
Forms!frm!fsortN.ColumnCount = 2
Forms!frm!fsortN.ColumnHeads = False
Forms!frm!fsortN.BoundColumn = 2
Forms!frm!fsortN.ColumnWidths = "2,0"

ترجمه ع السريع للكود

1- السطر الأول هو تحديد (نوع مصدر الصف) لعنصر التحكم (fsortN) وقد تم تحديده جدول/استعلام

2- السطر الثاني هو تحديد (مصدر الصف) وهو الجدول (tble) الذي تم شرحه اعلاه .. هل انت متابع يا صاحب المقالب والتشفير .. :D

3- السطر الثالث هو تحديد عدد العواميد التي ستظهر وهي (2) وستعرف أهمية ذلك .... راح اعقدك مثل ما عقدتنا ..( اتشاقا وياك ..)

4- السطر الرابع يقوم بتحديد اذا كان يوجد عنوان للعامود او بدون عنوان وقد تم تحديده false يعني ( لا عنوان )

5- السطر الخامس يقوم بتحديد اي عامود منظم يعني بالعربي الفصيح ما هي القيمه التي سترجع هل القيمه بالعمود (1) او (2) ونحن اخترناه طبعا (2) لماذا؟

الجواب :- لأن العامود الثاني هو اسم الحقل بالانجليزي وسيتعرف عليه الكود ويقوم بمهمه الفرز بينما المستخدم يقوم باختيار المسمى العربي .. إن شاء الله تكون الفكرة اتضحت.

6- السطر السادس يقوم بتحديد عرض كل عامود فالعامود الاول عرضه (2) بينما العامود الثاني عرضه (0) حتى لايظهر .. عندما تقوم بالتجربه ستعرف فائدة ذلك.

هذا طبعا كل شيئ

ومرفق القنبلة الذريه (اقصد المثال بعد التعديل)

مشكاة

sample_UP1.rar

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

الحقيقة والله إنك أستاذ وخففت علي كثير من المعاناة بالإضافة إلى أن شرحك وافي ما أعرف كيف أردك الجميل والله إنك راعي الأولة (اللهم إني أشهدك بأن أستاذي مشكاة إبراهيم قد ساهم في قضاء حاجة موقوفة لك وأنت تعلمها اللهم أكتبها له صدقة جارية ما أنتفع بها مسلم من أمة حبيبنا محمد صلى الله عليه وسلم وأقضي جميع حوائجه في الدنيا والأخرة) اللهم آمين .

أستاذي سوف أقوم بتجربة المثال وحتما سوف أحتاج إليك ممكن تدلني الدراجة اللي إنتا راكبها هذه في الصورة فين طريقها حتى أجي وأبنشر الكفرات حتى لا تغادر صفحاتي .

أنا منتظر ردك على مكان تواجدك وسبق أن طلبت موقع المستشفى ولكن ؟ .

هذا إيميلي وأحتاج كثيراً إن أمكن وفقك الله تعالى (h_mrahim@hotmail.com)

تحياتي أخوكم الصغير أبوأحمد .

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

تحية طيبة يا بو أحمد ..

اولا:- انا صراحة مغبوط ..لدعائك الصادق الذي غمرني وزاد وفاض .. وفقك الله ولك مثل ما دعوت .

ثانيا :- صدقني ياحسن ان الاخوة الاعضاء فيهم الخير والبركة ولعل قارئ .. غير مشارك يكون لديه من القدرات البرمجية تفوق تصورنا.. ولكن قد يمنعه مانع او يحجبه عن المشاركة مشاغل الحياة..

ثالثا:- وما اوتيتم من العلم الا قليلا .. وبجد اقول ان الاخوة المشرفين لديهم من القدارت البرمجية ومن غيرتحديد اسماء التي لو ظهرت .. لتعجبت منها ونحن تعلمنا منهم لا ننسى فضلهم ولكن ينطبق ايضا عليهم مشاغل الحياة والاولاد والاسرة فلهم مني كل التحية والتقدير..

رابعا:- كل ما تعلمنا أكثر نشعر بأننا نجهل الكثير .. و الفارق مثل (مثابر وصل ومقل فشل).

خامسا :- بالنسبة للدراجه .. هذه صورتي في بيتنا القديم ..وما دام انا فوق الدراجه انسى انك تصيدني :D إلا تشتريلك دباب.. ع فكرة (شرايك بالجاكيت)..

سادسا-: نظرا لقدراتك بالتشفير فلم أعرف انك طلبت سابقا ايميلي .. والآن عرفت مبروك..

سابعا :- نظرا لحاجتك مساحات كبيرة مع أخذ بعين الاعتبار( التشفير) فانا اعطيك هذا الايميل h55555h@gmail.com

ثامنا :- الحكمة تقول (أعقل الناس من جمع عقول الناس الى عقله ) انا انصح بشده ان يتم تداول كافة المواضيع بالمنتدى لتحصل على اكبر قدر من المشاركه ..

تاسعا :- هل تعرف سبب قيامي بالشرح ؟ هو لإستفادة العضو السائل بالدرجة الأولى والقارئ الكريم بالدرجة الثانية..فكثير من المشاركات التي تعلمنا منها كانت مدعمه بالشرح.

ولك مني كل التحية والتقدير

وتحية موصوله للقائمين على المنتدى والمشرفين

ولكل اعضاء المنتدى والقراء الكرام ..

مشكاة

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

أستاذي العزيز مشكاة ابراهيم بعد التحية

أولاً أود شكرك على الإستجابة على طلبي بإعطائي الإيميل الخاص بك وإن دل ذلك فإنما يدل على حرصك الشديد على المساعدة وفقكم الله .

ثانياً أما ما ذكرته بأن قدراتك تقل عن قدرات كثير من المرتادين (ايش هذا) نقول تواضع ولا ايه .

ثالثاُ أما عن ما ذكرته بأنه يصعب علي اللحاق بك لوجود الدراجة ألا تعلم يا أخي مع من تتحدث مع بطل سباق المراثون 30 كيلو وحصلت على المادية الفضيلة عدة مرات مع ملاحظة أن وزني 145 كيلو (لأني كنت أنا والأول فقط) .

رابعاً أما عن ذكرك كيف الجاكيت (أقول القالب غالب) إذا كان هذه الصورة من حيث تعاملك معنا فماذا عن أصلك الطيب أكيد شجرة عود وعنبر .

خامساً أما ما ذكرته عن الإستفادة أكثر بطرح المواضيع بالمنتدى لأستفادة لأكثر المشاركين صحيح ولكن ؟ (حل اللغز) .

سادساً خذ هذا الصاروخ :

إن ما ذكرته في الأكواد صحيح مائة في المائة ولكن في الأكسس فقط (اعني جداول الأكسس) من نوع mdb أما عن مشاريع الأكسس المرتبطة بـ sqlsrever وجدت بأنه يوجد إختلاف وأرجو إفادتي الحل وفقك الله :

1 - الكود

Select Case srchOption

Case 1

CrtTxt = ("srChtxt & ""*""")

Case 2

CrtTxt = ("""*"" & srChtxt & ""*""")

Case 3

CrtTxt = ("""*"" & srChtxt ")

End Select

علامة الـ * ما تمشي في مشاريع الأكسس adp ولا يتعرف عليها (طبعاً حسب معلوماتي) .

المطلوب توصيتكم بالحل المناسب .

2 - الكود

"WHERE " & srchfeld & " Like " & CrtTxt & " " & _

مشروع الـ adp ماهو معبره ويعطي رسالة خطأ ويذهب الخطأ إلى (الكود 1)

3 - الكود

'DoCmd.RunSQL "CREATE TABLE tblTest ([AuTID] COUNTER ,[iD] TEXT(25));"

DoCmd.RunSQL ("DELETE tblTest.* FROM tblTest")

DoCmd.RunSQL ("INSERT INTO tblTest ( ID )SELECT dbo_tbl_main_book.book_no FROM q WHERE " & srchfeld & " Like " & CrtTxt & " ")

DoCmd.SetWarnings True

Me.tt.Value = DCount("ID", "tblTest")

مشروع الـ adp ماهو معبره ولا يعطيه وجه .

أعلم أني قد أثقلت عليك ولكن لابد للمريض من زيارة الطبيب وأخذ الوصفة الطبية وأنت عندي مستشار . وفقك الله يا أستاذ بإنتظار نظرتك لأخوكم الصغير .

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

تحية طيبة يا أبا أحمد ..

بالنسبة الى ما تفضلت به :

اقتباس

سادساً خذ هذا الصاروخ :

إن ما ذكرته في الأكواد صحيح مائة في المائة ولكن في الأكسس فقط (اعني جداول الأكسس) من نوع mdb أما عن مشاريع الأكسس المرتبطة بـ sqlsrever وجدت بأنه يوجد إختلاف وأرجو إفادتي الحل وفقك الله :

الموضع بسيط جدا ولا يحتاج الى صاروخ و لا سكود ..

انت الآن مطالب بالآتي:-

1- هل تم الاجابة على سؤالك بالنسبة الى select التي طلبتها في البداية .. اذا كان ( نعم ) يجب ان تذكر ذلك حتى يستفيد القارئ .. ولا نلف في دوامه..

2- هل تعرف كرة الثلج.. حتى لا يكون السؤال مثل كرة الثلج .. يجب عليك فتح مشاركة جديده بالنسبة الى الموضوع .. ستعرف لماذا؟؟

3- بما انك تحولت من MDB الى ADP أو كما ذكرت SQL server فذلك يعني انك طموح جدا وتريد القفز أكثر مما تستطيع .. وان كنت تستطيع فذلك يعني ان لديك خبرة في كيفية انشاء قاعدة بيانات ع السيرفر وباستخدام لغة قوية ايضا وهذا يعني ايضا ان منتدى مبرمجي Microsoft SQL server بانتظار مشاركتك ..

4- بالنسبة الى الكود (ببساطه نحن أمام شخص يتكلم ياباني وآخر خليجي ) ما هو المطلوب لكي يفهم كل منهما الآخر؟ ممتاز .. مترجم..

والمترجم هو معرفة للغة.مثل كيفية استخدام (%-@-^- _ ) وما هو معنى % أو @ في لغة SQL server الخ.. فإذا كنت لا تعرفها أكيد مشروع adp ما راح يعبرك ولا يعطيك وجه ... ;)

6- وعلى سبيل الاستفادة ايضا .. هناك طريقتين لتحويل القاعدة الى مشروع وانا لن اتطرق لها ولكن اتركك مع هذا الرابط لمشرفنا العزيز محمد فؤاد استعلامات مشاريع أكسس

حاول قراءة الرابط فيه معلومات مفيده راح تستفيد منها إن شاء الله..

7- يا بو احمد انت مطالب بتنفيذ بند 1 حتى لا تترك ذيل لأسئلتك التي سرعان ما تتشعب. ( واعتقد ان هذا هو حل اللغز!!)

8- اذا كنت مصر على تعلم sql server فهناك الكثير من الكتب .. عليك قرائتها في البداية وإن شاء الله تكون فلته من فلتات العصر ونتعلم منك .

مشكاة

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

أستاذي مشكاة ابراهيم بعد التحية

شكلك جاي اليوم زعلان وتفش خلقك علي ( ما أدري ممكن أحد بنشر كفرات الدراجة غيري ولا ايه)

ثانياً : أستاذي

نعم ان ما ذكرته بشأن إستخدامي لمشروع adp وذلك نظراً لكثرة البيانات حيث أن معدل الكتب يفوق الـ مائة وخمسون ألفاً فقط بيانات بالإضافة إلى ما يلحق به من bdf للكتب وصوت وصورة مما أضرني لإستخدام الـ sqlserver وأنا لست ضليع فيها ولكن الحاجة أضطرتني لذلك .

ثالثاًُ : أستاذي

نعم لقد سبق لي أن أطلعت على فكرة المشرف محمد فؤاد ولكن الكفر بنشر معاه وأضطر لإستخدام الربط odbc لأكسس mdb وياريت مشي معايا كان وفر علي كثير من الوقت حيث عندي خلفية طيبة ولكن السبب مثلما ذكرت في الفقرة الثانية كبر حجم البيانات مما أدى إلى توقف (تهنيق البرنامج mdb) كثيراً) بالرغم من التكبير للحجم مثلما ذكرته أختنا الغالية زهرة فلسطين .

ثالثاُ : أستاذي

أبشرك عملت اللازم للأكواد وغيرت شوي مثلما ذكرت (%) ومشي الحال والحمد لله ولك من الله الأجر والمثوبة ولكن وقف عندي الكود الأخير الخاص بـ

Me.tt.Value = DCount("ID", "tblTest")

ملزم ما يعمل (حسبي الله ونعم الوكيل)

رابعاً: إن طلبي من وجهة نظري كان في صلب الموضوع مع ملاحظة (التشفير) والظاهر القطعة تحتاج تغيير .

خامساً: أستاذي اكرر أسفي على إزعاجك ولكن (أفضل الناس ما بين الورى رجل تقضى على يديه للناس حاجات)

لا تزعل يا أبو الشباب خليك رياضي مثلي

لك مني التحية والتقدير أخوك الصغير دائماً أبوأحمد .

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

تحية طيبة يا بو احمد .. مع التماس العذر ع التأخير بسبب الامتحانات .....

ندخل بالموضوع

اقتباس

أبشرك عملت اللازم للأكواد وغيرت شوي مثلما ذكرت (%) ومشي الحال والحمد لله ولك من الله الأجر والمثوبة ولكن وقف عندي الكود الأخير الخاص بـ

Me.tt.Value = DCount("ID", "tblTest")

ممتاز يا بو احمد انك قدرت تفك الشفرة .. حيث ان الاكسس يستخدم (*) بينما لغة sql نستخدم (%) للتعبير عن سلسة احرف والاكسس مثلا يستخدم (؟) للتعبير عن حرف بينما sql يستخدم (_).. الى هنا لا مشكلة عندك وبقيت لديك مشكلة .. me.tt.value .. أوكي

لو عرف السبب بطل العجب ..

هذه الدالة تقوم بحساب عدد السجلات في الجدول tblTest وقد اشرت اليها سابقا..

اقتباس

sdss= اسم وظيفة تم اضافته فقط لكي يقوم كعداد لنتيجه البحث فاذا كان عدد الكتب المطابقة للبحث مثلا (5) يرجع رقم (5) فقط هذه مهمتها..

انتبه يا حسن اول سطر تم تعطيله لأن الجدول المسمى (tblTest) موجود وهو مخفي .. اذا نسخت هذا الكود لقاعدة جديده يجب تفعيل الكود بإزالة الشرطه حتى يقوم بانشاء الجدول بشكل تلقائي ..

فلو فرضنا انك متصل بقاعدة sql وتستطيع انشاء جدول فلا توجد مشكلة ..

لو فرضنا غير ذلك .. فنحن بحاجة الى كود يقوم بحساب عدد السجلات دون اللجوء الى جدول tbleTest ..

توجد طريقتين

1- باستخدام sql

2- باستخدام dcount

سنقوم بشرح رقم (2) وإن شاء الله تعمل الطريقة .

سنقوم بالاعتماد على مصدر الاستعلام الموجود ..الذي اسمه "q"

وسنقوم باضافة الكود التالي :-

	Dim CrtCount As String

طبعا تعريف CrtCount كنص لاستخدامه في دالة الselect case كالآتي:-

	Select Case srchOption
		Case 1
			CrtTxt = ("srChtxt & ""*""")
			CrtCount = (srchfeld & " like '" & srChtxt & "' & ""*"" ")

		Case 2
			CrtTxt = ("""*"" & srChtxt & ""*""")
			CrtCount = (srchfeld & " like ""*"" & '" & srChtxt & "' & ""*"" ")
		Case 3
			CrtTxt = ("""*"" & srChtxt ")
			CrtCount = (srchfeld & " like ""*"" & '" & srChtxt & "'")

لا حظ انه تم اضافة السطر الثاني فقط على الكود القديم من كل حالة لتماشي عملية البحث..

srchfeld = تمثل اسم الحقل الذي يتم البحث على اساسه ..

srChtxt = اسم عنصر التحكم على النموذج والذي يعطي قيمه للبحث عنها..

ثم نضع هذه الدالة في النهاية..

	Me.tt = DCount(srchfeld, "q", CrtCount)

CrtCount= الشرط الذي سيتم تطبيقه حسب الاختيار يبدأ .. يحتوي .. ينتهي ..

srchfeld= اسم الحقل الذي يتم يتم تطبيق البحث على اساسه فإذا كان نص يضع الحقل book_nm واذا كان رقم يضع الحقل book_no

نأتي الى :-

اقتباس

لا تزعل يا أبو الشباب خليك رياضي مثلي

طيب انا موجود على الدراجه يعني رياضي وهذا معناه ما في زعل ( الشر بره وبعيد ) ولكن حاولت ان انبه الى طريقة الاسئلة التي تتدجرج وتكبر .. وكان مقصدي انه اذا حلت المشكلة الاولى فمن الاولى انهاء الموضوع وفتح مشاركة جديده للموضوع الثاني .. وذلك ان الاعضاء بعد اشهر يبحثون عن مشكله من خلال العنوان فاذا كان موضوع طويل ويحتوي على اجابات لمواضيع مختلفة هذا يعني حرمانهم من الاستفادة...

والله من وراء القصد

ومرفق التعديل الرابع الجديد

مشكاة

sample_UP4.rar

روح يا شيخ الله يفتحها عليك والله انك جبتها وما يجيبها الا مشكاتها . وفقك الله يا اخي نعم بالضبظ هذا المطلوب وصحيح مائة بالمائة .

أشكرك استاذي وفقك الله تعالى على الجهد الذي بذلته معي بالرغم من وجود امتحانات لديك حسب ما ذكرت يا رب تكون في اعلى الدرجات في الدنيا والأخرة آمين .