How to link the form1 to form2

[junjun61991]

i have a problem in my program.... i want to link the database in the search form1 to form2 ... what was the code.. the code is in below... what is the error and what is the proper code of this....

this is my form 1 code that link to my form2...

Private Sub cmdsearch_Click()
Form8.txtidno.Text = Form4.txtidno.Text
Form8.txtborrowname.Text = Form4.txtborrowname.Text
Form8.txtcourse.Text = Form4.txtcourse.Text
Form8.txtyear.Text = Form4.txtyear.Text
Form8.txtnf.Text = Form4.txtnf.Text
Form8.txtbooktittle1.Text = Form4.txtbooktittle1.Text
Form8.txtacc1.Text = Form4.txtacc1.Text
Form8.txtauthor1.Text = Form4.txtauthor1.Text
Form8.txtcall1.Text = Form4.txtcall1.Text
Form8.txtdatedue.Text = Form4.txtdatedue.Text
Form8.txtdatereturn.Text = Form4.txtdatereturn.Text
Form8.txtborrowed.Text = Form4.txtborrowed.Text
End Sub
......

and this is my second form code..

Private Sub Form_Load()
Form4.txtidno.Text = Form8.txtidno.Text
With Data1.Recordset
            a = Form4.txtidno.Text = Form8.txtidno.Text
            .FindFirst "[IDno]='" & a & "'"
                If .NoMatch Then
              MsgBox "The Information is not Recorded.!", vbInformation, "Search"
                ElseIf vbYes Then
                Form4.txtborrowname.Text = Form8.txtborrowname.Text = .Fields("borrowname")
                Form4.txtcourse.Text = Form8.txtcourse.Text = .Fields("course")
                Form4.txtyear.Text = Form8.txtyear = .Fields("year")
                Form4.txtacc1.Text = Form8.txtacc1.Text = .Fields("acc1")
                Form4.txtbooktittle1.Text = Form8.txtbooktittle1.Text = .Fields("booktittle1")
                Form4.txtauthor1.Text = Form8.txtauthor1.Text = .Fields("author1")
                Form4.txtcall1.Text = Form8.txtcall1.Text = .Fields("call1")
                Form4.txtdatereturn.Text = Form8.txtdatereturn.Text = .Fields("datereturn")
                Form4.txtborrowed.Text = Form8.txtborrowed.Text = .Fields("borrowed")
                Form4.txtdatedue.Text = Form8.txtdatedue.Text = .Fields("datedue")
                Form4.txtnf.Text = Form8.txtnf = .Fields("transactions")
            End If
            
End With
End Sub

.....
i want to link the data inside the form1 to form2 ...
and what is the code of that.....

[Pgmer]

Hi,
Write the property in the form with get set values...
and set the values based on that. hope this will give you an idea

[junjun61991]

Hi,
Write the property in the form with get set values...
and set the values based on that. hope this will give you an idea

...............

tnx.. i'll try it!

[debasisdas]

I really do not understand why are you setting the values back and forth from and to the same control.

Why not use variables with wider scope.

[Pgmer]

Hi debasis das Is it not good idea to have property then having variables with wider scope?

[debasisdas]

Yes , of-course.

I never disagree without on that.

Always there are multiple ways of achieving the same goal.

What i suggested was just another work around.