البحث في قواعد البيانات ( أكسس )

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

مشكلتي اعمل على اعداد برنامج قاعدة بيانات كمفكرة صغيرة خاصة والبرنامج على مايرام لكن

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

والعنوان على ما يرام دون اي مشاكل ولكن في رقم الجوال وعنوان البريد الالكتروني تعمل في البحث

ولكن عندما اكتب رقم جوال شخص اصلا غير موجود في السجلات أو عنوان بريد الكتروني يحدث خطى في البرنامج

وتحمل رسالة الخطىما يلي:

run time error '3464':

data type mismatch in criteria expression.

اما رقم البيجر فلا يقوم بالبحث ابداً وتضهر نفس الرساله السابقة هذه مشكلتي

مشكلتي اتالية انني اريد ان اجعل عندما يتم البحث بواصطة الاسم يعمل البرنامج على ترتيب

ابجدي للاسماء وعندما يتم البحث برقم الهاتف يتم ترتيب ابجدي للارقام ونحوه

هذا واتمنى ان اجد حلاً عندكم كما عوتمونا دائماً مع احترامي الفئق لكم

أخوكم ياسر ... سلام

Private Sub Command1_Click()

   

    Dim X As Integer

    Dim ZSTRING As String

          

    Select Case Combo1.ListIndex

    Case 0

            ZSTRING = Trim(Text1.Text)

            X = Len(ZSTRING)

            Data1.Recordset.FindFirst "Left$([الاسم],'" & X & "' ) = '" & ZSTRING & "'"

         If Data1.Recordset.NoMatch Then _

MsgBox "الاسم " & Text1.Text & " غير موجود"

    Case 1

            ZSTRING = Trim(Text1.Text)

            X = Len(ZSTRING)

            Data1.Recordset.FindFirst _

"Left$([العنوان],'" & X & "' ) = '" & ZSTRING & "'"

         If Data1.Recordset.NoMatch Then _

MsgBox "العنوان " & Text1.Text & " غير موجود"

    Case 2

            ZSTRING = Trim(Text1.Text)

            X = Len(ZSTRING)

            Data1.Recordset.FindFirst "Left$([رقم الهاتف],'" & X & "' ) = '" & ZSTRING & "'"

         If Data1.Recordset.NoMatch Then _

MsgBox "رقم الهاتف " & Text1.Text & " غير موجود"

    Case 3

            ZSTRING = Trim(Text1.Text)

            X = Len(ZSTRING)

            Data1.Recordset.FindFirst "Left$([رقم الجوال],'" & X & "' ) = '" & ZSTRING & "'"

         If Data1.Recordset.NoMatch Then _

MsgBox "رقم الجوال " & Text1.Text & " غير موجود"

    Case 4

            ZSTRING = Trim(Text1.Text)

            X = Len(ZSTRING)

            Data1.Recordset.FindFirst "Left$([رقم البيجر],'" & X & "' ) = '" & ZSTRING & "'"

         If Data1.Recordset.NoMatch Then MsgBox "رقم البيجر " & Text1.Text & " غير موجود"

    Case 5

            ZSTRING = Trim(Text1.Text)

            X = Len(ZSTRING)

            Data1.Recordset.FindFirst "Left$([البريد الإلكتروني],'" & X & "' ) = '" & ZSTRING & "'"

        If Data1.Recordset.NoMatch Then _

MsgBox "عنوان البريد الإلكتروني " & Text1.Text & " غير موجود"

    End Select



End Sub

[عدلت بواسطة محمد بدوي ت:11-04-2001 س: 06:00 AM]