Modules & VBA :: Autocomplete Unbound Text
Jan 22, 2015
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
[Code]....
View Replies
ADVERTISEMENT
Jul 25, 2013
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.
View 3 Replies
View Related
May 14, 2015
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.
View 10 Replies
View Related
Apr 10, 2014
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.
View 2 Replies
View Related
Feb 20, 2015
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.
Is this even possible?
View 14 Replies
View Related
Jul 17, 2013
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)
View 2 Replies
View Related
Jul 23, 2013
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?
View 14 Replies
View Related
Jun 27, 2013
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.
View 1 Replies
View Related
Apr 16, 2015
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.
View 7 Replies
View Related
Oct 29, 2013
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.
View 14 Replies
View Related
Aug 22, 2014
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;
id;date;excel info;excel info;excel info.
View 7 Replies
View Related
May 6, 2014
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
the code I have started off with is
Code:
CurrentDb.Execute "INSERT INTO ColdTemperatures (ProductID, ColdTempDate, Temperature) VALUES (" & Lettuce & ", #" & Me.RealTime & "#, " & Me.Lettuce & ")"
which adds 1 successfully however if i repeat the code above for all 15 this Im assumming will create a potential bottleneck and slow the system down
is it possible to add all 15 records at once? do you think Im going at this the right way
View 5 Replies
View Related
Jan 6, 2014
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".
View 5 Replies
View Related
May 14, 2013
I want to enter text in an unbound text box and for it to be repeated in another on the same form.
View 6 Replies
View Related
Mar 22, 2014
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
View 4 Replies
View Related
Mar 2, 2006
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.
View 12 Replies
View Related
Sep 17, 2007
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
Pieter
View 3 Replies
View Related
Apr 5, 2005
Hi
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 & "*'"
End If
strNewRecord = "SELECT tblProduct.* " & _
"FROM tblProduct " & _
"WHERE tblProduct.Product_Name" & strFil & ""
qdf.SQL = strNewRecord
DoCmd.Echo False
If Application.SysCmd(acSysCmdGetObjectState, acQuery, "qryProductSelect") = acObjStateOpen Then
DoCmd.Close acQuery, "qryProductSelect"
End If
Forms!frmCapitalGoods!ctlSubForm.Form!ctlSubForm.F orm!.RecordSource = "qryProductSelect"
Set qdf = Nothing
Set db = Nothing
End Function
View 5 Replies
View Related
Dec 28, 2005
hi
i've created a unbound text box and for my default value i've put the path of a spreadsheet i wanna import.
How would i get my macro to select fromt the form as apposed to the default path i put in manually.
View 2 Replies
View Related
Jan 6, 2007
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..
Regards
View 4 Replies
View Related
Feb 18, 2005
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?
View 6 Replies
View Related
Jul 31, 2006
My Account Rep has a form with a subform.
Right now if they type the word "COTTEN" into the system it changes automatically to "COTTON"
Now if I do the same thing on my work station it stays "COTTEN"
Any thoughts or suggestions? thanks
T
View 2 Replies
View Related
Jul 5, 2006
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???????
Any help is apprecaited.
View 2 Replies
View Related
Aug 30, 2005
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.
Thank you
View 4 Replies
View Related
Oct 26, 2004
Hi,
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:-
Me.RecordsetClone.FindFirst "[SittingID]=" & Me.cboSittingID
Me.Bookmark = Me.RecordsetClone.Bookmark
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
View 1 Replies
View Related
Jul 31, 2007
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.
View 1 Replies
View Related