Search For A Number Not A Text, SQL

Aug 12, 2005

I have a form with four combo box that will search for a record, as follow:

Field Name "Printer" , DataType "Text"
Field Name Month" , DataType "Text"
Field Name "Year" , DataType "Number"
Field Name "Day" , DataType "Number"

code for Find Record Button:


If Not IsNull(ID) And Trim(ID) <> "" Then
StrSQL = StrSQL & " And [Id] = " & [ID]
End If

If Not IsNull([txtname]) And Trim([txtname]) <> "" Then
If InStr([txtname], "*") = 0 Then

StrSQL = StrSQL & " And [Name] = '" & [txtname] & "'"
Else
StrSQL = StrSQL & " And [Name] like '" & [txtname] & "'"
End If
End If

'================================'


If Not IsNull([txtyear]) And Trim([txtyear]) <> "" Then

If InStr([txtyear], "*") = 0 Then

StrSQL = StrSQL & " And [Year] = '" & [txtyear] & "'"
Else
StrSQL = StrSQL & " And [Year] like '" & [txtyear] & "'"
End If

End If

'================================'


If Not IsNull([txtmonth]) And Trim([txtmonth]) <> "" Then

If InStr([txtmonth], "*") = 0 Then

StrSQL = StrSQL & " And [Month] = '" & [txtmonth] & "'"
Else
StrSQL = StrSQL & " And [Month] like '" & [txtmonth] & "'"
End If

End If

'================================'


If Not IsNull([txtday]) And Trim([txtday]) <> "" Then

If InStr([txtday], "*") = 0 Then
StrSQL = StrSQL & " And [Day] = '" & [txtday] & "'"
Else
StrSQL = StrSQL & " And [Day] like '" & [txtday] & "'"
End If

End If

'================================'


This is only a part of the code, I have a problem with year and day since they are numbers not text I was told that i cant use this line:

StrSQL = StrSQL & " And [Month] like '" & [txtmonth] & "'"

I was told that there is no need to use "like", am not really sure how to do it, any help will be appreciated.

Thanks.

View Replies


ADVERTISEMENT

Use Form & Query To Search For Text & Number

May 19, 2006

Hello,

I have a form with a listbox on, the listbox uses a query to populate it, which returns a list of client names. The idea is, when I enter the clients name in a text box, the list is narrowed, through use of the query.

This works fine, and always has - very pleased with it, the problem comes when I decide I want to be able to search on the account number as well - which it always throws errors about.

I am using the following query (posting the sql, hope that is OK)

SELECT tblSafeKeep_Clients.SafeKeepClientID, tblSafeKeep_Clients.Title, tblSafeKeep_Clients.Initials, tblSafeKeep_Clients.Surname, Format(tblSafeKeep_Clients.DesignationNumber,"000000") AS Expr1
FROM tblSafeKeep_Clients
WHERE (((tblSafeKeep_Clients.Surname) Like "*" & [Forms]![frmSafeKeep_SelectClient]![txtSearchText] & "*")) OR (((tblSafeKeep_Clients.DesignationNumber)=[Forms]![frmSafeKeep_SelectClient]![txtSearchText]));


The problem is because I am only using ONE text box, but the surname is (obviously) text, and the account number is (obviously!) a number. SO - it throws a wobbler about it being too complex to evaluate when I try to search for a surname, trying to search for an account number works just fine.

Any ideas how to get around this?

View 3 Replies View Related

Forms :: Search Text Box With Option Box As Criteria For Search

Mar 4, 2014

I am creating a a text box where the user enters a text then clicks an option from the option that is used as the criteria for the search e.g. Last Name, Phone , address then a command button wil run a query.

View 3 Replies View Related

Number Fields In Text To Number Field, Formula For Fiscal Year

Nov 26, 2004

Date of Birth (DOB) field etc. in one program are text - how do I make another file with the same data into number fields for Date of Birth field etc? When I copy data to file that has number fields the 09252004 is changed to 9252004. Can I get reports with the correct Date of Birth in them by moving data from text file to number file?

