Hi,
I am trying to pass the values from a user form(datasheetview) to fill up the related textbox in the search form where people can get the user details and generate a customize report. For example when user double click on a particular row of data on the user datasheet view form, the firstname of the particular user will pass to the firstnaem textbox on the search form.
this is the code I use:
Private Sub Form_DblClick(Cancel As Integer)
On Error GoTo from_DblClick_Err
Dim strFirstname As String
Dim strLastname As String
Dim strID As Integer
Dim str As String
Me.FirstName.SetFocus
strFirstname = Me.FirstName.Text
Me.LastName.SetFocus
strLastname = Me.LastName.Text
Me.OwnerID.SetFocus
strID = Me.OwnerID.Text
Form![search form].cboFirstName.Text = strFirstname
* I have tried this code but it keep on saying that office can't find the field that i referred. The problem i i been checking this code for many time and there is nothing wrong with the spelling.
Exit Sub
from_DblClick_Err:
MsgBox Err.Description
End Sub
Hope you guys can help me
Thank
I am trying to pass the values from a user form(datasheetview) to fill up the related textbox in the search form where people can get the user details and generate a customize report. For example when user double click on a particular row of data on the user datasheet view form, the firstname of the particular user will pass to the firstnaem textbox on the search form.
this is the code I use:
Private Sub Form_DblClick(Cancel As Integer)
On Error GoTo from_DblClick_Err
Dim strFirstname As String
Dim strLastname As String
Dim strID As Integer
Dim str As String
Me.FirstName.SetFocus
strFirstname = Me.FirstName.Text
Me.LastName.SetFocus
strLastname = Me.LastName.Text
Me.OwnerID.SetFocus
strID = Me.OwnerID.Text
Form![search form].cboFirstName.Text = strFirstname
* I have tried this code but it keep on saying that office can't find the field that i referred. The problem i i been checking this code for many time and there is nothing wrong with the spelling.
Exit Sub
from_DblClick_Err:
MsgBox Err.Description
End Sub
Hope you guys can help me
Thank