[رومنس الشوق]

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

كيفكم انشالله بخير

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

وحبيت اجمع كل ازرار البحث بزر واحد فقط 

يعني انا عندي 

اسم الشخص ورقم هويته وجواله كما بالصورة



ولما اريد البحث اذهب لخانه الاسم واضع الاسم واضغط بحث باسم

ولما اريد البحث بالهويه اذهب لخانه الهويه واضع فيها الرقم واضغط بحث بالهويه 

وهكذا بالبقيه

وانا اريد وضعها بزر واحد كما بالصورة التاليه يكون زر واحد فقط 





وهذا الكود كامل

كود :

Imports System.Data
Imports System.Data.OleDb

Public Class Form1
   Dim cmdselect As New OleDbCommand
   Dim connAccess2005 As New OleDbConnection
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       connAccess2005.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\data.mdb"
   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
       ' زر الحفظ

       connAccess2005.Open()

       Try
           Dim cmdinsert As New OleDbCommand("insert into tan (namemt, idmt, numq) values ('" & txtname_m.Text & "','" & txtid_m.Text & "','" & txtnum_q.Text & "')")
           cmdinsert.Connection = connAccess2005
           cmdinsert.ExecuteNonQuery()
           MsgBox("تم حفظ البيانات بنجاح")
           txtname_m.Clear()
           txtid_m.Clear()
           txtnum_q.Clear()

       Catch ex As Exception
           MsgBox(ex.Message.ToString)
       End Try
       connAccess2005.Close()
   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       '  البحث بالاسم

       connAccess2005.Open()
       Try
           Dim cmdselect As New OleDbCommand("SELECT * FROM [tan] WHERE [namemt] LIKE '%" & txtname_m.Text & "%'", connAccess2005)
           Dim da As New OleDbDataAdapter(cmdselect)
           Dim re As OleDbDataReader
           re = cmdselect.ExecuteReader
           If re.Read Then
               txtname_m.Text = re(0).ToString
               txtnum_q.Text = re(2).ToString
               txtid_m.Text = re(1).ToString

           Else
               MsgBox("بيانات الشخص غير موجوده قم باضافتها")
               txtname_m.Clear()
               txtnum_q.Clear()
               txtid_m.Clear()

           End If
       Catch ex As Exception
           MsgBox(ex.Message.ToString)
       End Try

       connAccess2005.Close()
   End Sub

   Private Sub Button4_Click(sender As System.Object, e As System.EventArgs)

       '  البحث بالهويه

       connAccess2005.Open()
       Try
           Dim cmdselect As New OleDbCommand
           cmdselect.Connection = connAccess2005
           cmdselect.CommandText = " select * from tan where idmt = '" + txtid_m.Text + "' "
           Dim re As OleDbDataReader
           re = cmdselect.ExecuteReader
           If re.Read Then
               txtname_m.Text = re(0).ToString
               txtnum_q.Text = re(2).ToString
               txtid_m.Text = re(1).ToString

           Else
               MsgBox("بيانات الشخص غير موجوده قم باضافتها")
               txtname_m.Clear()
               txtnum_q.Clear()
               txtid_m.Clear()
           End If
       Catch ex As Exception
           MsgBox(ex.Message.ToString)
       End Try

       connAccess2005.Close()
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs)

       ' البحث برقم الجوال

       connAccess2005.Open()
       Try
           Dim cmdselect As New OleDbCommand
           cmdselect.Connection = connAccess2005
           cmdselect.CommandText = " select * from tan where numq = '" + txtnum_q.Text + "' "
           Dim re As OleDbDataReader
           re = cmdselect.ExecuteReader
           If re.Read Then
               txtname_m.Text = re(0).ToString
               txtnum_q.Text = re(2).ToString
               txtid_m.Text = re(1).ToString

           Else
               MsgBox("بيانات الشخص غير موجوده قم باضافتها")
               txtname_m.Clear()
               txtnum_q.Clear()
               txtid_m.Clear()
           End If
       Catch ex As Exception
           MsgBox(ex.Message.ToString)
       End Try

       connAccess2005.Close()
   End Sub

   Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
       'مسح البيانات الموجوده

       txtname_m.Text = ""
       txtid_m.Text = ""
       txtnum_q.Text = ""
   End Sub
End Class

وهذا مثال ارفقته في المرفقات لكم اتمني التعديل عليه ولكم  الشكر والتحيه

ولكم  الشكر والتحيه