الاختيار تلقائيا من TextBox

[tarooq]

اخوانى ساضرب مثالا لتوضيح طلبى

عندى فى النموذج خانة لادخال الاسم اسم املئه فى تكست بوكس عادى فمثلا الاسم الاول ادخلته احمد محمد والاسم الثانى يوسف اسماعيل والاسم الثالث ايهاب محمد اريد عندما اقوم مثلا بادخال اسم احمد مرة اخرى ان يظهر لى كلمة احمد فى التكست بوكس تلقائيا اى بمعنى اننى قمت بادخالها سابقا فتظهر لتقائيا فى التكست بوكس

انا اعلم ان هذه الطريقة موجودة عندما اعمل على كومبو بوكس

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

[Bluemind]

اخوي طارق

في حدث on key press اكتب الكود التالي مع تغير "firstName" في الكود الى اسم التيكست بوكس الموجود عندك

اما الكلمه " First " هذي غيرها باسم الحقل الموجود في الجدول

    Dim strMatchText As String
    Dim strFoundText As String

    Select Case KeyAscii
        Case Is < 32: Exit Sub
        Case Is > 126: Exit Sub
    End Select

    strMatchText = Mid(Me.Firstname.Text, 1, Me.Firstname.SelStart) & Chr$(KeyAscii)
    KeyAscii = 0

    If Len(strMatchText) = 0 Then Exit Sub

    With Me.RecordsetClone

        .FindFirst _
            "First  Like " & _
            Chr(34) & _
            Replace(strMatchText, """", """""") & _
            "*" & Chr(34)

        If .NoMatch Then

            With Me.Firstname.Text = strMatchText & Right(.Text, Len(.Text) - (.SelStart + .SelLength))
                .SelStart = Len(strMatchText)
            End With

        Else
            strFoundText = !First

            With Me.Firstname
                .Text = strFoundText
                .SelStart = Len(strMatchText)
                .SelLength = Len(strFoundText)
            End With

        End If

    End With

End Sub

تم تعديل يونيو 5, 2008 بواسطه Knight22666

[tarooq]

اخى بارك الله فيك

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

TaReQ.rar

[Hamdi Edlbi-khalf]

السلام عليكم

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

لقد جربت الكود المرفق و لكي يعمل يجب أن تكون الكتابة بالعربية و اتجاه الكتابة في مربع النص من اليمين إلى اليسار و إلا فيظهر رسالة خطأ و كذلك السطر :

في ٥‏/٦‏/٢٠٠٨ at 19:01, Bluemind said:

With Me.Firstname.Text = strMatchText & Right(.Text, Len(.Text) - (.SelStart + .SelLength))                 .SelStart = Len(strMatchText)             End With

فإنه يظهر خطأ أيضاً

و بحال تعطيل السطر فإن زر المسطرة سيستدعي أول اسم قد تكرر بغض النظر عن  حروفه

هل لدى أحد الأساتذة تعديل على هذا الكود أو كود بديل ؟ فهذا الموضوع سيكسب الأكسس بعض المميزات التي يتفرد بها الإكسل