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 am running in to a brick wall with this. I have an unbound text box with the control source set to =IIF([text42]=0,0,[text42]/[text44])*100 and in continues to return a #name? error.
I am not sure how to get this expression to work. I have even tried to put =[text42]/[text44] and I still get the #name? error.
I am having a little problem with making an audit trail for a form with some unbound text controls on it.
Since .OldValue won't work on unbound text boxes, google suggested that I put the old value in the control's tag property. This is what I came up with:
Code: Dim ctl, tbox As Control Dim strName, strOLD, StrNew, NewTag As String Dim NextOne As Label For Each tbox In Me.Controls If TypeName(tbox) = "TextBox" Then Select Case tbox.Value
[Code] ....
The first loop is supposed to dynamically assign the tag value, with whatever the textbox value is, however it doesn't. I've asterisked out the line i think may be the issue.
So I have this code in an afterupdate event in an unbound text box to update the value of a table if the textbox is updated:
Code:
Private Sub txtCustRepID_AfterUpdate() 'Go to Calls table and find original value for CustRepID 'Fin the Call ID first Dim CallIDVar As Long Dim ContactIDVar As Long Dim CustRepIDOr As String CallIDVar = Forms![Contacts]![Call Listing Subform].Form![CallID]
[code]...
This code works well when entering numbers in the text box but it returns error 3061; "Too few parameters. Expected 1" when along with the numbers there is a letter in the textbox.The error happens in this part of the code:
Code: 'Accept change and add new value to table CurrentDb.Execute _ "UPDATE Calls " & _ "SET CustRepID = " & CustRepIDNew & " " & _ "WHERE CallID = " & CallIDVar, dbFailOnError
The underlying table has text as type of data for this field.
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'm developing a form to link a clause to one of a selection of internal documents from drop down boxes (of which there are a lot and hence looking for ways to make it more manageable to find).Now the setup of the internal documents is unfortunately beyond my control (separate SharePoint Libraries, inconsistent fields, you name it they've picked the worst way to do it :P).
I figure the best way to do this is to set up some unbound controls - two drop down (to narrow down location/department), two text boxes (doc code and name) with the idea that it will limit the selection to anything 'like' what is typed in.What I would like is either: How to set the RowSource criteria to only apply if the relevant control is not blank (i.e. if all the boxes are blank, all docs will show; if 'Sales' is selected in department and the user types 'Sales Order Entry' only the Sales Documents relating to order entry will appear)How to add criteria to the RowSource of a dropdown box via VBA (I've created the relevant 'If then ... else' statements but not sure how to add rowsource criteria in VBA)
I have two unbound text boxes and a search button adjacent each that allows me to search for a user via two methods:
1) Payroll ID 2) Surname
They have the following code:
txtPayrollIDSearch
Code: Private Sub txtPayrollIDSearch_AfterUpdate() Dim sWHERE As String sWHERE = "[PayrollID] = " & Me.txtPayrollIDSearch sWHERE = "[PayrollID] = '" & Me.txtPayrollIDSearch & "'"
[code]...
Then minor differences between the above and the Surname search.I have two questions:
1) How do I make the search more friendly by allowing it to find partial matches, i.e., a user has a surname of 'Smith' but I want to search for 'Smi'?
2) How can I display further error messages if there aren't any matches?
how to add recoreds in table thru form. There are 10 fields. first two are txt boxes and rest of are combo boxes. combo box are with drop down list. But they are unbound. two txtbox are auto filled by the username and empid. Now need to write the code to update these value to table. Just i wanna do ti thru vba coding only.
I have a continuous form with a text field that says "Select". There are two other fields, one of which is Brand. When the Brand Combo box has nothing in it I want the text box to appear (instructing the user to select a Brand) But once the user selects a Brand and goes to the next records, I would like the "Select" in only that record to become not visible. I tried conditional formatting but can't apply that to an unbound control ( or at least it is grayed out when I select the text box) and any other possible solutions I have found changes all of the selects - not only the one in the changed record.
I have some code for a button on click event to open a form and select the record which corresponds to a value in an unbound text box. The code is:
Private Sub Command25_Click() On Error GoTo Err_Command25_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmOpenPatientRecord"
[Code] ....
This works fine when I put in a 10 digit NHS number but opens a blank record when I enter a four digit or six character/digit PatientNumber. Both patient number and NHS number are text fields in the underlying table.
I have a form which i use for a user to select an excel file they want to import and then click a cmd button to import the file into a table which works fine, however i want to append a date into a date field from an unbound txtbx before the file is imported so it will look something like;
I have a form with 15 unbound text boxes (daily temperatures) and what I am trying to do after entering the temperatures into the text boxes the user clicks an add button which will add 15 new records into the temperature table
My database has Main form and a Sub form. On main form i place one unbound text box named investigations. In subform of which datasheet there is a column named TestCode. I want unbound text box (Investigations) to display row values which selected in a column (TestCode) of subform.for example:Investigation field should display "CBC,HB,ALP".
I have 4 fields that are unbound on a form. img1 img2 img3 img4..When these are entered they are all combined and autofill another unbound textbox = imagename.. what i would like to do is from this unbound textbox 'imagename' ..i would like to populate a textbox that IS bound called FileName
[Event Procedure] Private Sub imagename_Click() Me.imagename = Me.FileName End Sub
I'm using a form with a combo box bound to a table (but all other boxes are not bound). When the user selects from the combo box, the other fields on the form populate.
The problem is, there are two fields which are memo fields, but the form is truncating the text. When I type text in the form and save, it truncates, but in the table itself the text is not truncated. However, if I go back to the form and make a change, the truncated text overwrites what's in the table.
Hi, I have a unbound text box in a form. i would like it to display the total value of other text boxes in the same form. The other boxes are bound to a table. please advise
I have a unbound text box on a form. I am using code to complete a search, each time a letter is input into the text box the code runs. My problem is that I am only able to input one letter in the text box. Has anyone any ideas why this is!
Code I am using:
Function FilterForm()
Dim strFil As String Dim strNewRecord As String Dim strSupplier As String Dim strTp As String
Dim db As DAO.Database Dim qdf As DAO.QueryDef
Set db = CurrentDb
If Not QueryExists("qryProductSelect") Then Set qdf = db.CreateQueryDef("qryProductSelect") Else Set qdf = db.QueryDefs("qryProductSelect") End If
If IsNull(Forms!frmCapitalGoods!ctlSubForm.Form!ctlSu bForm.Form!txtFind.Value) Then strFil = " Like '*' " Else strFil = " Like '*" & Forms!frmCapitalGoods!ctlSubForm.Form!ctlSubForm.F orm!txtFind.Value & "*'"
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???????
I am trying to troubleshoot a form and I am at wits end with it. :eek: I hope someone can help me.
There is a form whose record source is based on a query. When it opens it loads all the records. At the bottom of the form, there is an unbound text box that is used as a filter. The person is suppose to be able to type something in there and then once the cmd button is pressed it filters bases on the value of that text box. That appears to work fine.
The problem is, when the form loads, the unbound text box is locked. It does not allow anyone to type in it.
I checked form properties and also the text box property and it is not locked. I have added code on the getFocus, OnLoad, OnUpdate..ect, to make the properties of that text box unlock it self. I have had no success with that.
I did notice that after the form loads and I hit Design view and then change back to Form view, the text box is unlocked and allows typing. :confused:
Why then does it allow editing, but not on initial load. Any help would be wonderful. If further explanation is necessary, please ask.
I have a form that has a list of sitting on when you select a sitting I would like to produce list of centres that are registered with that sitting. I would like to do this by having an unbound text box. I need to do it this way for part two.
So I have
SittingID The user can select a sitting from the combo box of sitting ID. I have this code behind the combo box to look up the sitting details:-
I then have a table that holds all the centre that belong to that sitting this table has the Centre ID and the sitting ID I would like the user to select a sitting using the combo box and then the unbox text box populates with:-
CentreName, CentreNumber, VenueName, any idea's how I go about this one. Thanks
I have created a form which is linked to a table (tblKPIs) and all fields from that table are displayed on the form. I have added an unbound text box in which I would like to display a value from a field in a linked table (tblObjectives).
I know this is potenitally simple but cannot seem to work it out. Any help would be appreciated.
