استفسار للعارفين ببرمجة اكسس - يوجد مقطع فيديو
banner
2019-01-24 , 01:56 صباحاً
sbj1428’s Avatar
sbj1428

نشيط

المشاركات:668
التسجيل:Aug 2014
sbj1428
مساكم او صبحكم الله بالخير

عندي تطبيق صغير فكرته مشروحة بالتمام في هذا المقطع الله يوفق صاحبه
https://www.youtube.com/watch?v=I6w9fo2IX7c

التطبيق جدول واحد فيه مئات السجلات وحقول لاسماء الطلاب والمواد التي يدرسونها
وهناك مربع قائمة يتضمن استعلام يعرض جميع اسماء الطلاب في حقل الاسماء
ومربع نص استخدمه للبحث في مربع القائمة وكاداة تحكم في الاسماء التي تظهر بحيث يتم كتابة اسم الطالب او جزء منه ليتم تصفيه مربع القائمة

في الفيديو صاحب الدرس اضاف لمربع النص حدث في عند التحديث وزر ليقوم بتصفيه مربع القائمة
سؤالي هو كيف اجعل مربع النص يفلتر مربع القائمة بشكل تلقائي عند الكتابة بدون الحاجة لضغط الزر ، يعني اريد الحدث يضاف عند التغيير وليس التحديث ومع كتابة اول حرف يتجاوب مربع القائمة ويقوم بتقليص النتائج لتتوافق مع الحروف المدخلة وهكذا حتى انتهي من كتابة الكلمة لتكون النتائج المقصودة فقط هي الظاهرة في مربع القائمة

هدفي هو على سبيل المثال عندما ابدأ في كتابة اي كلمة وليكن مثلاً محمد ، ان تبدأ تصفية القائمة مع كتابة اول حرف وبعد كتابة الحرف الثاني تتقلص النتائج فتظهر فقط الاسماء التي تحتوي على مح مثل محمد محمود
انا طبعا كما في المثال استخدم like *

لا اريد ارهاق احد بطول شرح فقط اطلب ان يساعدني من يستطيع منكم في حل هذه الجزئية او احالة لمصدر استطيع من خلاله معرفة الحل
وشكرا مقدماً لمن سيفيدني
Enlarged Image
2019-01-24 , 01:56 صباحاً
2019-01-24 , 02:08 صباحاً
sbj1428’s Avatar
sbj1428

نشيط

المشاركات:668
التسجيل:Aug 2014
sbj1428
ما اريده في سؤالي هو بالضبط ما يفعله راعي هذا الدرس الذي يعرض فقط النتيجة والكود كتبه في وصف الفيديو تحت المقطع

https://www.youtube.com/watch?v=3cJinHSSkuI

[LEFT][CODE]Private Sub txtProperty_Change()
On Error GoTo Err_txtProperty_Change

Dim strSource As String
strSource = "SELECT OrderNumber, Address, City, ZipCode, OrderRowID " & _
"FROM tblOrders " & _
"Where address Like '*" & Me.txtProperty.Text & "*' " _
& "Or City Like '*" & Me.txtProperty.Text & "*' " _
& "Or ZipCode Like '*" & Me.txtProperty.Text & "*' " _
& "Or OrderNumber Like '*" & Me.txtProperty.Text & "*' "

Me.lstSearchResults.RowSource = strSource

Exit_txtProperty_Change:
Exit Sub
Err_txtProperty_Change:
MsgBox Err.Number & " " & Err.Description
Resume Exit_txtProperty_Change


End Sub[/CODE][/LEFT]

لقد حاولت محاكاة الكود وتعديله ليعمل معي لكن للاسف المحاولات باءت كلها بالفشل
2019-01-24 , 02:08 صباحاً
2019-01-24 , 02:08 صباحاً
Dial-Up’s Avatar
Dial-Up

مشارك

المشاركات:508
التسجيل:Apr 2004
Dial-Up
أبحث عن
Search as you type with MS Access
2019-01-24 , 02:08 صباحاً
2019-01-24 , 02:18 صباحاً
sbj1428’s Avatar
sbj1428

نشيط

المشاركات:668
التسجيل:Aug 2014
sbj1428
Dial-Up كتب:
أبحث عن
Search as you type with MS Access

شكرا لك اخي
طرحت سؤالي بعد ان اعياني البحث

وجدت الكثير من الدروس وهذا احدها ، والطرق التي رايتها كلها تنجح اذا كنت تدرج الاستعلام نفسه داخل النموذج
لكن مع مربع القائمة list box الامر يختلف ، وفهمت انه يلزمني اضافة كود يحتوي متغير يقوم بتتبع الخاصية text لمربع النص ، ثم جعل هذا المتغير هدف لمصدر تصفية السجلات في مربع القائمة ، ومع جميع المحاولات لم تنجح اي واحدة منها للاسف

https://www.youtube.com/watch?v=ZxwMC831C-o
2019-01-24 , 02:18 صباحاً
2019-01-25 , 12:30 صباحاً
sbj1428’s Avatar
sbj1428

نشيط

