OnClick Event coding

[Stang02GT]

Can anyone help me out with some VBA coding.


I would like to have two text boxes where the user can enter a number in either of the boxes and click a search button to bring up the record.

Example of this is:

VIN num SEARCH
Model num

User can enter a VIN or model number depending on which one they have. ***These are not the feilds im using just examples****


I need help with the OnClick event coding

[NeoPa]

Please remember to provide a meaningful Title for any threads started (Please Use Appropriate Titles for New Threads!). This helps to ensure that other members, and also the general public, will have a better chance of finding answers to any similar questions.

MODERATOR.

[vkong85]

Can anyone help me out with some VBA coding.


I would like to have two text boxes where the user can enter a number in either of the boxes and click a search button to bring up the record.

Example of this is:

VIN num SEARCH
Model num

User can enter a VIN or model number depending on which one they have. ***These are not the feilds im using just examples****


I need help with the OnClick event coding

what exactly is the problem with the onclick event coding?

[JKing]

If I have this right you want to prompt the user for two values and then clicking the search button bring up a form displaying the record specific to those values.

Let's assume the two values we are working with are modelID and yearID and they are text data types.
The corresponding text boxes are txtModelID and txtYearID.
The form for the record will be frmDisplayRecord.

The values from the textboxes will be used to build the WHERE statement of the open form command. Once built we just pass the string in as a parameter along with the name of the form we want to open.

Private Sub cmdSearch_Click()
 
Dim strLinkCriteria As String
 
strLinkCriteria = "modelID = '" & Me.txtModelID & "' AND yearID = '" & Me.txtYearID & "'"
 
Docmd.OpenForm "frmDisplayRecord", acNormal,, strLinkCriteria
 
End Sub
 

If the values are not text remove the single quotes.

If this is not what you're trying to do please repost your question in more detail otherwise good luck and I hope this helped.

[Stang02GT]

I think to simplify this situation I'd like to just focus on getting a simple search to work.

The users do not like the combo box search for whatever reasons, so the would like to see a text box ( where they may enter there criteria) and a "Search Button" to execute the search.

I'll try to explain this and not confuse you :)

I have a four tables and all data in the tables has a TC NUM (Primary Key). I have forms for each table ( based on user request, because each table relates to a different area of the company) to search/update/delete...etc.

The users would like to search by TC NUM. But they would like to have it in the form of a txt box with a "Search BUtton".

I hope this helps, and thank you for trying to help me!!!

If I have this right you want to prompt the user for two values and then clicking the search button bring up a form displaying the record specific to those values.

Let's assume the two values we are working with are modelID and yearID and they are text data types.
The corresponding text boxes are txtModelID and txtYearID.
The form for the record will be frmDisplayRecord.

The values from the textboxes will be used to build the WHERE statement of the open form command. Once built we just pass the string in as a parameter along with the name of the form we want to open.

Private Sub cmdSearch_Click()
 
Dim strLinkCriteria As String
 
strLinkCriteria = "modelID = '" & Me.txtModelID & "' AND yearID = '" & Me.txtYearID & "'"
 
Docmd.OpenForm "frmDisplayRecord", acNormal,, strLinkCriteria
 
End Sub
 

If the values are not text remove the single quotes.

If this is not what you're trying to do please repost your question in more detail otherwise good luck and I hope this helped.

[JKing]

How are you displaying search results to the user? Are you using a subform, report, seperate form or do you just want the current form to flip to that record?

[Stang02GT]

How are you displaying search results to the user? Are you using a subform, report, seperate form or do you just want the current form to flip to that record?

I have to current form bringing up that record. I have Text Boxes for each feild and when a search is completed the data is brought up in the respective feild.

[JKing]

Alright. You can try setting the form's filter property and then turning the filter on when the user clicks the search button.

Private Sub cmdSearch_Click()
Me.Filter = "TCNUM = " & txtSearchValue
Me.FilterOn = True
End Sub
 

TCNUM would be the key you want to search by and txtSearchValue is the textbox the user is inputting the search value into.

If the key you are searching by is a text data type then you would alter the 2nd line by enclosing the textbox value in single quotes:

Me.Fiilter = "TCNUM = '" & txtSearchValue & "'"
 

Let me know how this works out.

JKing

[Stang02GT]

Alright. You can try setting the form's filter property and then turning the filter on when the user clicks the search button.

Private Sub cmdSearch_Click()
Me.Filter = "TCNUM = " & txtSearchValue
Me.FilterOn = True
End Sub
 

TCNUM would be the key you want to search by and txtSearchValue is the textbox the user is inputting the search value into.

If the key you are searching by is a text data type then you would alter the 2nd line by enclosing the textbox value in single quotes:

Me.Fiilter = "TCNUM = '" & txtSearchValue & "'"
 

Let me know how this works out.

JKing

Unfortunatly i am getting an error message

RUN TIME ERROR '2448'

YOU CAN"T ASSIGN A VALUE TO THIS OBJECT

[JKing]

Are you using the textbox you display your TCNUM in to act as your search textbox as well?

Is there a space in the field name that you are passing to the Me.Filter = ?
Example: Me.Filter = "Model Number = "

In this case you need to add [] around the field
Me.Filter = "[Model Number] = "

[Stang02GT]

Are you using the textbox you display your TCNUM in to act as your search textbox as well?

Is there a space in the field name that you are passing to the Me.Filter = ?
Example: Me.Filter = "Model Number = "

In this case you need to add [] around the field
Me.Filter = "[Model Number] = "

No i have a seperate box in the hearder where the search button/box is

[JKing]

I made a quick edit there did you see the second possibility?

And if it isnot that could you paste me the snippet of your code.

[Stang02GT]

I made a quick edit there did you see the second possibility?

And if it isnot that could you paste me the snippet of your code.

Good news i was able to complete this task here is the code....

Private Sub Command35_Click()
If IsNull(Text15) = False Then
        Me.Recordset.FindFirst "[TC Num]=" & Text15
        End If
End Sub