I'm not sure what you call it but I call it auto-complete; the functionality that gives you a list of methods/commands when you are typing something like Me.Forms. When you type the Me. after the . it will bring up a list for you to see what you can do from there. That works fine for me but when I do the following: "CoCmd." the list will popup for a brief moment (much less than half of a second) which does not let me view the possible methods. Is this normal? If not does anybody have any idea how I might be able to fix it short of reinstalling MS Office (that is NOT an option).
Thanks,
Aaron
I wasn't sure if it should go in this section or the VB section. I apologize if it is in the wrong section.
Just something I hate and been frustrated about and would like to know whether it can be solved. I don't know about your PC but my mouse's wheel does not work in the Visual Basic Editor. This applies to all Office apps.
When I scroll the wheel, nothing moves. It works great in other apps, though, such as Explorers, ....
Is it something that was meant at designed or am I missing something here?
I have a form with a combo box and a button, which when clicked, opens a report based on the option selected in the combo box. For this, in the event procedure of the button click, how do I code it so that if no option is selected in the combo box and the button is clicked, it should display a 'message' as a pop up. I know I should use the MsgBox option but I seem to be going wrong with the If loops. I doubt I am positioning the MsgBox command in the wrong place in the code below, as it does not pop up the msg box as I desire. Heres the code:
Private Sub btnMarket_Click() If Me.Combo0 <> "" And Not IsNull(Me.Combo0) Then Dim s As String s = "1=1"
I would like to update a lot of fields in my tables; about 120 different fields in 12 different tables. I would however like to keep it simple by using the SQL editor in MS Access by writing all the UPDATE queries and leave them to run while I do smething else. It seems to me however that you can only run one query at a time using the SQL editor. I thought I could separate one SQL editor from the other by using semicolon as in Oracle SQL editor etc., but that does not seem to work. Does anybody know how to do this in Access without writing a VBA code etc.?
I am setting up a database with an image linked to each record. I have installed Photo Editor as required to display jpeg files. However, when I try to insert object in the table field, Photo Editor does not appear as an option under 'Object Type'. How can I use Photo Editor as my OLE server to display jpegs? Or, can someone suggest a better way to display images on forms? I'm a newbie, so although I'll try more advanced programming if required, I will need quite detailed step-by-step instructions :)
I hope this isn't too stupid of a question :o but I've been trying to find a way to activate some kind of autocomplete function to help while entering data in a table and couldn't find it. So if for example, in a field in the table, I write data multiple times, access could autocomplete the words already seen, the way it's done when a field has the look-up option...Was wondering if there's a way for that..
Is there a feature in Access similar to Excel or Explorer where if you start complete a field with a word/phrase you have used before in the same field, it will suggest it? If not, can it be easily created?
Ihave a simpel database that records customers details. I have a form that lets me enter dockets recording deliveries by my customers. To simplify data entry is there anyway that I can enter a customers name in the form field and have it autocomplete if something similar exists (Like excel). A Drop down list would be too long if each customer was a new or how can I add a new name to a drop downlist withoput exiting the form???????
Are there any way to insert autocomplete in forms like how the internet explorer works ? In other words, when i type a few letters , the whole string of word will come out.
I am teaching a group of students how to make a simple database (its a very short course, just 3 x 2hr sessions). One of them has indicated that she sufferes from dyslexia and that this is making it difficult for her to populate the database correctly.
When she types columns of data in Excel, once she has input each entry correctly once, the autocomplete feature helps her with duplicates of the same entry (e.g. placenames).
I cannot find how to turn on autocomplete in Access 2003. Am I missing the obvious? Is it possible? If so where is the setting hidden?
I realise that the field type could be changed to "LookUp", but this would complicate the setting up of the database and would require all possible entries in that field to be pre-defined.
I need it keeping simple as the course is so short, the student will be on her own with it in just a couple of weeks.
I am looking for a way to autocomplete in a unbound text, but I did not find any answer. So I am using this code that I used before in excel, but it doesn't work in Access.
Code: The purpose is just to copy the last name of member to last name of spouse if the first 2 characters matches.
Code: If abort Then abort = False: Exit Sub With Form_frm_proto If Nz(.lblSLastName) = Left(Nz(.lblLastName) & Chr(5) & Chr(5), 2) Then
I have an access form which 1 person updates daily, but the task after that is split between 2 users. I have got most of the form data automated with a combo box from a supporting table.
But I now want to automate a username & date, but based on a % and set of conditions.
(At the moment I go in at the end of the week and manually put those 2 usernames next to the new work thats been logged)
I'll try and explain:
user 1... gets 60% of the work user 2... gets 40% of the work
At the end of that day, when the form is completed with say 100 new records, I want to then run a query, macro (or anythying else that would do it automatically), to assign those usernames 'user1' to 60 of those 100 records... and 'user2' to 40 of the records. and also give it todays date.
I have create some forms which have some common fields, I have built relationships between them as well and I want to autocomplete the records in the fields with the relationships. For example I have a form with the client's details and I have install a Macro so that when I have complete the form with the new clients details and click on the Macro to automatically open the form with the clients order where this form has the clients ID and Name which are common with the fields in the Client's form. What I am trying to do is to autocomplete the common fields when I click the Macros to open the Order list.
I am making a library database which would be used in a school. I need to make a form which allows me to type in the persons id number then the persons profile will come up automatically then underneath there will be the persons book loans in a subform which i dont know how to do ...
So the top bit will have the persons details like personid, surname, first name, tutor group and then below there would b a subform with fields in from two different tables like from the book table there will be author surname, author firstname, bookname then from the loan table there will be the date the book was loaned field
The subform would also have to let me edit it so that i can add new loans or remove loans which i also dont know how to do but i was thinking if i had to add new records of the book would the subform have to autocomplete too? to save time typing all the details of the book
so so far i have made the tables added some test data and made relationships between the tables
a person can have many loans a book can have one loan
I think there is something to do with queries to make this whole thing work but I am totally lost what i have to do, I've been reading some forum posts which are similar about autocomplete forms which i have done but it wont work when i do it with the problem I have.
I would like to input a alphanumeric code ("Field 4") consisting of fourteen characters, where the first six characters represent "Field 1", the second 5 characters represent "Field 2", and the remaining three characters represent "Field 3".
Is there a way to input only "Field 4" into a form and program Access to "deduce" and save the values for "Field 1", "Field 2", and "Field 3" without re-entering the data? Also, would the inverse be possible (chain together "Field 1", "Field 2", and "Field 3" to create and save "Field 4")?
Works great, but when I hit the number "3", (3 times in row) it will let me into the form. I want it to not let me in IF I don't know the password.
Where did I go wrong?
Private Sub Form_Load() Dim pw As Variant
If InputBox("What is the password?", "Password") = "1" Then Else MsgBox "Invalid Password", vbCritical, "Sorry Charlie" DoCmd.Close If InputBox("What is the password?", "Password") = "2" Then Else MsgBox "Invalid Password", vbCritical, "Sorry Charlie" DoCmd.Close End If End If
I protect my code from people being able to read it by setting a password on the code from Tools > Properties, selecting the Protection tab and entering a password, and clicking "Lock Project"
Is there a way to write code that will remove that Lock Project check and check it back on?
I've looked through the Application.SetOption command and it doesn't seem to be one of the choices. It would be very helpful if someone knew how to do this.
Need a little help here. I have this code on a command button that open a form that displays a chart. The chart work great as long as there is data to display. However, if there is no data then the chart is blank. So what I'm trying to do is add a dcount to catch the 0 and give an error. So the 1st query makes the table where the data for the chart come from. The Qry-Test for Zero query, queries that new table if dcount is 0 it should error. My problem is that I can't get this to work with the 0 if I make it 1 then I will get the message box if there are no records and if there is 1 record 2 and greater work fine. So my question is why won't the code catch the 0?
Dim stDocName As String stDocName = "Qry-Makes Table" DoCmd.OpenQuery stDocName, acNormal ', acEdit
If DCount(" * ", "Qry-Test for Zero") = 0 Then MsgBox " There is no data for this time frame to chart. Please re-enter your Date range" Exit Sub Else
Need a little help here. I have this code on a command button that open a form that displays a chart. The chart work great as long as there is data to display. However, if there is no data then the chart is blank. So what I'm trying to do is add a dcount to catch the 0 and give an error. So the 1st query makes the table where the data for the chart come from. The Qry-Test for Zero query, queries that new table if dcount is 0 it should error. My problem is that I can't get this to work with the 0 if I make it 1 then I will get the message box if there are no records and if there is 1 record 2 and greater work fine. So my question is why won't the code catch the 0?
Dim stDocName As String stDocName = "Qry-Makes Table" DoCmd.OpenQuery stDocName, acNormal ', acEdit
If DCount(" * ", "Qry-Test for Zero") = 0 Then MsgBox " There is no data for this time frame to chart. Please re-enter your Date range" Exit Sub Else
I use the code below on a search form. I would like for the results of the list box search to populate a report instead of the list box. Is it possible to take the the sql and move it to a report? Thanks..
Dim strsql As String, strOrder As String, strWhere As String Dim dbNm As Database Dim qryDef As QueryDef Set dbNm = CurrentDb()
'Set the WHERE clause for the QueryDef if information has been entered into a field on the form If Not IsNull(Me.txtIssue) Then '<--If the textbox txtCenterName contains no data THEN do nothing strWhere = strWhere & " (SiteIssues_tbl.Issue) Like '*" & Me.txtIssue & "*' AND" '<--otherwise, apply the LIKE statment to the QueryDef End If
If Not IsNull(Me.txtAdminDate) Then strWhere = strWhere & " (SiteIssues_tbl.AdminDate) Like '*" & Me.txtAdminDate & "*' AND" End If
If Not IsNull(Me.txtSite) Then strWhere = strWhere & " (SiteIssues_tbl.SITE_ID) Like '*" & Me.txtSite & "*' AND" End If
With Me.lstSearchResult If .ListCount > 0 Then GetListCount = .ListCount - 1 'Headings count Else GetListCount = 0 'Headings don't count if no items listed!! End If Me.Text31 = .ListCount - 1
Dim ctl As Control End With If Me.Text31 = -1 Then Me.Text31.Value = 0 Me.lstSearchResult.RowSource = "" DoCmd.RepaintObject acForm, "SitesIssues_qry" Me.Requery
MsgBox "No Records Found."
For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acCheckBox Then ctl.Value = Null DoCmd.RepaintObject acForm, "SitesIssues_qry" Me.lstSearchResult.RowSource = "" Me.Requery End If Next ctl End If
I have code bellow which is bringing a tab called Heffalump from the excel spreadsheet into table. Now, what I need is to create a text box where I will be typing PI1228131313 and it's going to be changed in the code bellow.