المشاركات:668
التسجيل:Aug 2014
sbj1428
الله يعين ومعذورين فانا اتخيل واحد يعرف الاجابة ويقرأ السؤال بس مشوار يروح يجاوب ويشرح
والمشكلة لما تجي استفسارات جديدة من اللي بيقعد يجاوب وايش رايح يستفيد

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

الموضوع التعليمي اللي اخذت منه الملف موجود على الرابط
https://access-programmers.co.uk/forums/showthr...

المنتدى مقفل ويحتاج تسجيل لرؤية الموضوع وتنزيل الملف

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

الخطوات الاضافية على الموضوع التعليمي
انك تعمل مربع نص جديد وتعطيه هذا الاسم : SrchText
وتغير في خصائص مربع النص هذا وتخليه مخفي

بعدين تروح لمربع النص الاول اللي راح تكتب فيه كلمات البحث واللي اسمه في الدرس : txtsearch
وفي الاحداث تروح عند التغيير وتفتح الفيجوال بيسك وتلصق هذا الكود بين الصب الخاص بالحدث
[LEFT][CODE]'Create a string (text) variable
Dim vSearchString As String

'Populate the string variable with the text entered in the Text Box SearchFor
vSearchString = txtsearch.Text

'Pass the value contained in the string variable to the hidden text box SrchText,
'that is used as the sear4ch criteria for the Query QRY_SearchAll
SrchText.Value = vSearchString

'Requery the List Box to show the latest results for the text entered in Text Box SearchFor
Me.customerlist.Requery


'Tests for a trailing space and exits the sub routine at this point
'so as to preserve the trailing space, which would be lost if focus was shifted from Text Box SearchFor
If Len(Me.SrchText) <> 0 And InStr(Len(SrchText), SrchText, " ", vbTextCompare) Then
Exit Sub
End If

'Set the focus on the first item in the list box
Me.customerlist = Me.customerlist.ItemData(1)
Me.customerlist.SetFocus

'Requery the form to refresh the content of any unbound text box that might be feeding off the record source of the List Box
DoCmd.Requery

'Returns the cursor to the the end of the text in Text Box SearchFor
Me.txtsearch.SetFocus

If Not IsNull(Len(Me.txtsearch)) Then
Me.txtsearch.SelStart = Len(Me.txtsearch)
End If[/CODE][/LEFT]

وسلامتكم
2019-01-25 , 12:30 صباحاً
2019-01-25 , 01:47 صباحاً
حسام وليد’s Avatar
حسام وليد

مشارك

المشاركات:602
التسجيل:Apr 2014
حسام وليد
سلام عليكم

اخ sbj1428 انت على عكس اعضاء هذا الزمن تبحث وتشتغل لحين ما تلاقي حل او تلاقي صعوبة في حل شي , مادام انك نويت ان شاء الله يبارك في وقتك وتحصل الي تبغاه ان كان اليوم او غدا

هذه اللغة تركتها من سنين وليس لي علم كيفية التعامل مع دوال الاوفيس , ربما لو تحولت الى سي شارب ان شاء الله تلاقي طن من المصادر الجديدة او من التسهيلات , فجوال بيسك6 على مااظن المستخدم في مشروعك تكاد تكون عائق في بعض الاحيان
كل الي اقدر انفعك فيه هذه الروابط
https://planet-source-code.com/vb/scripts/Brows...

او

https://planet-source-code.com/vb/scripts/Brows...

او فجوال بيسك دوت نت
https://planet-source-code.com/vb/scripts/Brows...

من ايام زمان كان من المصادر التي سهلت لي في امور اللغة
2019-01-25 , 01:47 صباحاً
2019-01-26 , 04:05 مساءً
sbj1428’s Avatar
sbj1428

نشيط

المشاركات:668
التسجيل:Aug 2014
sbj1428
حسام وليد كتب:
سلام عليكم

اخ sbj1428 انت على عكس اعضاء هذا الزمن تبحث وتشتغل لحين ما تلاقي حل او تلاقي صعوبة في حل شي , مادام انك نويت ان شاء الله يبارك في وقتك وتحصل الي تبغاه ان كان اليوم او غدا

هذه اللغة تركتها من سنين وليس لي علم كيفية التعامل مع دوال الاوفيس , ربما لو تحولت الى سي شارب ان شاء الله تلاقي طن من المصادر الجديدة او من التسهيلات , فجوال بيسك6 على مااظن المستخدم في مشروعك تكاد تكون عائق في بعض الاحيان
كل الي اقدر انفعك فيه هذه الروابط
https://planet-source-code.com/vb/scripts/Brows...

او

https://planet-source-code.com/vb/scripts/Brows...

او فجوال بيسك دوت نت
https://planet-source-code.com/vb/scripts/Brows...

من ايام زمان كان من المصادر التي سهلت لي في امور اللغة

الله يبارك فيك ومشكور على الرد
سبحان الله جات نصيحتك على الهوى لاني كنت افكر فيها واقول ليش اضيع الوقت في الاكسس والvba
باذن الله ساحاول تعلم السي شارب خاصة وان المراجع التعليمية فعلا متوفرة بغزارة وباللغة العربية
اشكرك جزيل الشكر
2019-01-26 , 04:05 مساءً