[asemshahen5]

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

ضع هذا الكود في الموديول :

PHP كود :

   Sub Autocomplete_TXT(FieldName As String, TableName As String, txtAutoComplete As TextBox)
        Dim Dt As New DataTable
        Dim Query As String = "Select " & FieldName & " From " & TableName & " order by " & FieldName & " "
        Dt = FillDataTable(Query)
        Dim DataSource As New AutoCompleteStringCollection
        For i As Integer = 0 To Dt.Rows.Count - 1
            DataSource.Add(Dt.Rows(i)(0).ToString)
        Next
        txtAutoComplete.AutoCompleteCustomSource = DataSource
        txtAutoComplete.AutoCompleteSource = AutoCompleteSource.CustomSource
        txtAutoComplete.AutoCompleteMode = AutoCompleteMode.SuggestAppend
    End Sub 


كود الاستخدام بالفورم :

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Autocomplete_TXT("اسم العامود", "اسم الجدول", Textbox1)
    End Sub 


بالنسبة لمشاركة قاعدة بيانات أكسيس على الشبكة :

شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية .