Help with opening form to specific record

[manic]

Hello all, I'm kinda stuck here trying to figure something out. I have this function:

Function OpenFormWithInput()
   Dim Msg As String
   Dim Title As String
   Dim Defvalue As String
   Dim Answer As String
  Msg = "Enter Employee Name (Last Name and First Name: Smith,John)No space after the ,."
   Title = "OPEN SAFETY CHAMPION FORM"
   Defvalue = "JOHN,SMITH"
   Answer = InputBox(Msg, Title, Defvalue)
   If Answer <> "" Then
      DoCmd.OpenForm "frm_Safety_Champion_Updater", , , "[employee_name]='" & Answer & "' "
   Else
   DoCmd.Close
      DoCmd.OpenForm "frm_EHS_Safety_Section", acNormal
      
   End If
End Function

sample.zipWhen I call the function, the input box pops up for the user to enter the name to pull the records that have that name on it. If they put the wrong name the function will open a new form but I don’t want them entering new information on that form so on the current event of the form I entered the code that if is a new record a msg box pops and tells them that they entered the wrong name to click yes to try again and no to exit if you click yes it calls the function again and if the name is entered wrong again, even thou the blank form gives them the msg that the name is wrong or do not exist the second time around the function will open the form regardless.
I included a sample.

[orange]

Do you have a table of employee names? I ask because the way you have it set up, you can/will get spelling errors/typos etc and you have no code to intercept or check spelling.

[manic]

Do you have a table of employee names? I ask because the way you have it set up, you can/will get spelling errors/typos etc and you have no code to intercept or check spelling.

yes i do have a table with names, I just changed them due to privacy i guess.

[Missinglinq]

It 's probably just me, but I've read your post, gone away, come back and reread it, and I can't, for the life of me, understand exactly what you're saying! But if you're trying to open the frm_Safety_Champion_Updater Form, if the employee name entered is valid, but do something else if it’s not, what I do, for this kind of thing is to check to see if the name is valid, using Dcount(), before executing the command to open the Form:

If DCount("*", "tbLEmployees", "[employee_name]='" & Answer & "'") > 0 Then
  DoCmd.OpenForm "frm_Safety_Champion_Updater", , , "[employee_name]='" & Answer & "' "
Else  'If the name is NOT VALID
 'Code to do something else goes here
End If

If I could understand your complete intent , here, I could probably incorporate it into your code better.

Linq ;0)>

[manic]

Check the sample I uploaded. open the Form1 and click ok, you will get an error and you get the option to go back but if you make the same exact mistake the form will open the second time around . may I can't explained well, please check the sample

[PATRICK]

Manic I was reviewing your code and did some modifications, in attached are you sample file modified. try it and see if this is what you want.
Patrick.

[manic]

Manic I was reviewing your code and did some modifications, in attached are you sample file modified. try it and see if this is what you want.
Patrick.

thanks Patrick, that's what I need.

[PATRICK]

good... glad that worked for you. Good luck with your software.