منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : عايز ابحث في الاكسس بالفيجوال
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم.
انا الحمد لله اقوم بتصميم برنامج لادارة معمل تحاليل طيبة.
١/عايز لما اجي اكتب في خانة الطبيب وهي عبارة عن تيكست يقترح عليا الاسماء من جدول من الاكسس..
وشكرا..
PHP كود :
Private Sub auto_complete()
 
       Try

            If Conn
.State ConnectionState.Closed Then
                Conn
.Open()
 
           End If

 
           Dim cmd As New OleDbCommand("SELECT MaterialName FROM Materials"Conn)
 
           Dim ds As New DataSet
            Dim da 
As New OleDbDataAdapter(cmd)
 
           da.Fill(ds"list")

 
           Dim col As New AutoCompleteStringCollection
            Dim i 
As Integer
            For i 
0 To ds.Tables(0).Rows.Count 1
                col
.Add(ds.Tables(0).Rows(i)(0).ToString())
 
           Next
            Conn
.Close()

 
           TxTMaterialName.AutoCompleteSource AutoCompleteSource.CustomSource
            TxTMaterialName
.AutoCompleteCustomSource col
            TxTMaterialName
.AutoCompleteMode AutoCompleteMode.Suggest
        Catch ex 
As Exception

        End 
Try
 
   End Sub 

وتستدعي الميثود اينما تريد
PHP كود :
auto_complete 
طب ممكن مثال.
تفضل سيكون ما طلبت في خانة ال name في form 2
ولكن اخي انا متصل بالكومبوبوكس ... فاذا ابطلت عملة 
تفعل هذا الكود واذا فعلت الكومبوبوكس..
يظهر لي هذة الرسالة...

تظهر لي هذه الصورة...

تظهر لي هذه الصورة...

Heart Heart الحمد لله اكتشفت الخطأ وهو اني اخلي حدث التيكست 
DoubleClick
وبس....
شكرا لمن ساعدني Big Grin Big Grin
بالتوفيق اخى اسامه الهرماوي 

تحياتى لك ولاخى Rabeea Qbaha
على المساهمة الرائعة

وتمنياتى لكم التوفيق