I have a form that I allow my users to view but not to change any of the records.
As the number of records has grown it's become necessary to add a search function.
My problem is that because the form is locked it cannot be searched.
I have a form with First name, Last name, Employee number, Information. The information box is a drop down menu with four options (contact, emergency, company, personal) I would like to be able to enter in search criteria for an employee using one of last name first name or employee number then choose an option from drop down box click a button to search and have it pull up just the info I needed.
I think I have two options but i am not sure which would be more efficient.
1. creating a query and using the criteria from design mode to have it filter the information. The only problem with this one is I do not know how to set it up with the drop down box from the form. Or would I need multiple querys for each option or just one with all of it?
2. writing code for the search button on the form that will bring up the appropriate query (I think I would then have to create a query for each drop down option)...
Access 2007
I can't figure out how to replace a period that is in the middle of a string and end up with 10 digits. For example 55.5555 would be 5500005555. I can use replace() but the tricky part is I have to end up with 10 digits.
Ultimately what I'm trying to do is - when a user enters 55.5555, 555.5, 5.5 or any variation they will be able to find the corresponding record. So a wildcard for the search or the replacement of the "." with enough zeros for 10 digits.
Here is what I'm using now - i making them enter the full 10 digit number but would like to give them the ability to use the period in place of the zeros.
Function Search()
Dim lssql As String
Dim lsSn As Recordset
Dim db As Database
Dim lsMessage As String
Dim sMsg As String
Dim vRetVal As Variant
Set db = CurrentDb()
[Code] .....
I need a search function that will not just open files based on their names but also drill into the documents and search based on what's in it. The only way I can see now is to use the Window's search function (the one at the start button). Is it possible to call that function into access?how do I re-create the search style of the windows search bar for a specific folder? Something like streamreader
View 1 Replies View RelatedI am looking to lock my database until the user puts in the correct credentials.
I have already put the form on Pop Up and Modal. They can still select the "X" in the top right of the window.
Hello!
I am sure this is a common question but anyway:
I have a form based on a table which I use to fill the table with data.
I would like in the header of the form to have a text box where if I enter a keyword it will display the corresponding entry.
Illustration:
Table:
field 1= first name
field 2= second name
Form:
Textbox 1= first name
Textbox 2= second name
Search textbox I type: "john" I want it to display/filter to show only the entries where first name=john
I hope my question is clear, I know most DBs do this but I can't seem to find a way of implementing it...
Thanx for your help and suggestions
I recently created a database to be used to store incoming invoices. We have 4 suppliers which supply the same material and wanted each supplier to have its own database.
I began by making a database which included all the key tables, forms, queries and functions I would need to then save 4 copies, one for each supplier. This just meant I would not have to repeat the process for each individual supplier.
The problem is all my data is external and upon importing it into the database it has made the search function (combo box) not return results.
I believe this is because:
1) The form was created before the records existed
2) The records were imported from an external source and not created using the form.
However, the way I have designed the form is so I can see all relevant information linked with a specific invoice. This aids in gathering information quickly about an invoice but also so I can input credit note and invoice query information linked to a specific invoice on the same page.
Is there anyway to remedy this?
Or use a similar search function that returns records in my form "Main View"
The last thing I want to do is have to create the form again, although I don't think this will work either as reason 2) states.
I am having some minor issues with my current database. The way it works currently is having a MainMenu where you can either go to customers/ ProductList/ Product OR ProductList straight away. I have a CustomerT and a ProductT. I have made a Query where I link the two tabels to have the feature showing the customer to the specific product with the criteria: "Kunde: [CustomerName] & " " & [Subsidiary]" on the form I have a txtsearch (Textbox) connected to a button with this coding:
Private Sub Kommandoknap49_Click()
Dim strsearch As String
Dim strText As String
If (Len(txtsearch.Value) > 0) Then
strText = Me.txtsearch.Value
[code]....
This allows me to search for text in each of the boxes with information on the single product(s) for example searching for Kunde (Customer in Danish) or ProduktNavn (Name of product) HOWEVER when I do this the "Kunde" turns into "#Navn?" c..If i reopen the Form it will show with the right information. I also tried to code the "Byactivation" to
PHP Code:
Forms!ProduktListeMainMenuF.Requery
Is it possible on the Find Record button added to a form to adjust the search function so it defaults to a specific box on the form? I have a form for tracking employee's and on my Find Record button I would like it to default to the Last name instead of the Record number.
View 3 Replies View RelatedI have a code which cut the data from tables and insert to others. The problem is I don't know when I can do this process (when I will cut data and the same time some users lock editing records then I will get an an error). So my question is, there is some procedure which can check that some records in table are locked or not?
View 6 Replies View RelatedOkay I have a Private Sub on form PlotF:
Code:
Private Sub SetCheck212()
If Me.[Check161] And Me.[Check169] And _
Me.[Check167] And Me.[Check181] And _
Me.[Check261] And Me.[Check189] And _
Me.[Check187] And Me.[Check195] And _
Me.[Check203] And Me.[Check201] Then
Me.Check212 = True
[Code] .....
Some of the checkboxes are locked as I want to force the user to check them on another form (InvoicedF) but I want them to be displayed PlotF as well.
So I want to call the Private Sub from another form. So that the Check212 still automatically checks to true with out PlotF open on the screen.
Is this possible, Do I have to make this private sub a public sub? If so how do I do this?
I have this code below that is working however the calculation are updating on my form late.
Basically, I have some calculation that are performed on a "After Update" event on some controls on my form. I wanted it to do the calculation after I update the control on the form.
The code is in a module and I just call the function after update on the control But the form is not updating when I change the value in a field. I have to change the field again for it to update.
Control
Code:
Call GeraAuditCalc
DoCmd.RefreshRecord
Function
Code:
Function GeraAuditCalc()
Dim fHrs As Double
Dim Ttl As Double
Dim Ttl1 As Double
Dim Ttl2 As Double
[Code] ....
I am trying to use the string value from a form control as the criteria for a query. I first need to replace the "," in the string with "AND".
So far I have a module using the Replace function, but it doesn't seem to be working. I am not sure I can reference the string inside the form control directly....if I can, I might have a syntax error.
Here is my code so far:
Dim result As String
result = Replace("Forms!Processing!Dataset_Acreage_Query", ",", "AND")
I am not experienced and having trouble finding the search terms to answer this question.
I have a form with couple of textboxes bound to a table. When the user opens the form to enter records, i want to write a function that would go through the textboxes to check whether the textboxes are left NULL. Now i can write code on button click for each form, but i was wondering if its possible to write a function that could be called for each form that i have to check for null values.
View 7 Replies View RelatedI have some code in a form that calls for a public function and passes on some values. the function makes some calculations and assigns a value to the variable "percent" in the function itself.
How can I get the value of this variable back in the form so I can use it?
Form:
Code:
Private Sub Form_Open(Cancel As Integer)
Dim Table As String, TotalFields As Single
Table = "tblAdmission"
[Code]....
So basically I need making a function that will count the number of records from another table/query based on a field from the current query.
View 2 Replies View RelatedI am using the following code to filter my form with a search box:
Code:
Me.RecordSource = "qryCompanies"
Me.Filter = "CompanyName Like '*" & Me.SearchTxt & "*' Or webpage Like '*" & Me.SearchTxt & "*' Or PriorName Like '*" & Me.SearchTxt & "*'"
Me.FilterOn = True
[Code] ....
It works great with one minor issue: if I try to search for a name containing an apostrophe, I get a syntax error. So, it won't find Children's Hospital for example.
The database is a patient database used for tracking Inpatient data and Handover (or Handoffs for those in the US). It has been merrily ticking over since December and has accrued several thousand records. To get access to this data in new and interesting ways Im trying evolve my rudimentary search function which currently only works for diagnosis, name and consultant (in otherword text fields).
Thus I have an unbound form that has various input boxes on it. I have borrowed some code to power the form and have replaced with own fields:
Code:
Dim criteria As String
Looks for input text and adds it to the final criteria to power the search list at the end based on field in this case txtDiagnosis
If Not IsNull(Me.txtDiagnosis) Then
If criteria <> "" Then criteria criteria & " and "
criteria = criteria & "txtDiagnosis like " & Chr(34) & "*" & Me.txtDiagnosis & "*" & Chr(34)
End If
[code]...
ISSUE 1:
I am struggling with the date search function. It doesn't work. Whether it is prudent to search for either a admitted date or a discharged date?
ISSUE 2:
I have a check box for "complications" that I'd like to be included on in the search.
I have searched for bits of code to copy other people better than I, and had some success but I am failing to complete, so it is now time for me to visit you all. I am trying to open a PDF from a button on a subform. The location of the PDF is specified in a field. I want to open the PDF and search for a Member ID criteria also listed in a field on the Form.This is my code:
Code:
Private Sub Text12_Click()
Dim strPath As String
Dim Searchmem As String
strPath = [Notetxt]
Searchmem = [MemID]
[code]....
Adobe Reader reports "There was an error opening this document. The file cannot be found." but then opens the file (that's something).So it's the "search" bit that is the problem, and I cannot for the life of me get my search parameter to be used.
I'm trying to add a new functionality on my search form where the user can search for records that haven't been modified(based on the field DateModified) for certain amount of time.This is what I added in my search function but it's giving me "Invalid use of Null"
If Not IsNull(Me.txtInactiveTime) Then
Dim LValue As Integer
LValue = DateDiff("d", Me.DateModified, Date)
Select Case Me.txtInactiveTime
Case "> 1 month"
strWhere = strWhere & "(LValue >= " 30 ") AND "
Case "> 2 months"
strWhere = strWhere & "(LValue >= " 60 ") AND "
End Select
End If
txtInactiveTime is a combo box where the user chooses the time during which the records haven't been modified.(i.e. 1 month, 2 months etc.)
I have a table called 'Klanten' which contains the rows 'password' and 'login' (and several rows not needed for this form)
So I'm trying to make a login form which first checks if something is entered (this part of the code seems to work).
Private Sub Knop13_Click()
'Check to see if data is entered into Username
If IsNull(Me.Username) Or Me.Username = "" Then
MsgBox "gelieve een login in te voeren.", vbOKOnly, "Required Data"
Me.Username.SetFocus
[Code] ....
But from then on i seem to have some issues.. The part of the code underneath seems to only work for the first 'login' and 'paswoord' in my table called "Klanten".
-Username is the name for the field where they enter their 'login'.
-Password is the name for the field where they enter their 'paswoord'
If Username.Value <> DLookup("[login]", "Klanten", "[Username]='" & Username & "'") Then
MsgBox "Invalid Username. Please try again.", vbOKOnly, "Invalid Entry!"
Exit Sub
End If
If Password.Value <> DLookup("[wachtwoord]", "Klanten", "[Password]='" & Password & "'") Then
MsgBox "Invalid Password. Please try again.", vbOKOnly, "Invalid Entry!"
Exit Sub
End If
Then as last part i would like to goto another form called 'Mainmenu' if both the Login and the Paswoord is correctly entered in the fields Username and Password. Here i have the most issues as this doesn't seem to do anything at the moment
If Password.Value = DLookup("[wachtwoord]", "Klanten", "[Username]='" & Username & "'") And Username.Value <> DLookup("[login]", "Klanten", "[Password]='" & Password & "'") Then DoCmd.OpenForm "Mainmenu"
End Sub
Whenever I search a table using Ctrl+F it always says access returned zero results, even though I am searching for stuff I know is there.
How do I make a search field that will return in a table form all the results.
(Software inventory database, so I need to be able to search by serial number, as well as peoples names that are using those serial numbers)
any way to set the searchfuntion to only search for part of the word as standard?
or is it any other way to make a search function where u can write like 133 and get all the numbers starting on it.
Hi,
I would like to add a search function to a form. There will be a textbox on the form to let user to type in there searching criteria,
the grid (on the same form) will display the result records (search from the database) on the grid base on the searcing criteria. How to acheive this? Any example that I can refer to?
Thanks!
hi guys... i am currently working on a search form for my database.. here's
how my form looks like:
http://i114.photobucket.com/albums/n...clientform.jpg
when the user will type in for example "ABC Company" in the "Search for" field and will choose "Company Name" in the "Search by" combo box, the database will look for all the "ABC Company" entries under the field of "Company Name" in a table. There will be a lot of category to search from such as Position Name, Company Name, Dealer name, Outlet Name, Employee Name and Employee ID..
the results should be shown in a continuous form...
i've already tried this code:
Code:SELECT " & cboSearchBy.Text & " FROM TABLENAME WHERE " & cboSearchBy.Text & " LIKE '*" & txtSearchFor.Text & "*'
but it didn't work...
does anyone has a sample SQL query or VBA code for this function? i've been searching for it, but unfortunately i wasn't able to find what i was looking for. thank you very much. all your replies would mean so much.
if you want, you can also check the actual ms access file:
http://www.gigafiles.co.uk/files/636...2006-09-27.zip
the name of the form is frmSearchEmployee...
thanks a lot... =)
Hello everyone,
I was trying to make a query in access that will search for approximately what the user types into a textfield. I can only make something that searches for EXACTLY what the user has typed into the text field, but I want a more versatile search query that includes wildcards etc. so that anything related to the search will also be found. I was trying something like this but I just cannot get it to work:
SELECT FirstName, LastName, City, Major
FROM Students
WHERE FirstName LIKE '" & FirstNameToolStripTextBox.Text & "* '
I am using Visual Basic 2005 . NET and Access database, but the query is being made through access.
Thanks in advance for any suggestions you have