Modules & VBA :: Search That Works Unless Beginning With I
Jul 8, 2013
I have a simple bit of code that searches for a [User Name] field the basic idea is I place a field called "search" on a form and set its on change to
Private Sub Search_Change()
Search.SetFocus
strtarget = Search.Text
If strtarget < "a" Then strtarget = "a"
[User Name].SetFocus
DoCmd.FindRecord strtarget, acStart, False, acSearchAll, False, acCurrent, True
Search.SetFocus
Search.SelStart = 100
End Sub
it takes the text entered in the search field and calls it Strtarget then resets focus on the field I want eg [user name] once the search has done it resets the focus on the search field so you can carry on typing this works very well unless the search string starts with a letter I.
I have created a database based off of 1 table that holds all of my data. I need to create a form that queries off of the following columns from my table.
Acceptance Date
Sales Rep Name Sales Region
I want to make a form which searches between a beginning and end date range, Sales Rep Name & Sales Region that can be pulled from these 3 queried selections all from the same form.
I'm scanning bar codes into the record search box, most of the time it works as it should but occasionally I get multiple "cannot open any more databases" errors. It still finds the product record but the error messages are super annoying. I am sure to clear the memory on the scanner each time before I scan in a new barcode but it doesn't seem to matter. Also sure to only have one or 2 forms open at a time, that doesn't seem to matter either. Most of the time I don't get the errors but when I have to click through like 10+ error messages (all identical). I only have one database open so I'm not sure what it even means. Also I have tried this in 2 different forms and it's the same for both forms. Seems like I get the errors in my initial scan and then after clearing them it seems to work without errors.
I have an edit button in my form which activates VBA, collects all data from the fields and edit the dataset. Everything work fine except the case that next to the edit access adds a new record as well with exactly the same data.
This is my code :
Dim db As Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("select * from tbllocations where locationid = " & cdkey)
[code]...
I checked every parameter and it seems everything is OK which surely is the base for the correct edit of the dataset. locationid is the key of the table.
I have the following code that creates a long string that works most of the time but sometimes gets cut short. I can't understand why it does this. When it cuts the string short it cuts it short in the same place. Everything gets in the string up to/or about the following code '</Practice Name>'This string is needed to upload info to a server.
i have the following code that hides 5 buttons depending if the user has permission which works fine.im trying to incorporate an IF statement if there is only 1 of the buttons visible then to automatically click the button. but if there is more than 1 do noting?
Code:
Private Sub Form_Open(Cancel As Integer) Dim rsO As DAO.Recordset Set rsO = CurrentDb.OpenRecordset("SELECT tblUserPermission.UserFK, tblUserPermission.CompanyFK, tblUserPermission.Permission " & _ "FROM tblUserPermission INNER JOIN tblUser ON tblUserPermission.UserFK = tblUser.UserPK " & _ "WHERE Username = '" & Me.txtName.Value & "'")
I have 5 subform named "bene_subform1", "bene_subform2", "bene_subform3", "bene_subform4", "bene_subform5", and i would like to know if it's possible to msgbox the record from the beginning to end of record in sub-form 1, loop thru all the 5 subform via VBA?
I have a form that has a subform on it. The main form shows a category of furniture and has custom navigation buttons and a search text box for asset numbers and command button that runs the search. The subform shows the asset numbers associated with that furniture category, sometimes there is only one asset number, in other cases there could be 60. There is a scroll bar to scroll through the asset numbers when there are too many to see in the initial window.
The buttons all work as they should except when I search for an asset number that is part of a category that has too many asset numbers to show in the main window. When this happens the "previous" and "next" navigation buttons do not take you to the previous or next record. All of the other buttons on the form work though - you can go to the first, or the last record, and you can search for a new asset.This is the code for the search:
Code:
Private Sub cmdAssetSearch_Click() Dim rs As Object If IsNull(Me.TextAsset) Or Me.TextAsset = "" Then MsgBox "Please type in an asset number to search for.", vbOKOnly Me.TextAsset.SetFocus
[code]....
I've also attached a picture of what I mean when I say there are more asset numbers than what the window shows.
I'm having to recode some old MS Access DBs so they will run in the following environments:
Office 2000 on WinXP Office 2003 on WinXP Office 2010 on WinXP Office 2000 on Win7 Office 2003 on Win7 Office 2010 on Win7
When I wrote my code for Office 2000 on WinXP things were simple because directory paths were the same across all computers and I could hard code pathing when using a shell command to launch other files.
My new approach is to make a function call to the Windows registry to determine the default executable and path for opening a file based upon its extension (see apicFindExecutable in basWindows API module).
I'm able to use code to create a shell call and debug print it to the immediate window. If I put my cursor in the immediate window at the end of the shell call and hit [enter] the external file will open as desired. If I try to open the external file directly through code, I get a file not found error.
To recreate the error take the following steps:
(1) browse to files that are accessible from your computer (2) click the PREPARE DATA AND OPEN MAIL MERGE DOCUMENTS command button
Shell function call is made by the fnOpenFile function located in the basOpenFile module. There has to be a trick here that I'm missing.
I would like to setup a MS ACCESS database for the 174 styles that we sell. I would like the user to see the item ref, manufacturer, where the goods are packaged, bulk price, packaging costs, total costs of that item (=bulk + packaging costs), M.O.Q, carton quantity, Contact, Email address, Supplier Address.
Could someone suggest a checklist or alternatively a set of procedures i would have to follow to setup this database? I would like the user to be able to type in the item reference so that it brings up all the information stated above, which would be stored in the data table.Is this possible?
I have the the information stated above in an excel spreadsheet format if I link this to an access related database can i setup a search mechanism, if yes please advise how?
I am not so bothered about the way it looks at the moment I would just love to see it up and running.
Please advise the best way for me to approach this? If someone has a "readme" file which would help me set this up, It would most appreciated????
I have a default text value in a field. When I tab to go that field, it is highlighted. But for this specific field I want to go to show the cursor to the left of the text and with it unhighlighted, so I can add text to the beginning.
I am trying to generate a Query by week always beginning on a Monday. I pick any date....and want all records in both printed version and chart version i,e, number of safety meetings attended vs number who should have attended for this week. I can enter data with todays date, well any day this week. Then at some future date ask for who attended this week and percentages (another story). Any ideas?
I got a massive lump of WORD documents with Avery Mail label tables -- each avery mail label template/table has a mailing address. This how these people store their data. :mad::confused::mad:
So I went through and over a couple days transfered all 458 records to an excel spreadsheet for easy importing to my access mailing database. Problem is that I forgot to clean up a couple of the fields and now I have all these values with unnecessary spaces as the first or last characters for a lot of values.
My question: Could anyone help me remove the first and/or last character of these values if the character is " "? Would it be easier to do this in excel and just re-import?
Im having trouble with Criteria for a query. I have my criteria like this: Like "*" & [Forms]![NewSearch]![txtSearch2] & "*"
The only problem is, if im trying to search for a last name such as "Aber" the search results come up with not only Aber but also anything that contains Aber, such as the last name Singaber.
How can I make the criteria search from the beginning of the Name, and not anywhere in between?
Please help, going to drive myself nuts :)
Thanks in advance for any help you may be able to provide.
I have done a half-dozen searches and only gotten 1 option.
There is a simple way to have the cursor at the beginning or end of a field when it arrives in a new field.
I saw the VBA code aboyt setting the length. There is an easier, simpler way to set it so that you don't have to apply the vba code to every single indiviual field.
I remember learning about it here on this forum, but now can't find it.
This is my first post here so please forgive if it seems rather elementary.
Here's the deal, I am a web developer finishing up my senior year of college. I have a client that is using a Microsoft Access database on a web site and the site is built with ASP. I have never really used these two items together before and need to write some scripts to do simple database functions.
I have a lot of experience with PHP and MySQL databases and SQL query statements but I haven't figured out the syntax to go with Access and ASP.
Is there a good beginner's site that covers this? I have scoured the web and found nothing useful.
Also, the following line of code gives me the following error:
objConn.execute("UPDATE Sheet1 SET Salutation='Jose' WHERE Salutation='Mike'")
gives the error
" Microsoft JET Database Engine error '80004005'
Operation must use an updateable query.
/tester/tester.asp, line 22"
That is line 22. I am connected okay because I can do select statements. The table name and field name is correct as well but I don't know why I get this error.
I have created a table that contains banking info. I have a field for Transaction #; the Transaction # is always 4 digits. Sometimes that number begins with a 0. When I enter the 0 at the beginning, Access will not show it. I've tried setting the Input Mask (tried #### and 0000) but that still didn't work. The field type needs to be number so that my report will sort properly. How do I get the 0 at the beginning to show?
I have a text field called Notes - where we will add notes about the particular job. What I want to do is have it a locked field with a button 'Add Notes'. When clicked it will insert the date and the user name of the person and then let them type the notes. When they move to the next record - I want that field to be locked again.
I've got some of it down but still not right. I can get it so it inserts the date but it overwrites what is already there. How can I get it to just add the data - not overwrite? And I can't get it to lock when they move to the next record.
I have a accdb pointed at Sql Server 2012 via ODBC pushing text from a text box back to a Sql server's column that is a nvarchar(10) to store zip codes.
Edit: I confirmed that the accdb's linked table has a datatype of text for the zip code column.
Oddly, the Access form's textbox is sending back the text, but stripping out the preceeding zero in the zip code - almost like when excel (shudder) strips the preceeding zeros away from SSNs and Zipcodes - treating them like a number - and not text.
How do I stop this?
The form object is a text box, and the sql server backend doesn't mind the preceeding zero. When I manually set the value to = '01111' using sql server management studio, the value is accepted - and then later viewable (with the zero) when using the accdb's form...
This leads me to believe the form is stripping away the zero when inserting the record. The add records button uses the following to insert the records:
Code: Private Sub btnAddDioOffice_Click() Dim strSQL As String If ListBoxDios.Value <> "" And txtDioOffName.Value <> "" Then
