use Like to get the fisrt 3 characters from a text box and run query

[megatronixs]

Hi all,

I have the below code. I try to check a textbox to see which are the first 3 characters to run query1 or query2.


I don't seem to get it work and I don't know why. There are 2 branches that start with 3 first numbers (12388765) and the rest of the numbers is the store number.
Any chance I do something wrong?

 Option Compare Database
Option Explicit
Sub Check_first_branch_nr_Click()
If Me.branch_txt Like "988*" Then
query_results1
Else
query_results2
End If
End Sub
　
　
Private Sub query_results1()
Dim stDocName As String
stDocName = "Query1"
DoCmd.OpenQuery stDocName, acNormal, acEdit
End Sub
Private Sub query_results2()
Dim stDocName As String
stDocName = "Query2 UBN"
DoCmd.OpenQuery stDocName, acNormal, acEdit
End Sub

Greetings.

[CJ_London]

what does 'don't seem to get it work' mean? you get an error? wrong query runs? no query runs? or what

[megatronixs]

Hi Ajax, nothing runs, no queries no nothing.

[CJ_London]

are you sure the code is running when you click the Check_first_branch_nr control?

To check, in the vba window, click on the grey vertical bar to the left on your first line of code - 'If Me.branch_txt....

a maroon dot will appear which is a break point. Then click the control, the code should stop at this line. You can then step through each line of code by hitting the F8 button. If the code does not stop, it is not running so check you have [Event Procedure] against the click event of the control and that the control is called Check_first_branch_nr

[megatronixs]

Hi Ajax,
It is working now :-) They just provided me the wrong branch numbers and that is why it did not run.
One can pull all his hair out like that..............

Greetings.