There is data entered monthly in file and formula has been set up for January, February etc as ---quarter: Int(([month]-1)/3)+1. I would like formula for the fiscal year for April to be counted as month 1, May - month 2, June as month 3, July as month 4, August as month 5, Sept as month 6, October as month 7, Nov as month 8, Dec as month 9, Jan as month 10, Feb as month 11 and March as month 12.

Thank you

View 6 Replies View Related

Forms :: Text Box Search On ID And Populate Other Text Boxes In Same Form

Nov 12, 2013

I am trying to search on EmployeeID field and populate corresponding data like EmployeeName, EmployeePay in other text boxes in the same box .

In my Unbound Form I have three unbound Text Boxes and one Command button:

txtEmpID
txtEmpName
txtEmpPay
cmdFind

In my table EMPLOYEE i have three fields

EmpID -- Autonumber
EmpName -- Text
EmpPay -- Text

View 2 Replies View Related

General :: Search For Highlighted Text In Rich Text Box

Oct 1, 2012

Is there a way of searching a rich text box for any text which is highlighted and then deleting that text? I cannot find an answer to this anywhere..

View 2 Replies View Related

Forms :: Text Box Search To Populate Other Text Boxes?

May 10, 2015

I have a form with two text boxes and a button. I want to be able to type a value into the first Text box click the button and the second text box to be filled with the value which is stored in the Table.

The first Textbox is called barTxt, The second Textbox is called CustTxt The button is called SearchBtn and the Table is called BookInTable. I have been trying to use the code.

Code:

