Code:
Private Sub cmdSearchOrCreateNew_Click()
Dim rs As Object
Set rs = Me.Recordset.Clone
If Nz(Me.SearchDate, "") <> "" And Nz(Me.SearchTime, "") <> "" Then
rs.FindFirst "[DateField] & [TimeField]='" & Me.SearchDate & Me.SearchTime & "'"
If Not rs.NoMatch Then
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Else
MsgBox "No Matching Record Found! You Will Now be Taken to a New Record"
DoCmd.GoToRecord , , acNewRec
Me.DateField = Me.SearchDate
Me.TimeField = Me.SearchTime
End If
Else
MsgBox "You Must Enter a Date and a Time In Order to Run a Search!"
End If
End Sub