Query Display Value From Calculated, Unbound Textbox
Oct 5, 2007
Here's the situation.
I have a calculated value in an unbound textbox (avghcppmw). I want to run a query (qinsphistory) in which one of the fields is the value of the textbox (avghcppmw).
Is there any way to pull the value from the form and display it in the query. I'm assuming not.
I also assume the only way to do this would be to create a query that would calculate the textbox value and base (qinsphistory) on the newly made query.
I am working on a change control database where the users can enter a new version for the software they just released and send out a notification to the appropriate persons. I have a form where the user can select a combobox to pick the software version, which is bound to my "Releases" table. From the software version I use a DLookup in VBA to change the value of a another unbound text box using:
This all works fine when I'm entering data in the form, but if I want to print the form, the unbound text box on each page is only calculated from the first record. The same thing happens if I build a report with the same fields and code.
For example: In print preview the text box on page 1 should say "Cat" based on the current record and the text box on page 2 should say "Dog". However, they both say "Cat"
How do I get the text box to display the new value on each page?
My form has a listbox (lstHeatTreatments - Multi-Select disabled) that displays Heat Treatment descriptions and an unbound textbox (txtHTDetails) that I would like to have display the corresponding memo field when a description is selected from the listbox.
This is my code so far:
Code: Private Sub lstHeatTreatments_AfterUpdate() Dim myConnection As ADODB.Connection Dim myRecordSet As New ADODB.Recordset Dim mySQL As String Dim selectedRequirementKey As Long Set myConnection = CurrentProject.AccessConnection Set myRecordSet.ActiveConnection = myConnection
Hi: There are two textboxs in my main form. One is bound and another is unbound. There is no entry in the unbound textbox as values come into automatically after entering some information in the subform. My question is how to i pass values from unbound textbox to bound textbox every time when the value change in unbound textbox i need to change the value in the bound textbox. When the form load there is already value in the bound textbox which i want to override based on the values from the unbound textbox.
I have a form that calls up an employee that also lists their hire date. I have an unbound text box that calculates the years of service by DateDiff(). It works for the first record but sticks for all the subsequent records. I've tried an afterUpdate or Change on the bound Hire_Date text box that is Me.txtYearsOfService = DateDiff("yyyy",Me.Hire_Date,Now) but it still sticks to the first record.
I'm sure this is basic but can't see the obvious. Please relieve the pain.
Hi all, I am experiencing problems trying to put together what I thought was a simple form that would allow users to search for data from a field on one table and display the results in a data grid style from the query I have created. However the query is'nt working and I am sure it is because of the way I have coded the query to read from the form's textbox. The SQL code is below.
SELECT tblFiles.Vault, tblFiles.Wlt, tblFiles.CD, tblFiles.Media, tblFiles.ProjectNo, tblFiles.ProjName, tblFiles.FileName, tblFiles.Location, tblFiles.NetLoc, tblFiles.CreDate FROM tblFiles WHERE (((tblFiles.FileName)=[forms]![frmArchive].[txtprjname].[value]));
There is a value in that field as 'attachment' and if I type that in the textbox it will find the records that have exactly that string but if I type 'att' there are no results. I tried searching in help for 'Like' since I believe that is the problem with my code but it did not show me an example of how to code that in the query to refer to the object on the form.
the code I have on the button next to the unbound textbox is as follows...
Hi all, I am experiencing problems trying to put together what I thought was a simple form that would allow users to search for data from a field on one table and display the results in a data grid style from the query I have created. However the query is'nt working and I am sure it is because of the way I have coded the query to read from the form's textbox. The SQL code is below.
SELECT tblFiles.Vault, tblFiles.Wlt, tblFiles.CD, tblFiles.Media, tblFiles.ProjectNo, tblFiles.ProjName, tblFiles.FileName, tblFiles.Location, tblFiles.NetLoc, tblFiles.CreDate FROM tblFiles WHERE (((tblFiles.FileName)=[forms]![frmArchive].[txtprjname].[value]));
There is a value in that field as 'attachment' and if I type that in the textbox it will find the records that have exactly that string but if I type 'att' there are no results. I tried searching in help for 'Like' since I believe that is the problem with my code but it did not show me an example of how to code that in the query to refer to the object on the form.
the code I have on the button next to the unbound textbox is as follows...
I'm having a problem with one of my forms, i have created an unbound text box called Hours. In it i will type a number. Then click on a button to create a report based on this number.
what is happening though is that when i click the report button the report is blank, if i close the report and then click the button again i get the expected results. What seems to happening is that after i click the button the first time the form refreshes itself and the number is picked up.
Is there any snippit of code i could add to the print report button so it will work first time?
Can anyone help me out here. I need to use an unbound text control to return me a value if a field is populated else "Local" if the field is not populated. Can anyone tell me if this is possible and show me the syntax if it is. Help appreciated. Andy
i have a form with a unbound text box were a date is added by a user and then a command button is clicked and if the date entered is say 10 days older than the todaysdate date it opens a different form something like this??
i have an unbound form where users can enter as much or as little as they'd like to search the database. i'd like to have default values for two unbound textboxes for initial date and ending date. i was wanting to put in 1/1/1999 for initial and 1/1/2050 (or another high number) for ending date. however, when i put those values in the Default Value property for each textbox, it changes to 12/30/1899..for both the initial and ending dates...how do i get my dates to show up?
I have a form that uses a query as its control source. The problem I have is that on this form I have an unbound textbox that I need to show the result of another query in. I thought I could do this by using =[Query]![QueryName]![Field name] in its control source, but this isn't working.
Is there a way to limit the number of characters that can be entered into an unbound textbox on my form?
I have a search textbox, where a jobId is entered and button is clicked to search. The numbers are generally 8-digit. I just noticed one of my users trying to enter 9489858939349839434 :eek: ohh lawd. Please help me stop these people before they break my db...
My form has a button that opens another form on which I enter meeting RSVPs. Then that form is exited. I have an unbound text box on the main form that I want to show the total number coming. I have a summation query that totals the number. I have tried everything I can think of to force the text box to requery. I tried putting the dlookup in the textbox itself, then I removed that and tried all of the things below, both in the gotfocus event and the onCurrent event. What else can I do to trigger the recalc?
Private Sub Form_GotFocus() Me.numcomingtxtbox.Value = DLookup("howmanycoming", "numcoming") & " Coming" Me.numcomingtxtbox.Requery Me.Recalc End Sub
I have a unbound text box in the form header and have a command button in form I am wanting to put the unbound textbox value into a bound textbox on form.
Private Sub Combo1309_AfterUpdate() If Me.Combo1309.Value = "Yes" Then Me.Text1307 = Environ("UserName") Me.Patient_Gender.BackColor = vbYellow ElseIf Me.Combo1309.Value = "No" Then Me.Text1307 = Environ("UserName") Me.Patient_Gender.BackColor = vbRed End If End Sub
I have the above code in an unbound textbox and it functions correctly. Expect, the value Yes/No appears in every record in that textbox,So, if in record 1 the value of that textbox 1309 is Yes in record 2,3,4 the value of that textbox 1309 is set to Yes. How do I make it blank until the user selects the proper choice.
I'm trying to populate a form textbox which is unbound.
I have table with a list of peoples login names and a query filtering these names once a user logs in. If the GetUserName() matches one of the names in the table then user is authorised. this part seems to be working fine. User not on the GetUserName() list the filter says blank ie Not Authorized.
How to take this confirmed user name and place it into a textbox on a form?
Table name: [tblUserNames] with [IngEmpID] & [UserName]
Query Name: [qryUserNames] with a Criteria GetUserName()
I have 3 values in unbound text boxes and a 4th text box that is calculating the sum of the first three text boxes, i need the result of the calculation to be stored in the field "Total Cost" that is also on this form.
In my DB i would like to make a form that displays different calculated values based on other forms and queries like income running cost etc., but i do not know how to refer in an unbound control to value of a control in another form. I get always #names? error. However it worked when loaded that form i refered to. Is there a way to do it without loading the refered form?
I have a form with a textbox and I want to fill that text box with the calculations from values of other text boxes. However when I put the equation = Sum (box1 + box2 + box3) into the textbox's control source I don't get any results even though box1, box2 and box3 have values in there. I also need the result to be saved in a field on my table, but I got no idea how to do it.
I started off with a blank form and added a command button, three labels and a text box. None of these are bound to anything.
The sole purpose of this form is to show the progress of a VB script I've written that retrieves all the table names and the number of records contained in each. This information is also exported to Excel.
Everything works great apart from the log I'm producing inside the text box. This log is just a replica of what is being exported to Excel. Once the log reaches a length of 1,837 characters, it fails to have anything else added to it. The code below is where I have an error returned.
The error I receive is "Run-time error '2176': The setting for this property is too long.". From what I've read elsewhere though, an unbound text box is meant to have a character limit of a good few thousand. Around 60,000 from what I remember.
I did try a few other options such as using a label or a listbox but they weren't great. The label doesn't support a scroll bar and if the text goes past the size of the label it doesn't scroll down by default. A list box worked but I want the user to be able to copy the text after in-case the Excel report doesn't work for whatever reason.
I could possibly setup a table with a single field set to 'memo' and bound the text box to that. I don't know if that works though as I don't want to have to create an extra table. This form is to be used across other databases when required and this solution would add an unnecessary table to the list (which I could code out) and also means the table has to be exported to the other database along with the form.
Why my text box is limited to around 1,837 characters?
I have a form with one (field1) on it. Where users will enter data.
I would like to have a unbound textbox on the same form that will flash green if the data entered in field1 matches a value in Table. Or flash red if it doesnt find a match.
I tried the conditional formatting but i think my expressions are off.
I have an unbound calculated field [Txt1] that I would like to show the result as currency. The fields in the calculation are:
[CR] number, currency [Commission1] general number, two decimal places [Commission2] general number, two decimal places
The calculation is: CR15W * (1 - Commission1) * (1 - Commission2) If I just set the field to currency it works fine. But I want the field to show the following: "Some Text" & " " & Format(Calculation, "Currency")
When I tried to include the format it to currency I get type mismatch, run time error 13.
So I thought that perhaps I should try the following just to see where my error starts and I get the same error message when I use:
Dim Val1 As String Val1 = CR15W * (1 - Commission1) * (1 - Commission2) Txt1 = Format(Val1, "Currency")