Printable View
VBCode----------------------------
Private Sub txtSearch_Change()
If txtSearch.Text = vbNullString Then
Set rs = db.OpenRecordset("EMPDATA", dbOpenTable)
Else
Set rs = db.OpenRecordset("SELECT * FROM EMPDATA WHERE ID LIKE'" & txtSearch.Text & "'" & "& '*'")
End If
End Sub
everything else seems to work fine If it will help I can paste the rest of code ?
What is "EMPDATA"?
it is my table name
You have got the last part of the Like query wrong I'm afraid (I don't think you can join like that in SQL), you should really have one ' at each end of the string, eg:
If that doesn't work, just use % as a wildcard character at the end instead of *VB Code:
Quizton, I believe I already explained that you cant create a recordset using a table. You have to use a query to the table and collect a set, or subset of records within that table.Quote:
Originally Posted by Quizton
Try si_the_geek's code...
vbcode------
Private Sub txtSearch_Change()
If txtSearch.Text = vbNullString Then
Set rs = db.OpenRecordset("EMPDATA", dbOpenTable)
Else
Set rs = db.OpenRecordset("SELECT * FROM EMPDATA WHERE ID LIKE '" & txtSearch.Text & "*'")
End If
End Sub
Hmm...still no go ?
Do I have to somehow update what i just did at the end?
What happens when you run the code?
Nothing happens, Should i change it to a search button instead of just entering it in text?
The Change event will not fire unless something "changes" in the control. So, in order for the code to even execute, you would either have to type something, or paste something, into the textbox.
Click events fire code on mouse clicks, so yes, I would suggest you move your code to an event of a control that could be executed by a user.
Also, you still have (unless you are pasting old code) a table name in an openrecordset which will never work.
I will change the command to the cmdSearch and see what happens.
I am curious to know why the EMPDATA name for a table will not work though?
should I change it , I created the table from scratch
You can't create a recordset using a table name!!!!Quote:
Originally Posted by Quizton
I'm not sure how much more clear on this I can be.
If you want data from your EMPDATA table, you have to write a query to get it.Now, you have a recordset that can be used/manipulated.VB Code:
Great Ill throw that is there and see how it works out, and thanks for all your info
Still no go here it what ive changed up now
vb code---------
Private Sub cmdSearch_Click()
If txtSearch.Text = vbNullString Then
sSQL = "SELECT * from EMPDATA "
Set rs = db.OpenRecordset(sSQL)
Else
Set rs = db.OpenRecordset("SELECT * FROM EMPDATA WHERE ID LIKE '" & txtSearch.Text & "*'")
End If
End Sub
WoooHOOOO
Figured it all out thanks again for all the help. Below is a complete searchable addable , editable , ect.... Amazing thing that I figured it out after coming home from a night at the bar!!
thanks to you all you guys/gals are really a helpfull bunch!!
Fully Functional APP all debugged and ready to go
Note: Employee Project but can do a whole lot more with this and a immagination!!
I wish I seen this code a week ago lol VB 6.0VB Code:
I'm glad you worked it out :) It's surprising how a night drinking can help occasionally (as it usually does the opposite!!).
One thing I notice is that you have a few bits of repeated code, which could be put into Subs instead. That way you if things change you don't need to change code in several places, and the other code is much easier to read (as there is far less of it!).
For example, in cmdAdd/cmdDelete/etc you have code like this:
and like this:VB Code:
These can both be replaced (everywhere in your code that uses them) by a call to a subs like these:
(just paste this before cmdend_Click)VB Code:
These can be used in cmdAdd and cmdDelete like this:
..you can also call them from other places in your code that do the same work.VB Code:
Nice, thanks si , I like that way better =o)