R
Randy
Access 2000. I have this code on my "IDR" form to send the current record
on my form to an employee ID and a specific date. It works fine. I would
like to use a pop up form instead. Click a cmd button and the form pops up
to enter the same info. I have created a popup form named
"FindEmployeeByDate" with 2 txtboxes of [EIDNumber] and [EIDDate] and a cmd
button to place this code. I have tried changing [txdate] for [EIDDate] and
[txtEID] with [EIDDate] with [Forms]![IDR] before, but I cant get it to
work. Any ideas...Thanks..Randy
Private Sub GetEIDDate_Click()
Dim lngLen As Long
Dim rs As Object
Set rs = Me.Recordset.Clone
If Me.Dirty Then
Me.Dirty = False
End If
rs.FindFirst "[Current_Date] = " & Format(Me![txtDate], "\#mm/dd/yyyy\#") &
_
" And [Eid] = " & Str(Me![txtEID])
' Find the two records ([EID] and [Current_Date] that matches the control.
Me.Bookmark = rs.Bookmark
End Sub
on my form to an employee ID and a specific date. It works fine. I would
like to use a pop up form instead. Click a cmd button and the form pops up
to enter the same info. I have created a popup form named
"FindEmployeeByDate" with 2 txtboxes of [EIDNumber] and [EIDDate] and a cmd
button to place this code. I have tried changing [txdate] for [EIDDate] and
[txtEID] with [EIDDate] with [Forms]![IDR] before, but I cant get it to
work. Any ideas...Thanks..Randy
Private Sub GetEIDDate_Click()
Dim lngLen As Long
Dim rs As Object
Set rs = Me.Recordset.Clone
If Me.Dirty Then
Me.Dirty = False
End If
rs.FindFirst "[Current_Date] = " & Format(Me![txtDate], "\#mm/dd/yyyy\#") &
_
" And [Eid] = " & Str(Me![txtEID])
' Find the two records ([EID] and [Current_Date] that matches the control.
Me.Bookmark = rs.Bookmark
End Sub