Form Buttons

[DCV0204]

When I hit the Enter key on the keyboard I would like it to automatically process. Currently, I will enter the Medicaid_ID, hit Enter (instead of processing it is tabbing to the button. When I hit Enter again it runs the process.) How do I get the process to run by hitting Enter once after entering the Medicaid_ID in the textbox?

Here is my current code:
Private Sub Command3_Click()
Dim MedID As String
' Get Value from Medicaid_ID textbox on the Form:
Me.Command3.SetFocus
Me.Medicaid_ID.SetFocus
MedID = Me.Medicaid_ID.Text
If IsNull(DLookup("NAME", "Master_Facility_List_Table", "Medicaid_ID = '" & MedID & "'")) Then
' NAME is Null because the Medicaid_ID doesn't exist.
DoCmd.OpenForm "INPUT_Data (NewFacility)"
Else
' NAME is not Null because the Medicaid_ID does exist.
DoCmd.OpenForm "INPUT_Data (ExistingFacility)"
End If
End Sub




Thanks.

[Robeen]

Try this:

In Form Design mode - select your Command3 button & open the Property Sheet.
Under the 'Other' Tab - set Default to Yes.

Now - when your Form is running - if you hit Enter - it will automatically execute the code behind the Command3 button.

Remember - even if Enter is hit by accident - this code will execute.


Hope this helps!

[DCV0204]

That worked thanks.

One more question about my code.

When I enter the medicaid_ID and click the button and the form opens it does not open to the Medicaid_ID I entered to search.

How can I filter the form to only open the record of the Mecaid_ID number I entered in the search window?
Thanks.

[Robeen]

See if the information on this page From pbaldy helps:
http://www.baldyweb.com/wherecondition.htm

[DCV0204]

Do I replace the DoCmd.OpenForm "INPUT_Data (ExistingFacility)"
code with DoCmd.OpenForm "SecondFormName", , , "FieldName = '" & Me.ControlName & "'"?
What if the textbox on the first form (search form) is a unbound textbox and there is no controlname?

[Robeen]

Yes - you should replace like you said.

It doesn't matter if the text box on the first form is unbound. As long as it has a value in it - it should work.

The text box must have a Name.
Go to the 'All' Tab in the Property Sheet for the text box and you will see 'Name'.

Have you already looked there for the name of the control?

[DCV0204]

the name of the unbound textbox is also Medicaid_ID.

Did not work.

[Robeen]

What is the Data Type of your Medicaid ID field in the "INPUT_Data (ExistingFacility)" form?

This:
DoCmd.OpenForm "SecondFormName", , , "FieldName = '" & Me.ControlName & "'"?
will work if your Medicaid_ID is 'Text' [String] data.

Is Medicaid_ID a string data type? Or is it Numeric?

[DCV0204]

it is text field

Here is my current code:
Private Sub Command3_Click()
Dim MedID As String
' Get Value from Medicaid_ID textbox on the Form:
Me.Command3.SetFocus
Me.Medicaid_ID.SetFocus
MedID = Me.Medicaid_ID.Text
If IsNull(DLookup("NAME", "Master_Facility_List_Table", "Medicaid_ID = '" & MedID & "'")) Then
' NAME is Null because the Medicaid_ID doesn't exist.
DoCmd.OpenForm "INPUT_Data (NewFacility)", , , "Medicaid_ID = '" & Medicaid_ID & "'"
Else
' NAME is not Null because the Medicaid_ID does exist.
DoCmd.OpenForm "INPUT_Data (ExistingFacility)"
End If
End Sub

[DCV0204]

It worked I changed the newfacility line and not the existing.
Thanks.


Sorry for the confusion and appreciate the help.