Variable Default Data In Text Box
Jan 20, 2007
I am working on a database for my boss that stores the results of monthly file audits and generates reports.
Each month about fifty files are checked against a check list and the results are to be entered into the database. Reports are generated quarterly.
I have a date field that holds the date of the review. I would like the default value of this field to be what ever was entered in the previous record. That way this field can be tabbed through until the next month. When the data in the field is changed that will become the new default for the following records.
I don't have any formal VB or VBA training. I just learn what I need for each project and save it for later use.
Thank you for any help you can provide.
Henry L Michel
View Replies
ADVERTISEMENT
Jan 29, 2015
I'm trying to write code which writes text into text boxes on a form depending of certain content of other text boxes. The names of the text boxes are all very similar
F.i. R1, R2, R3 ...... R12 if the content of these boxes are empty then the content of the corresponding text boxes VR1, IR1, VR2, IR2, VR3, IR3.......VR12, IR12 should also be empty.
In fact I am trying to write something like this
DO UNTIL i=12
if me.R(i).value = "" then
me.VR(i).value = ""
me.IR(i).value = ""
endif
LOOP
But this isn't working. The solution below works but isn't a very nice one, writing 12 times the same code
if me.R1.value = "" then
me.VR1.value = ""
me.IR1.value = ""
endif
if me.R2.value = "" then
me.VR2.value = ""
me.IR2.value = ""
endif
View 4 Replies
View Related
Jul 10, 2005
:confused: I was wondering if somebody can help with my default combo box problem?
I have a secured database whereby users logon, which is used as a scratch pad for keeping track of Purchase orders. A Form frmUserInput with two relevant fields for this problem 1. User Initials txtUsersInitials and 2. POBook (Purchase Order Book) which is the combo box cboPOBooks both unbound fields on the form.
The txtUsersInitials is generated automaitcally when the form is loaded using a VBA statement txtUsersInitials = Current User.
The list of the combo box is generated from a table tbleUsersPOBook and uses a query qryUsersDefaultPOBook as listed below;
SELECT tblUsersPOBook.UsersPOBookName
FROM tblUsersPOBook
WHERE (((tblUsersPOBook.UserName)=[Forms]![frmUserInput]![txtUsersInitials]));
This generates a drop box showing the Different department codes for each individual. So for some it is only one item for others up to three codes, this part works fine... :)
:cool: However here is my problem.
Since some people can sign off more than one Purchase Order book I have had to add an additional field in the table tblUsersPOBook called DefaultUsersPOBook which is a yes/no field, so only one yes exists for each user who logs on. I have created another query qryDefaultPOBook as listed below;
SELECT tblUsersPOBook.UsersPOBookName
FROM tblUsersPOBook
WHERE (((tblUsersPOBook.UserName)=[FORMS]![frmInputForm]![txtUsersInitials]) AND ((tblUsersPOBook.UsersPOBookDefault)=Yes));
When I place this query in the Default section of the combo box it gives me no result.
Firstly is it possible to have a varying default like this since each user will have a different default?
Or is there maybe a better way of achieving a default which is variable for each user based on thier default Purchase order book in the table tblUsersPOBook for the field "Yes" in DefaultUsersPOBook ? :confused:
View 8 Replies
View Related
Nov 7, 2013
I want to define a public variable and i am using the following code but it gives me Compile error Invalid outside procedure.
Code:
option explicit
public ABC1 AS VARIABLE
ABC1="FALSE"
View 7 Replies
View Related
Sep 15, 2005
Hi all,
I tried to display a variable and constant onto a text box by putting =myvariable onto the data source of the text box. However, Access seems keep threating my variable as a data field and giving me error message. What to do with this?
View 1 Replies
View Related
Oct 8, 2005
Hello,
I've got a text box on my form header with a calculation in the control source that adds values from other text boxes on my form.
My problem is that since the calculation is in the control source of my text box I can not save the sum of the calculation to a field on the forms bound table.
Is there a way to move this calculation out of the control source and still have the calculation populate this text box with the sum of the calculation, so I can choice a field in which to save this calculations sum.
Calculation in the text box control source=
[Tot40yrcomp]+[Totfelt1536]+[Totfelt3036]+ there will be many more other text boxes added.
It was suggested to me to have a Variable hold the calculation, I’ve been trying to write a variable but nothing seems to be working, I’ve been trying to place this variable I made into the after update and before update of the text box Nothing works I get all 0.00 in the form header text box, Here’s the code for the variable I made, can some one see if it looks correct.
Dim calcVariable
calcVariable = [Tot25yrcomp] + [Me.feltstot]
mat25yr = calcVariable
I was wondering if I need to say Me.mat25yr = calcVariable
Thanks--Any help will be greatly appreciated.
View 1 Replies
View Related
Oct 8, 2005
Hello,
I've got a text box on my form header with a calculation in the control source that adds values from other text boxes on my form.
My problem is that since the calculation is in the control source of my text box I can not save the sum of the calculation to a field on the forms bound table.
Is there a way to move this calculation out of the control source and still have the calculation populate this text box with the sum of the calculation, so I can choice a field in which to save this calculations sum.
Calculation in the text box control source=
[Tot40yrcomp]+[Totfelt1536]+[Totfelt3036]+ there will be many more other text boxes added.
It was suggested to me to have a Variable hold the calculation, I’ve been trying to write a variable but nothing seems to be working, I’ve been trying to place this variable I made into the after update and before update of the text box Nothing works I get all 0.00 in the form header text box, Here’s the code for the variable I made, can some one see if it looks correct.
Dim calcVariable
calcVariable = [Tot25yrcomp] + [Me.feltstot]
mat25yr = calcVariable
I was wondering if I need to say Me.mat25yr = calcVariable
Thanks--Any help will be greatly appreciated.
View 1 Replies
View Related
Jan 1, 2006
Hi All,
I have a search form with a text box for the user to enter a word or phrase to search the DB. I want the text box to have a default value to say "<Enter word or phrase here>"
I cant seem to figure it out. Any help would be great.
Thanks,
Bones
View 3 Replies
View Related
Mar 19, 2005
I have requested this before but the example given did not fit my situation and I had a heck of a time trying to adapt the example given to me so I will step by step describe what I need. thanks...
Can someone show me how to do the following:
1) Take a combo box that looks up a table that has 2 variables (Var1 and Var2).
2) Depending on the value chosen in the combobox (Var1) then a text field will automatically have the value (Var2) appear.
3) This information from combo box and text field will then be stored in a separate table that is linked to the form.
__________________________________________________ _____________
Also:
Is there a way to extend this example further by adding another combo box that takes the result from the first combo box to filter in values for the second combo box which will then automatically populate a text box which would then be stored in a separate table.
__________________________________________________ _____________
Someone kind of showed me before but they used unbound variables and this confused me as the combobox was unbound but how is that information stored into my table?
Pardon me for my redundancy but this is frustrating me to no end and I unfortunately have a deadline of today!!!! :(
I think it is the row source thing that confuses me. I take row source to mean where the data is stored. But where do you identify where to obtain the data to then store in your "inputed" table?
View 14 Replies
View Related
Nov 6, 2012
i have got a query that returns the top 100 results. i would like to link this to my report form where i have a text box that you can enter a number and the query returns the first of that ammount rather than going into the query everytime to adjust the results.the sql of the query is as follows
PHP Code:
SELECT TOP 100 tblClientDetails.FirstName, tblClientDetails.Surname, Sum(tblOrdersItems.Cost)Â
AS SumOfCostFROM (tblClientDetails INNER JOIN tblOrders ON tblClientDetails.ClientDetailsID = tblOrders.ClientDetailsID)
INNER JOIN tblOrdersItems ON tblOrders.OrderID = tblOrdersItems.OrderIDWHERE (((tblOrders.OrderDate)>DateAdd('yyyy',-1,Date())))
GROUP BY tblClientDetails.FirstName, tblClientDetails.SurnameORDER BY Sum(tblOrdersItems.Cost) DESC;Â
View 5 Replies
View Related
Aug 9, 2006
I tried searching everywhere and cant seem to find an answer to this one...
Is it possible to have a default value in a table which would be current month and year + text? Eg. mm/yy "text"
=now() & "text"
is fine but I need to format the date to mm/yy and cant seem to get it right.
eg. 08/06 Lease Payments
Also is there a way to do it for previous month, so if processing today it would give 07/06 Lease Payments?
Thanks in advance!
View 4 Replies
View Related
Mar 4, 2005
Hi Dudes
I have a text box on a form which is formatted as medium date and I want it to default to the Monday of the following week. So for today it should have 07-Mar-05 in the text box.
Can anyone please advise a method for this.
Thanks
VC
View 13 Replies
View Related
Sep 26, 2005
I am trying to set the result of a query as the default value for a text or combo box. I have tried setting the query as the default value in the box's property. I have also tried doing it in VB. The code looks like this
Dim SQL AS String
SQL = "SELECT Address
FROM Table1
WHERE Name = Forms!Main_frm!name_lbx.Value;"
Forms!Address_frm!address_cbx.DefaultValue = SQL
I have also tried
Dim SQL AS String
SQL = DoCmd.OpenQuery([update address_qry])
Forms!Address_frm!address_cbx.Value = SQL
Where update address_qry is the same as the above.
I keep both forms. I know how to do it by setting the queries as values in a list box, then transfering the values to the text or combo boxes. But I was hoping there was an easier way.
Thanks
Alex
View 1 Replies
View Related
Sep 26, 2005
I am trying to set the result of a query as the default value for a text or combo box. I have tried setting the query as the default value in the box's property. I have also tried doing it in VB. The code looks like this
Dim SQL AS String
SQL = "SELECT Address
FROM Table1
WHERE Name = Forms!Main_frm!name_lbx.Value;"
Forms!Address_frm!address_cbx.DefaultValue = SQL
I have also tried
Dim SQL AS String
SQL = DoCmd.OpenQuery([update address_qry])
Forms!Address_frm!address_cbx.Value = SQL
Where update address_qry is the same as the above.
I keep both forms open. I know how to do it by setting the queries as values in a list box, then transfering the values to the text or combo boxes. But I was hoping there was an easier way.
Thanks
Alex
View 2 Replies
View Related
Sep 15, 2013
I have a problem of setting default values for text box.I want that in my database date older than "X" days were canceled.I would like to be able to set this value from the form...Here is the algorithm:
- I open the form - "Formularz1"
- I set the number of days (change value in text box and click "Change")
- I close the form
- When I open the form again, data older than the value (number of days) will be deleted from the database
In a file, which I enclose everything works like I wanted, but the number of days is stored in the table, but I would like to be inserted and changed the properties of the textbox. Is it be possible?
View 5 Replies
View Related
Jan 5, 2005
This is the first time that I have done any major work with forms. After I thought I had finished a problem came up. There are several forms that are use to input information into a table. When the form is opened it grabs an automated number for tracking. The problem is, that if the form is opened and then closed it creates a line of data with all null values.
What I would like to do is have the form open, the user fills out the information, and upon pressing the "save" button, the data will save to the table. I think I need to have each text box write to a variable and then save on the click event. Or I could be completely wrong and need to do something else.
i'm guessing this is something I would learn in Forms 101 if i had ever taken that type of course
Thanks
View 7 Replies
View Related
Apr 15, 2006
Access 2003 Form
Can i move the blinking cursor to the end of field? I set in the options but it goes to the start of the field. and wants to overwrite the default text. I would like it to start at the end of the default text.
Can it be done with code?
Thankyou
View 4 Replies
View Related
Mar 6, 2005
I am hoping someone can help me, a real novice at Access 2000 - I am trying to construct a couple fields in a table, 1 of which will show a default value equal to a 2-digit year (yy) based on the current date. The second will display a default value equal to a two digit month (mm) based on the current date. Text fields would be ideal, but date field could work if it's the only way. Thank you for helping out a newbie.
View 4 Replies
View Related
Aug 17, 2005
I want to add current time as default in a text box, how can i do it?
View 1 Replies
View Related
Jul 25, 2013
I have a mainform and a datahseet subform.
Mainform = FrmProj_ProjectEntry
Subform = FrmProj_ProjectEntry_Sub1
On my mainform I have a text box (FrmProj_ProjectEntry.txtDueDt) where I enter an expected date.
On my subform I also have a textbox (FrmProj_ProjectEntry_Sub1.txtDueDt) for entering an expected date.
I would like the entered date on the mainform to become the default expected date on the subform for new records only. Once records are created the expected date can then be changed for each record.
How would I achieve this on an after update event on FrmProj_ProjectEntry.txtDueDt?
View 4 Replies
View Related
Aug 28, 2014
In a text box, [OrderDate], the default value is set to Date(). Now I wanna change the date without changing the default value and the new input value would be carried over to the next record until I say otherwise. Is there any way to do that?
View 3 Replies
View Related
Apr 8, 2013
(a) The On Open event of my report contains a VBA Sub that assigns a value to a variable named vShow. (Tracking the sub in VBA shows that vShow is correctly being assigned the desired value.)
(b) I then use vShow to try to control a calculation that occurs in one of the text boxes of the detail section in the report
(c) Basically, the control source of the textbox contains (in part) the statement (vShow>[fieldA]), which is embedded in a longer function.
(d) However, when I type this in at Control Source box of the Data tab of the the Property Sheet, Access always substitutes "[vShow]" for "vShow".
(e) So what I get is ([vShow]>[fieldA]), which treats vShow as the parameter of a parameter query.
ANY WAY TO OVERCOME THIS AND HAVE vShow recognized as the variable I defined at On Open? Perhaps there needs to be a variable declaration there, that I don't understand.
The basic form (vShow>[fieldA]) does not seem to be the problem, because I can enter, e.g. (500>[fieldA]) and everything works OK.
View 2 Replies
View Related
Nov 16, 2014
I some code that is reading the first 32 lines of a text file and paste the results into 1 text box on individual lines. I would like each line to go into an individual text box.
I have 32 text boxes named txt_1, txt_2, txt_3
I have a variable named ThisLine holding the line of the text file.
I have a variable named textBoxName holding the name of the control.
Need to putting these together to write the line to a text box .
Code:
Sub ReadFile()
Me.txt_newData = ""
Me.txt_OrigData = ""
'again, we need this strange thing to exist so that ...
Dim fso As New FileSystemObject
[Code] .....
View 1 Replies
View Related
Mar 21, 2014
I have a form that has a textbox in it. I enter text into the text box by scanning a bar code. I then use openreport.cmd to pass the variable in the text box to the report I generate. The report then has a button that when clicked references the variable that I passed to it.
Essentially the problem I am having is that when I set the textbox back to blank, it also erases the contents of the new variable created. I want to either delete the value from the textbox upon scanning the bar code each time, or highlight the value in the textbox for it to be deleted upon the first key stroke. I had read about setting focus to the textbox, but I have been unable to get that to work. Here is my current code for what I am doing.
Code in the form:
stPartNum = Me.ScannerTxt
Label = stPartNum
DoCmd.OpenReport "RptLabels", acViewPreview, , , acWindowNormal, stPartNum
Code in report button:
partnum = Me.OpenArgs
View 5 Replies
View Related
Jul 16, 2012
I have used Transfer text cmd to export query to text in MS access. This works fine. path= "D:/test/"DoCmd.TransferText acExportFixed,"Query1",path,False But i need to change the path dyanmically as my wish when i run this query. Like i may save my txt in desktop or C: or D:. I dont want to hard code path as above.
Is there any way to achieve this? If i get the dyanmic location stored in path variable i can achieve it. But i dont know how to achieve this.
Actually i was confused
Docmd.OutputTo acOutputQuery,query1
Above query prompts me for selecting location. But transferText doesn't? why?
As this application is stored on server. If i give a static path, its exporting in Server D:/test/ But i need this to be stored in my local. This can be done only if it prompts box for user to select the location.
View 5 Replies
View Related
Apr 4, 2006
Hello, I have two newbie questions. First, when I design a checkbox in Form design view, how do I program or script the form so it will enter a "1" value on the corresponding tables database per column. (Just like in the option group design, where a click on each option generates a specific value on the tables database).
Second, how can I design the form where it can accept text strings as input and displays them 'as is' in the corresponding tables database as a text string.
Thanks for looking. :)
View 1 Replies
View Related
