Modules & VBA :: Set AllowAdditions Based On Textbox Value?
Jun 12, 2014
I've got a main form (mainform1) and a subform (subform1). On the mainform, I have a listbox that is limits the user to choosing only 1 choice. The selected choice has an accompanied value - 1 through 6 - that is populated in a hidden textbox (txt1).
What I'm trying to do is to limit the number of records the user is allowed to populate based on the value in the textbox. I'm unable to reference the textbox value for some reason and i'm stuck. However, my code works when i enter an integer value, I.E.
Dim rst as object
Set rst = Me.RecordsetClone
If rst.RecordCount >= 2 Then
Me.AllowAdditions = False
The code that i currently got going to reference the textbox that doesn't work is
If rst.RecordCount >= Me.Parent!txt1 Then
Me.AllowAdditions = False
View Replies
ADVERTISEMENT
Apr 11, 2014
I have a subform that displays doubles in a textbox as fixed with 4 decimal places as default. I have been trying to change the number of decimal places based on the value in a textbox on the main form. I have tried this:
Code:
Forms![Main Form]![Holder_subform].Form![Final PCT].[DecimalPlaces] = CByte(Forms![Main Form].Numdecs)
where [Final PCT] is the textbox on the subform containing the decimal number and Numdecs is the textbox on the main form containing the number of decimals I want to use. I want to implement this Form_Current sub.
View 2 Replies
View Related
Apr 21, 2014
My table:
tblHeatTreatment
- HeatTreatmentID - PK
- HeatTreatmentDesc - Text
- HeatTreatmentDetails - Memo
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
[Code]....
When I run the code I get an error:
Quote:
Run-time error '-2147352567 (80020009)':
The Value you entered isn't valid for this field
When I debug, it highlights:
Code:
Me.txtHTDetails = myRecordSet.Fields
View 3 Replies
View Related
Mar 27, 2006
Hi,
I have a form "A" with a subform "B". The Subform allowadditions is set to no, however, I would like the user to click a button which is located on form "A if they like to add a record to the subform "B" but I keep getting an error!
The code for the button on form a is the following:
Forms!a!B.AllowAdditions = True
Thank you.
View 2 Replies
View Related
Mar 18, 2005
Dear All:
I have created a form using access 2000. So far, this form already has data and dates in a combox in this format: mm/dd/yyyy.
In the AfterUpdate of the date combobox, I did this:
If graduation_date = #2/1/2004# then
Text_Graduation_date = "dated this first day of february two thousand four."
End If
End Sub
In addition, I have defined many other dates as well using the code above. It works well when I choose the date form the combobox, the other textbox populates, but there are so many more dates in the combo!
Is there a way to auto-populate the textbox with the appropriate text as I scroll through the form?
Thanks,
Dion
View 5 Replies
View Related
Nov 1, 2004
Hi
I have a subform with several records entered. When a particular entry is made in the subform
eg. chocolatebiscuit
I want the subform to not allow any more entries - records in that particular subform
Is there a easy way to do this?
I have tried to do this by saying
Me.Form.allowadditions = false
Unfortunately this works on the whole form
and stops the next subform - belonging to the next main record
from adding a new record.
How do I restrict the new records in A particular subform?
I tried
Me.Form.allowadditions = true
on entering the subform
but it doesnt work every time.
Also i put on enter
if not chocolatebiscuit then
allow entries
but for new records it takes the last entry in the subform
which could be two records back in the main form
says yes there is a chocolatebiscuit
and will not allow a new record.
View 3 Replies
View Related
Jul 17, 2005
Hi,
Is it possible to add a new record thorough VBA (for a command button) with the AllowAdditions property set to false?
I only want new records created if this command button is pressed.
TIA!
View 8 Replies
View Related
Mar 16, 2006
Hi.
I am sure this is simple......!
I would like a textbox that is based on whatever is set in the Application Title in the startup function.
I have seen threads for changing the AppTitle, but not just for a textbox base on AppTitle.
Can anyone help?
Many Thanks.
Frank.
View 2 Replies
View Related
Jan 11, 2008
Hi,
can anyone help? i need to have a textbox show a value from a table based on a combo box selection.
example:
combo box selects part i.e. laminate and the text box shows the price.
any help greatly appreciated.
regs,
NS
View 4 Replies
View Related
Aug 3, 2005
I have a data entry form for Table-A. After I enter an account on the form, I use the account to get a value from a different table and put that value in another combobox. I tried using a SetValue to fill the combobox. I put the SELECT statement from a query in the Expression parameter. But Access doesn't accept that Expression and produces an error message about "Forms" not being a field. This has got to be a common action in forms, so there must be a better way to do this.
View 2 Replies
View Related
Jan 19, 2005
Heeelo all:
I have a from based on a query. This form has a textbox called CUM_GPA which contains numbers in this format: x.xxx
In the After_update of CUM_GPA is this code:
Private Sub CUM_GPA_AfterUpdate()
If Division = "GRADUATE" Then
Honors2 = ""
ElseIf Division = "UNDERGRADUATE" And CUM_GPA < 3.2 Then
Honors2 = ""
ElseIf CUM_GPA >= 3.2 And CUM_GPA < 3.5 Then
Honors2 = "*"
ElseIf CUM_GPA >= 3.5 And CUM_GPA < 3.8 Then
Honors2 = "**"
ElseIf CUM_GPA >= 3.8 Then
Honors2 = "***"
End If
If Division = "GRADUATE" And School = "SCHOOL OF EDUCATION" And CUM_GPA >= 3.7 Then
Honors2 = "+"
End If
end sub
The textbox called Honors2 returns nothing. Any help is greatly appreciated.
Regards,
Dee
View 1 Replies
View Related
Aug 16, 2007
Hello
I'd like to create a query like this:
select table.column, table.column, table.column
from table
where table.column = textboxvalue
How can I do this?
View 2 Replies
View Related
Jan 19, 2006
I choose a ‘Year’ from a combo box. Why doesn’t the data in my textbox update? (It’s a count of records for that year)
View 2 Replies
View Related
Sep 28, 2006
basically i have a textbox called
'mytext'
when my user types t1 in that textbox, and tabs to the next field, i want the value LHR - T1 to be placed inside 'mytext'
how can i do this?
View 2 Replies
View Related
Aug 29, 2006
I have 44 checkboxes, each has a textbox next to it. What I want is when the user selects a checkbox, the textbox next to it will be enabled. Also, when the user unselect a checkbox, the textbox next to it will be disabled and any value entered is cleared.
Another way is whenever the user enters a value in a textbox, the checkbox associate with it is selected and vice versa.
View 3 Replies
View Related
Apr 26, 2005
Dear All:
I have a form with three items:a checkbox called "Check231", a textbox called "text921" and another textbox called "text762".
What I wish to do is: Enter text in textbox921, which stays the same as I scroll through each record. Then If checkbox check231 is checked, it displays text from textbox921 to textbox762. Textbox762 is bounded to the form.
Any ideas on how to get started?
Many thanks,
Dion
View 1 Replies
View Related
Mar 3, 2014
Code:
Private Sub Check253_AfterUpdate()
If Me.Check253 = -1 Then
Me.Text254 = DLookup("[Lot]", "[tblAutoGen]", "[Inuse] = -1")
Me.Text256 = DLookup("[Exp]", "[tblAutoGen]", "[Inuse] = -1")
Me.Text258 = DLookup("[Lot]", "[tblEthanol]", "[Inuse] = -1")
[Code] ....
I am using the code above on my form and it seems to be working. My question is there a way to populate a textbox (Text255) based off a login?
For example, lets say JSmith is loged in to the computer. Is there a way that JS could populate Text255? If then say JCarter is logged on, the JC populates Text255.
View 1 Replies
View Related
May 1, 2015
I have a userform that has 4 textboxes and a command button.
The user types in box1 a Rack, in box2 a shelf, in box3 a place and in box4 a shelf.
The user types in Rack textbox 18
The user types in Bay textbox 4
The user types in Shelf textbox 2
The user types in Place textbox 3
I then would like to create that amount of records in a new Temp table.
The attached file shows what the results of the output should be.
View 8 Replies
View Related
Feb 8, 2008
I have a textbox that is set equal to countitem field of a query. The query is based on a subform that exists on the same form. I am trying to update the textbox every time the number goes up or down on the query. Whenever I open my form the number for this textbox is updated. Can I update this field without having to open the form everytime?
View 1 Replies
View Related
Mar 5, 2014
I try to develop an access 2010 Forms that contains 1 or 2 charts. So my problem is, in my form I have 1 combobox and 5 unbound textbox. Inside Event OnChange combobox, there is function DCount that will setup value to the 5 unbound textbox. Until this point, the 5 unbound textbox is have its value.
Now I would like to create a chart that value are based on the 5 unbound text. How can i accomplish this ? i see in many articles, a chart row source is link to a cross tab query.
View 4 Replies
View Related
Jun 5, 2015
I have a form that has 3 combo boxes and a text box that I want to be a lookup. I have a little experience with DLookUp, but I do not think that will work here. The three combo boxes are linked to queries, and Tables. The first combo box is for choosing "Precious" or "Base" metals. The second combo box is filtered from the first and displays the "Metal Names". The third combo box is to choose a "Metal Market". There are currently four options for that. I want the text box to display the "Metal Market Price" based on the second and third combo box selections.
Here is a screenshot of the table with all of the metals and their market prices filled in with dummy values for now:
metals screenshot 1.PNG
Metals screenshot 2.PNG
Here is a screenshot of the relevant Form: Metals form screenshot.PNG
Here is a screenshot of the Table that relates to the relevant form: Metals table design.PNG
Here is a screenshot of the Metal Market table that the Query is based on: Metal Market Table.PNG
View 14 Replies
View Related
Jun 17, 2013
I am creating a database for an annual golf tournament. Part of this is to allocate players to play off together at certain times.
I have a form bound to a table called tblteeofftimes. This form has five fields (continuous form) - four of which are comboboxes whereby user selects each player for the record (who will play together). The other textbox has the tee off time. the first tee off time will be allocated by user eg 7:00 am.
My problem is I need to update each ensuing record with a new time slot at 7 minute intervals. Rather than have the user populate the form themselves I would prefer this be done authomatically as the user moves onto the next record.
View 12 Replies
View Related
Aug 12, 2013
I'm trying to have a button in a form that, when clicked, will time stamp a text box already formatted for time. But once the text box is filled with a time, the button then disables itself for that record.
If I switch to another record where the text box is empty, the button will enable itself without closing the form, but obviously re-disable itself if I go to a record the text box is filled.
I'm sure I could use conditional formatting for it, but I don't think I'm going about it the right way. I already got a basic button built to timestamp.
View 5 Replies
View Related
Sep 2, 2014
I have a "Status" combobox, I'd like the "Date Case Closed" field to auto fill today's date when "Status" combobox = Closed. The way I know how to do this is by using an IIf with Date() function, but, if I do that, the date is gonna keep changing everyday. Do I have options to do this?
View 3 Replies
View Related
Apr 20, 2015
Is there a way in access, through vba or any other means, which would allow me to either enable or disable criteria in a query based on the value of textbox??
Like i have a query that displays bookings customer has made between two dates, so i made a query and in the starting and ending date fields i get the value from form. In case if the use does not enter ending date, i would like to run the query with starting date only that displays booking made after the starting date.
Currently the starting date criteria is set to a textbox of form, and so is ending date. So if customer selects 1st April 2015 as starting date and 30th April 2015 as ending date the query should display the bookings between 1st and 30th of April. And if the user enters only 1st April in starting date it should display bookings starting from 1st April onward.
View 3 Replies
View Related
May 24, 2013
I am fairly new to Access and trying to populate a text box based on whether other textboxes throughout the form contain a date or are null, so as I update the progress of work the textbox that I have located in the header will indicate the status of work flow, this is what I thought might work but I seem to be doing something wrong.
Code:
Private Sub Form_AfterUpdate()
Status = IIf([Date_Raised] Is Null, "New", "")
Status = IIf([Date_Raised] Is Not Null, "Open", "")
Status = IIf([Approved_Date] Is Not Null, "Approved", "")
Status = IIf([Actioned_Date] Is Not Null, "Actioned", "")
Status = IIf([Tested_Date] Is Not Null, "Tested", "")
Status = IIf([Closed_Date] Is Not Null, "Closed", "")
End Sub
View 2 Replies
View Related
