Clear Record from an Empty Search Text Box

[MeekoRayne]

Good Morning,

I'm creating an entry form and I have a search text box to bring up a record whenever the Search button is pressed. Once you're done with the record, you have a blank Search box and it should bring up a clean, empty form when you press the Search button. However you hit the Search button on an empty Search text box and it brings up the first record of the table. What code would I have to place into the Search button that brings up a clear form when ever the Search Text Box is empty?



This is what I have thus far.

[Bob Fitz]

......What code would I have to place into the Search button that brings up a clear form........

When you say "clear", do you mean a new blank record?
Can you post the actual text of your code, so we don't have to type it all, within code tags rather than as a screen shot.

[MeekoRayne]

When you say "clear", do you mean a new blank record?
Can you post the actual text of your code, so we don't have to type it all, within code tags rather than as a screen shot.

Yes, When the Search button is pressed on an empty Search Text Box, I would like the form to be on a blank record, Instead of the first record of the database. The code for the Search button is below. Thank you.


Private Sub SearchBtn_Click()

Dim SQL As String



SQL = " SELECT Inbound.[InboundID], Inbound.[Rank], Inbound.[LName], Inbound.[FName], Inbound.[CrewPos], Inbound.[RNLTD], Inbound.[Sponsor], " _
& " Inbound.[ExpArrivalDate], Inbound.[ActArrivalDate]," _
& " Inbound.[Email], Inbound.[PhoneNum], Inbound.[Phase], Inbound.[Notes]" _
& " FROM Inbound" _
& " WHERE [LName] LIKE '*" & Me.SearchBox & "*' " _
& " OR [FName] LIKE '*" & Me.SearchBox & "*' " _
& " ORDER BY Inbound.LName"


Me.Form.RecordSource = SQL
Me.Form.Requery

[Bob Fitz]

Maybe:

Private Sub SearchBtn_Click()

Dim SQL As String

If Nz(Me.SearchBox,0) = 0 Then

  DoCmd.GoToRecord , "", acNewRec

Else

  SQL = " SELECT Inbound.[InboundID], Inbound.[Rank], Inbound.[LName], Inbound.[FName], Inbound.[CrewPos], Inbound.[RNLTD], Inbound.[Sponsor], " _
  & " Inbound.[ExpArrivalDate], Inbound.[ActArrivalDate]," _
  & " Inbound.[Email], Inbound.[PhoneNum], Inbound.[Phase], Inbound.[Notes]" _
  & " FROM Inbound" _
  & " WHERE [LName] LIKE '*" & Me.SearchBox & "*' " _
  & " OR [FName] LIKE '*" & Me.SearchBox & "*' " _
  & " ORDER BY Inbound.LName"

  Me.Form.RecordSource = SQL
  Me.Form.Requery

End Sub

[MeekoRayne]

Well What do you know, that worked!!! Thank you very much!

[Bob Fitz]

O ye of little faith 😃
I never had any doubts 😎
Glad you've got it working.