لدي قاعدة بيانات مكوناتها كالتالي:
الاسم بالكامل
الاسم الأول
أول حرف من الاسم الأول
عملت نموذج به قائمتي اختيار (ComboBoxes) ومربع نص
المطلوب:
قائمة الاختيار الأولة تحتوي على قيم الحقل أول حرف ,, وقائمة الاختيار الثانية تحوي قيم (الاسم الأول) فقط التي تماثل الحرف الأول الذي تم اختياره في القائمة الثانية
مربع النص يحو الأسماء التي تطابق الخيارين الذين اختيرا في قائمتي الاختيار .
المشكلة أنه بعد الاختيار من القائمة الأولى ثم محاولة الاختيار من القائمة الثانية تظهر رسالة الفلترة معنوة بالحرف الذي تم اختياره بالقائمة الأولى !!
الملف مرفق مع الموضوع للتطبيق
وهذا هو الكود الذي وضعته للقائمة الأولى:
Private Sub Combo3_AfterUpdate()
Dim SQLq, temp As String
SQLq = "Select NamesAndInitials.FirstName"
SQLq = SQLq & " From NamesAndInitials"
temp = Combo3.SelText
' I also tried temp = Me!Combo3 with no luck :(
SQLq = SQLq & " Where Initial = " & temp & ";"
MsgBox SQLq
Me!Combo5.RowSourceType = "Table/Query"
Me!Combo5.RowSource = SQLq
End Sub