Private Sub SearchBtn_Click()
DoCmd.FindRecord Me.BarTxt.Value, , True, , True
CustTxt.Value = "SELECT BookInTable.Customer FROM BookInTable " & _
" WHERE Customer = """ & Nz(Me.BarTxt) & """" & _
" ORDER BY Customer"
End Sub

This however instead of displaying the Value for customer which is stored in the BookInTable. Displays The code SELECT BookInTable.Customer FROMBookInTable " & _ " WHERE Customer = """ & Nz(Me.BarTxt) & """" & _ " ORDER BY Customer"

View 6 Replies View Related

Forms :: Add A Name To Text 1 Automatically Set Number To Text 2

Feb 14, 2014

I want 2 text , when I add a name to text 1 automatically set number to text 2 (Random),

View 3 Replies View Related

Search On Part Of A Number

Jan 16, 2006

I have a data base with the field named "PartNumber" this is a 13 diget number. How can I search on the last 7 digets only

View 2 Replies View Related

Search - Missing Number

Jul 6, 2006

I have tried to search for an answer to this but no no avail! Please could someone help?

I have a start-up form, which has a combo box search feature which opens up a new form with the user defined record. As well as providing all present numbers users can type in their own number. The number it is searching is an AutoNumber. I tried to put in some error messages if the user selected a number greater than the maximum value using DMax

If cboSearch > intMax Then
MsgBox "Not there", vbCritical + vbOKOnly, "Does not exist!"
Exit Sub

This works really well. The problem I am having is that if entries have been deleted then there is a gap in the numbering, which in itself isn't a problem. But if the user enters a number not present then it just opens the correct form but with the first record. Is there a way of bringing up a message box informing the user that the value they have entered does not exist in the form they are searching?

Many thanks,

CC

View 3 Replies View Related

Serial Number Search Query

Feb 28, 2008

Hope someone can help

I have a small test database which I'm doing for our dispatch dept.

It contains: Order No. / Customer / Ship_Date / Serial numbers (multiple)

I'm looking for a way to create a search query that will search though all the records to find a particular serial number.

There fields in the table are:
Shipping_Date
Customer
Order_No
Pallet_ID
Serial_1
Serial_2
Serial_3
Serial_4
etc

I need it to come back with the order number and pallet that it was shipped on.

Any ideas?

Thanks,

Paul

View 11 Replies View Related

Search Queri Social Security Number

Mar 17, 2006

HI

I have a query that looks like this:
Like [Forms]![Searchaddress_form]![search_3] & "*"
The filed name is "ssn"

In a form I have an unbound field that is called "search_3" and when I type a number or more and hit enter it's supposed to look it up in the table. But it´s not working

FYI! It works whith letters. I have the same query for searchin first name and it works.
But not with numbers.

Any suggestions?

//Mikael

View 3 Replies View Related

Queries :: Search Like And Phone Number Format

Apr 12, 2013

I have the following VBA code to search for a string

Code:
'Search by Phone
Private Sub CmdSearchPhones_Click()
Me.Refresh
strSQL = "SELECT Tbl_Contacts.ContactID, Tbl_Contacts.FName, Tbl_Contacts.LName, Tbl_Contacts.Address, Tbl_Contacts.City, Tbl_Contacts.State, Tbl_Contacts.Zip, Tbl_Contacts.HomePhone, Tbl_Contacts.WorkPhone,

[Code] .....

My issue is that this works 50/50, because phone numbers on the database are NOW being stored in this format (000) 000-0000 and previous DB phone numbers got stored as 0000000000. The above code finds previous DB phone numbers (even if we dont enter all 10 digits) without a problem but has issues with new phone numbers stored in the new format UNLESS I specify the search with (000) 000-0000 (but we want to be able to search without adding that and without typing all 10 digits - in case we forget part of the number we are looking for)

How can I tell my query to find both formats, with the (000) 000-0000 AND 0000000000 ....

View 4 Replies View Related

Queries :: Parameter Query To Search For Number

Feb 11, 2015

I have 2 tables: Table A contains [ID] (and other columns) AND Table B contains [Request ID] (and other columns).

However, [Request ID] contains several number separated by comma. For example: 10, 15, 20 etc.

I created a query with parameter with : Like "*" & [ID] & "*" under [Request ID] criteria.

Here is my problem:

if [Request ID] = 44, 60 then it is returning [ID] 4 records (4, 6, 44, & 60). Is there a way to show only 2 records? 44 & 60?

View 4 Replies View Related

Queries :: Telephone Number Search Area Code (STD)

Oct 27, 2013

What I am trying to do is i have a list of area codes connected to other data

What I want to do is do a search on a telephone number and this will check against the area codes and diaplay the required info

Example

Area info1 info2
01234 ab cd
012345 ar mc
01235 fg tr

So if I put a number like 01234567890 in the search box the result it will show is 012345 ar mc as this si the closet match to the telephone number.

I did it in excel with
=INDEX(whatwouldbedisplayed,MATCH(searchinfo,rowof data,1))

Im not to sure if this can be done as a query so would it have to be a macro?

View 2 Replies View Related

Formatting Text-number-text

Jan 10, 2007

Hi all.

I have text field with mask:

XXXXX-X
(x are digits), for example - 401-1, 401-2...

I need find field with text beginning 401 and max of last symbol. Last symbol +1, then again convert to text field. For example:
for example 401-1, 401-2,401-3 - must find 401-3 , then 3+1=4 and 401-4 format again to text.

Please, help me with formatting.
Thank You in advance.

View 5 Replies View Related

SQL Text Search.

Dec 5, 2006

Hi all,

I have done a quick search for this on the forum so I apologise if I have missed the thread that talks about this.

Basically I am interested in doing a text search on the SQL used in my Access queries.

Is this possible and how?

Thanks,

Matt.

View 5 Replies View Related

Forms :: Enter Tracking Number - Click Button To Search Record On Form

May 24, 2013

I currently have a database where new records can be entered in a "New Part" Form and Records can be viewed(but not altered) in a "Part Search" Form. The forms are the same except one is allowed to edit. I have also created another form where I am trying to search the "Part Search" Form via a tracking number. I want to have a text box where users enter a tracking number then click the button to take them to the record on the "Part Search" Form.

View 2 Replies View Related

Search, Text VS Numeric.

Jun 21, 2005

I have made my Search Form that will search through my tables, some how I have a syntax error for the following: year, Section and ID, these fields are not text I use numeric values so I think the search is not working for that reason, I am not sure how can I fix it though do I have do add val() or sth.


Private Sub Command8_Click()

On Error GoTo Command8_ClickError

Dim db As Database
Dim rs As Recordset
Dim rs2 As Recordset
Dim strWhereCondition As String
Dim strSql As String

strWhereCondition = ""
strSql = "Select distinct Id From AcademicVideo Where True "

'================================'

If Not IsNull(ID) And Trim(ID) <> "" Then
strSql = strSql & " And [Id] = " & [ID]
End If

'================================'

If Not IsNull(Course) And Trim(Course) <> "" Then
If InStr(Course, "*") = 0 Then
strSql = strSql & " And [Course] = '" & [Course] & "'"
Else
strSql = strSql & " And [Course] like '" & [Course] & "'"
End If
End If

'================================'

If Not IsNull([Format]) And Trim([Format]) <> "" Then
If InStr([Format], "*") = 0 Then
strSql = strSql & " And [Format] = '" & [Format] & "'"
Else
strSql = strSql & " And [Format] like '" & [Format] & "'"
End If
End If

'================================'

If Not IsNull([Title]) And Trim([Title]) <> "" Then
If InStr([Title], "*") = 0 Then
strSql = strSql & " And [Title] = '" & [Title] & "'"
Else
strSql = strSql & " And [Title] like '" & [Title] & "'"
End If
End If

'================================'

If Not IsNull([Lecturer]) And Trim([Lecturer]) <> "" Then
If InStr([Lecturer], "*") = 0 Then
strSql = strSql & " And [Lecturer] = '" & [Lecturer] & "'"
Else
strSql = strSql & " And [Lecturer] like '" & [Lecturer] & "'"
End If
End If

'================================'

' If Not IsNull([Section]) And Trim([Section]) <> "" Then
' If InStr([Section], "*") = 0 Then
' strSql = strSql & " And [Section] = " & [Section] & "'"
' Else
' strSql = strSql & " And [Section] like " & [Section] & "'"
' End If
' End If

'================================'

If Not IsNull([Semester]) And Trim([Semester]) <> "" Then
If InStr([Semester], "*") = 0 Then
strSql = strSql & " And [Semester] = '" & [Semester] & "'"
Else
strSql = strSql & " And [Semester] like '" & [Semester] & "'"
End If
End If

'================================'

If Not IsNull([Year]) And Trim([Year]) <> "" Then
If InStr([Year], "*") = 0 Then
strSql = strSql & " And [Year] = " & [Year] & "'"
Else
strSql = strSql & " And [Year] like " & [Year] & "'"
End If
End If

'================================'


If Not IsNull([Description]) And Trim([Description]) <> "" Then
If InStr([Description], "*") = 0 Then
strSql = strSql & " And [Description] = '" & [Description] & "'"
Else
strSql = strSql & " And [Description] like '" & [Description] & "'"
End If
End If

'================================'


Set db = CurrentDb()
Set rs = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot)
' If (rs2.RecordCount = Null) Then

' MsgBox "Enter A valid Record"

If (rs.RecordCount = 0) Then
MsgBox "Could Not found "

Else
strWhereCondition = "[Id] In (" & rs!ID
Do While Not rs.EOF
strWhereCondition = strWhereCondition & ", " & rs!ID
rs.MoveNext
Loop
strWhereCondition = strWhereCondition & ")"
End If
rs.Close

If strWhereCondition <> "" Then
DoCmd.OpenForm "ACVideo", acNormal, , strWhereCondition
DoCmd.Close acForm, "Search AcVideo"
End If

Exit Sub

Command8_ClickError:
MsgBox Err.Number & " " & Err.Description

Resume Next
End Sub

View 2 Replies View Related

How To Search Subform With Text Box

Mar 5, 2013

how to search subform with textbox and button in form

View 2 Replies View Related

Search List Box With Text Box

Jun 2, 2010

I have a list box pulling information from a table. It include fields for last name, first name, primary number, secondary number, and id; of course with different names. I display first and last name, but the rest are hidden. What would be ideal is if I could begin typing someones first or last name in the text box and it would just start either narrowing the list, like in itunes, or would start skipping down the list and would be highlighted. For example. If I was searching the number for walmart, i could go to the text box and type "wal" and it might highlight "wallace, james"; and if I added and "m" to that, it would skip down to "walmart".

I would settle for autofill and click a search command button when I'm done, and it takes me to that entry in the list box. I copied some code off the internet. Don't know if it'll work, but here is what I got.

Private Sub txtSearch_AfterUpdate()
Dim srchstrng As String
srchstrng = Me.txtSearch.Value
SQL = " SELECT Phone.last_name, Phone.first_name FROM Phone_"
WHERE (((Phone.last_name) Like '*" & srchstrng & "*'));"
Form.RecordSource = SQL
DoCmd.RunCommand acCmdRefreshPage
End Sub

It says there is a problem with the where clause.

View 6 Replies View Related

Search Blank Text Field

Jan 31, 2006

I can alway make a query like the following one to table and return the records:

SELECT * FROM people WHERE PhoneNo<>"";

However, it returns nothing while it should return a lot of records if I make a query like this:

SELECT * FROM people WHERE PhoneNo="";

The PhoneNo file is of text type. As I know, this field is added after the MS database has been put into use for some time.

Can anyone please explain this to me?

Thanks,

View 1 Replies View Related

Partial Text Search Facility

Feb 28, 2008

I’m trying to provide the users of my database with a text search facility.

The database deals with documents, and I’d like the user to be able to search by title of document, with partial text matches. E.g. a title might be ‘Health and safety at work act’ - so searching by Health and/or safety gives this document as a result.

The table is called ‘tblDocTitle’ with the field ‘Title’ containing just that.

Ideally the search facility would be some sort of text box in which the text, and then a button to initiate that search.

Hope you can help

View 4 Replies View Related

Modules & VBA :: Search List Box With Text Box

Apr 15, 2014

i have got the bellow code that filters a listbox which is based on a query, from a textbox. The code works fine and it Filters, but if i put in too many characters that do not exsit in the data( so it cant display any results) i get an error saying Run time error 2105 - You cant go to the Specified record? how i can catch this error so it does nothing apart from display a blank listbox with no error?

code:

Private Sub txtSearch_Change()
Me.lstShowSupplier.Requery
DoCmd.Requery
Me.txtSearch.SetFocus
If Not IsNull(Len(Me.txtSearch)) Then
Me.txtSearch.SelStart = Len(Me.txtSearch)
End If
End Sub

View 3 Replies View Related

Modules & VBA :: Text Search Box - On Key Down Nested IF

May 24, 2014

Ok I'm building a Text Search box that "Live Filters" the results in a ListBox control on the same form.

After typing in a value (Say, for Customer First Name like "Steven") I want the code to do the following:

1. If there is no value in the listbox that matches when the user presses the enter key....open the New Customer form - THIS WORKS

2. If there is a single value in the list, then open this record in the customer form when the user presses the Enter key Receiving a Syntax Missing Operator error on this line:

Code:
DoCmd.OpenForm "frmContacts", , , "[ID]=" & Me.ListCustomers.Column(0)

However, I use this exact code on a button elsewhere in my project (NOT within an IF Function) and it works perfectly fine!

Code:
Private Sub txtSearch_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If Me.ListCustomers.ListCount = 0 Then
CmdNewCustomer_Click

[Code] .....

View 2 Replies View Related

Number To Text?!?!

Jun 6, 2007

Hey,

I have a small question. There is a table that I am trying to use that houses product numbers, the only problem is that those product numbers start with a '0' but the '0' got deleted because the numbers are housed in a number defined field. If I change the table properties to text, is there a way I can add a leading '0' infront of every existing product number?

Thanks,
Viperstingray

View 2 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved