[سعود]

مثال بسيط
موديول

كود :

Module Module1
    Public str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Public con As New OleDb.OleDbConnection(str)
    Public ds As New DataSet
    Public sql As String = "select * from tb"
    Public da As New OleDb.OleDbDataAdapter(sql, con)
    Public pos As Integer = 0
    Public Sub fi()
        ds.Clear()
        Form1.tname.DataBindings.Clear()
        Form2.mobile.DataBindings.Clear()
        Form3.email.DataBindings.Clear()

        da.Fill(ds, "tb")

        Form1.tname.DataBindings.Add("text", ds, "tb.tname")
        Form2.mobile.DataBindings.Add("text", ds, "tb.mobile")
        Form3.email.DataBindings.Add("text", ds, "tb.email")


    End Sub
  
End Module

الفورم الاول (فيد اداة نصية باسم tname)

كود :

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        fi()
        mov.Left = Me.Left + Me.Width
        Form2.Top = Me.Top + Me.Height
        Form3.Top = Form2.Top + Form2.Height
        Form2.Show()
        Form3.Show()
        mov.Show()
    End Sub

End Class

وفورمين form2.mobile
form3.email
وفورم اخر للتنقل به زرين
السابق

كود :

Form1.BindingContext(ds, "tb").Position -= 1
        Form2.BindingContext(ds, "tb").Position -= 1
        Form3.BindingContext(ds, "tb").Position -= 1

اللاحق

كود :

Form1.BindingContext(ds, "tb").Position += 1
        Form2.BindingContext(ds, "tb").Position += 1
        Form3.BindingContext(ds, "tb").Position += 1

اما المطلوب فاسهل من كذا ان الزر الذي ننقره مخزن به قيمة مانريد الاستعلام عنه فالامر اكثر بساطة ارجو رفع مثالك للتعديل عليه