Modules & VBA :: How To Update Text Box Depending On Value

Mar 30, 2014

right I have auditing system in my database that tracks any changes made to any records. it logs it on a separate table and i show it on a continuous form.

right my problem is that I have loads of check boxes and text boxes on my main form on the form that records the main form I have a field call "new value" this is a text box but if I change a checkbox on the main form it will show -1 or 0 in the new value field on the recording form but I would like it to say yes or no I have tried the following

Code:

Private Sub New_Value_AfterUpdate()
If [New_Value].Value = -1 Then
[New_Value].Value = "yes"
End If
End Sub

this only works if I enter -1 manually but the data is entered automatically after the record is saved on the main form ...

I have also tried on enter before update I get error but now I need it to change on new entry...

View Replies


ADVERTISEMENT

Text Field Update Depending On List Box Value

Aug 19, 2005

I realize there are several threads already dedicated to this particular topic but my situation is slightly different... First, my tables are set up like so:

tblStudent(studentID,LName,FName,MI,Gender)
tblRack(rackID,roomID,studentID,rackNumber)
tblRooms(roomID,roomNumber)

There are 3 racks to a room and a total of 90 rooms. A room can hold up to 3 students. A list box holds values that I have typed in (the room numbers). I went with typing them in rather than pulling them from a query because of the way my tables are set up. If I pull from a query as the tables stand, room numbers show up 3 times, once for each rack. I want to be able to fill in text boxes with information on students assigned to the room I choose from my list box (FName, LName, etc...) I'm kind of at a loss here on how to go about getting the info that I want. Using the column property to populate text fields is probably going to be much easier but a query is needed (I think) and using a query causes room numbers to show up 3 times in my list box... Anyone want to throw me a bone?? Thanks! :)

View 2 Replies View Related

Modules & VBA :: Display Text Depending On Combo Box In Different Form

Aug 6, 2013

I want to display the text from one combo in a text box in another form based on what's selected in a second combo box. The text box is in a different form from the combo boxes.

Sub D_ComponentTypeCmb_Change()

If Me.D_ComponentNameCmb.Value = "Customise" Then
Forms!CustomComponentF!C_ComponentTxt.Value = Me.D_ComponentTypeCmb
Else
Forms!CustomComponentF!C_ComponentTxt.Value = ""
End If
End Sub

View 13 Replies View Related

Update Field Depending On Date

Dec 5, 2005

Hi

I wonder if anyone can help me out on a db i have inherited. Basically I need to add a field to a table and backfill the field with a number depending on a date field.

The new field (CallID) needs to record the order in which calls are received on a certain date (CallDate in the table). So for example the first call on 1/3/05 CallID=1, the second on 1/3/05 CallID=2. The following day CallID restarts at CallID=1.

So I'm looking for an update query which will set CallID for the several hundred existing records in the database. If anyone can help with a pointer or too, or example SQL, I would be very grateful

Cheers

View 4 Replies View Related

Modules & VBA :: Unbound Text Box To Update Value Of A Table

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

Update Values On Table 1 Depending On Dates

Sep 19, 2014

What i need:I have the attached database which includes 2 tables (Table1 and Table2) which are related One-2-Many (Table1 is the One and Table2 the Many)There is one form also with the name "Form1" which includes 11 unbound (ctr1,2,3...11) and are calculated with the values of fields [MainDate] , [Days] and [EndDays]

The Issue: As you can see in the attached sample, on Table1 i can assign the "MainDate" value , the "Days" and on field "EndDays" i can have the value of the [MainDate]+[Days].

I need to update the field "RefNo" on Table1 on depending the date range of the field [EndDays] and the controls [ctr1-11]. Specifically i need : If the Date() is in the range of eg. [EndDate] and [ctr1] i need to have the value of the first record of the Table2 (RefNo) on field "RefNo" into Table1. If the Date() is the range of [EndDate] and [ctr2] i need the second record values of the field [RefNo] into Table2 and so over..

View 1 Replies View Related

Modules & VBA :: Update Text Box From Entered Value Of Previous Form

Sep 17, 2013

I have a log in screen called frmLogIn and on there i have Unbound Combo Box cboUser and Unbound Text Box txtPWord. I also have cmdOK.

IF the user sucesfully enters his password it takes him to frmMainMenu.

On that form i have a lable called lblYouAreCurrentlyLoggedInAs and a unbound text box called txtUserName.

How do i update that txtUserName to whatever was entered in the previous form's cboUser.

View 1 Replies View Related

Modules & VBA :: How To Show A Msgbox With Text Update In Progress

Mar 20, 2014

How can I show a msgbox with the text "Update in progress! Please wait a while", when I execute the following make table querye on form load?

Code:
Private Sub Form_Load()
'Turns the Access warning messages off
DoCmd.SetWarnings False
DoCmd.OpenQuery "q_tblUdtrk2"
'Turns the Access warning messages back on
DoCmd.SetWarnings True

[code]...

View 5 Replies View Related

Alter Text Colour Depending On Value

May 24, 2006

Hi,

I am building a stock control database. I have a form called [products]. On this form are two fields. One called [ProdReorder], the other [UnitsOnHand].

[UnitsOnHand] is displayed form a subform called [ProductsSubform].

What I want to know is: What code would I enter (& where) so if the [UnitsOnHand] value is less than the [ProdReorder] value it will display the value in red?

Eg: Reorder value is 5
I have 10 motors on stock (UnitsOnHand) = Text is black.
If I have 4 motors on stock = Text is Red.

How can this be done? any advice welcome. PS. my vba skills are weak.

View 2 Replies View Related

Modules & VBA :: Match Partial Text String And Update Record

Jun 13, 2013

I am provided a spreadsheet that contains multiple rows of similar data; each row/record represents a different stage in the process of financial transactions (requisition, purchase order, & voucher payment). Each financial transaction has these three records, with the amounts in one of three columns (pre-encumbrance, encumbrance, and expense), depending on the process.

What I am really after is the fuller, more detailed description that is apparently only available for the two records I don't want to import into the database (which is tracking only expenses and not the other two stages of the process). There is apparently no way to cross-reference these multiple rows due to the way the original database was designed (and we apparently have no control over this).

After importing the spreadsheet into Access, I would like to match the partial text string (truncated description) to the full description in another record, and update the record with the truncated description to the full description. To make mattes more complicated, I will also have to match values in the "pre-enc" or "enc" field with the "exp" field across these three records to make sure the correct descriptions are being matched because the truncated description will match multiple distinct records with the longer description.

TypeDescrPreEncEncExp
VOUJsmith-Instructor, 12/16/13$0.00$0.00$45.00
POJSmith-Instructor, 12/16/13, Course1, Parking($45.00)$0.00$0.00
REQJSmith-Instructor, 12/16/13, Course1, Parking$0.00$45.00$0.00
VOUJsmith-Instructor, 12/16/13$0.00$0.00$221.13
POJSmith-Instructor, 12/16/13, Course1, Lodging($221.13)$0.00$0.00
REQJSmith-Instructor, 12/16/13, Course1, Lodging$0.00$221.13$0.00

View 5 Replies View Related

Changing Rowsource In A Combo Box Depending On The Text In Another

Jul 10, 2007

Hi all,
I am trying to have the rowsource change on a "subcategory" combo box depending on what the "category" combo box says.

I added an event procedure to the "Category" combo box which changes the Row Source in the subcategory combo box to something else. I'm not sure that I did this right as if I close the database and reopen it, what I selected in the subcategory combobox is gone and it is blank. Any ideas? Here is my simple, likely incorrect event procedure:

Private Sub Category_Change()

If Category.Text = "Rare Books" Then
SubCat.RowSource = "scRareBooks"

End If

If Category.Text = "Legal Documents" Then
SubCat.RowSource = "scLegalDocuments"

End If


End Sub

Thanks!

View 5 Replies View Related

Editing A Specific Text Box Depending On A Number

May 2, 2013

I want to edit a specific textbox depending on a number which is dependent on a number of things and varies each time the form is run.For example, if the number is 0 I want to edit tb0.value. If it's 1 I want to edit tb1.value etc. I have specifically labelled my text boxes in this way.I thought something like this would work

textBoxName = "tb" & number
textBoxName.value = "this is the value I want to enter".

However, this does not work and it produces an error saying 'Invalid Qualifier'.

View 3 Replies View Related

Queries :: Append Query - Automatically Update Tables Depending On Value Of Yes / No Field

Feb 25, 2014

I am giving two tables and I need to create a macro that automatically updates these tables depending on the value of a Yes/No field. If it's No, it's in the 1st table TableOne, if it's Yes it automatically updates to TableTwo.

So, the best way I saw to go about is to set up an append query and then create a macro that runs it

So my tables have the values FirstName, LastName and isValid (more but keeping it short)

So for my append query, I put TableTwo in the pop up I get. Then, where it asks for the field I put it

Field:FirstName
Table:TableOne
AppendTo:[TableTwo].[FirstName]
Criteria:[TableOne].[isValid] = 1

I do this for all (it was autocompleted except the Criteria field). I tried to keep Criteria with data only for isValid but that didn't work. I wrote it for all the field names, still didn't work. Whenever I click run it says it'll append 0 rows.

View 5 Replies View Related

Auto Colour Change Depending On Text Selected

May 5, 2005

:) Hello

Is it possible to change the colour of the text in a table. For example the word "URGENT" is selected from a combo box, and when viewed in the table it appears red.

Thanks inancipiation

Woozie

View 1 Replies View Related

Forms :: Changing Border Of Text Box Depending On Value Of Field

Jan 9, 2014

I have a box with age in called [agecalc]. I want to change the border of the box to red to indicate they are a Juvenile if under the age of 17.I already have some code to write the text, I just need to change the border of this text box called agebox

=IIf([agecalc]<=17,"Juvenile!!")

View 1 Replies View Related

Reports :: How To Make Label Visible Depending On Text Box Value

Jul 27, 2014

I have a report that displays on a continuous style report. What courses the employee have been on and when they expire

right I have field call expirydate and another call dayover showing the number of days till that course has expired also I have made a label called Expired1

now what I'm trying to do.....

if the expirydate has passed I want the expired1 label to be visible and dayover field to become invisible

I have tried

Code:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Expirydate < Date Then
Me.expired1.Visible = True
Me.DaysOver.Visible = False
End If
If Me.Expirydate > Date Then
Me.expired1.Value = False
Me.DaysOver.Value = True
End If

I have also tried the code on current event on the report

now my problem if one of the course has expired it will show the label called Expired1 but on all the records but I only want it to display on the record that has expired and leave the daysover text box visible if course has not expired

View 7 Replies View Related

Forms :: Text Box Background Color Depending On Its Value In Continuous Form

Jul 13, 2013

In Access 2007 (or 2010 , 2013), in a continuous form, I want to change the background colour of a text box depending on its value. Obviously, for each record, the color can be different.

View 1 Replies View Related

Changing Font Size Of Labels Depending On Text Length

Jul 28, 2014

I have a report that prints labels (similar to avery labels) which pulls data from a query. These labels are all unique and vary in length. Due to the length variance, I want the font size to get smaller for labels with more characters. I want the text to go down to another line when necessary.

In my report under the OnPage Event Procedure I wrote this:

Private Sub Report_Page()
If Len(Text2) > 20 Then Text2.FontSize = 8
If Len(Text2) > 10 And Len(Text2) < 21 Then Text2.FontSize = 10
If Len(Text2) < 11 Then Text2.FontSize = 14
End Sub

This works to some degree but the problem is that once there is a longer label, all of the proceeding labels are resized & the longer label that should have been resized was not.

Is there another place I should be writing this code? I looked under events for the textbox but there doesn't seem to be anything that would work since none of them would trigger when printing labels

View 3 Replies View Related

Modules & VBA :: Email Out Depending On The Dates

Mar 21, 2014

Trying to send out some reminder E mails using some dates that I've set up in text boxes but can't get it to work.

I've started out simple to get it working as I'm not familar with VBA

Code:
If Me![Planned Finish] <= [2days] And Me![Final Reminder] Is Null Then
MsgBox "YES", vbOKOnly

View 4 Replies View Related

Modules & VBA :: Append Query Depending On Check Box

May 5, 2015

I'm after a piece of code which works as described below.

I have a save button on a form

I have a append query ready to run.

When the save button is clicked, I want the code to see if a checkbox is true or not and if its true I want the append query to run if its not then I want the form to save and nothing else.

View 1 Replies View Related

Modules & VBA :: Export Access Table To Excel Depending On Name

Sep 15, 2014

I have a table (tbloutput) which has details of customers and which staff they have been contacted by.

What i want to do is, export the details from this table into an excel sheet using a template that i have set.

What i want to do is create multiple excel outputs using this template depending on the name of the staff. So each staff will have a seperate workbook which was created using that template. And i also want the new workbook to be named for that staff member.

So in short

Table exported to excel workbook and excel workbook named : Blabla staffname.xlsm

View 1 Replies View Related

Modules & VBA :: Conditional Form Formatting Depending On Field

Jul 2, 2013

I created a form that applies conditional formats depending on a field. It works fine, until you enter data into one of the conditionally formatted fields, then all hell breaks loose. Conditional formats totally go away and the cells go to #error.

View 3 Replies View Related

Modules & VBA :: Filter List Box With Combo Box Depending On Check Box

Jun 10, 2013

I have a form wich includes listbox of employees. When I click on them, it shows his or her data (date of birth,address,etc...). For every employee there are also three diferent checkboxes - if he is regularly employed, temporaly employed or student.So now what I need is to filter listbox of employees - only student or only regular or only temporar or all.I was wondering if I can do that with combobox, but I really dont know how. I am prety new to VBA.

View 13 Replies View Related

Modules & VBA :: Show Pop Up Message Depending On 2 Fields Value Differences

Oct 7, 2014

I have 2 fields on my form service interval combo box and vehicle mileage text box I m trying to create a pop up message on there values

if service interval is 12,000 and the mileage entered in the vehicle mileage is over 12,000 then show pop up message.

this works but I'm sure its wrong don't no why I need the -1 anyways here's what I have

Code:
If Me.Vehicle_Mileage.Value > Me.Cboserviceinterval.Column(1) - 1 Then
msgbox "test"
end if

Now my problem what I can't get it to work . I still want the pop up message, if say the service interval is 12,000 and mileage entered in the vehicle mileage is 1,000 miles below the service interval I still want the same pop message but if 2,000 or more below service interval then no pop up message .

I have tried a number of sequences with no avail....

View 3 Replies View Related

Modules & VBA :: Change Which Row In Combobox Is Visible Depending On Event

May 21, 2015

I have a combo box with three columns, the first one is the bound one, the second is text in English, and the third is text in Spanish. Currently when the form is open, both the English and Spanish texts columns are visible. What I would like to do is set up a command button on a different form that will open the form with just the English showing in the combo boxes, and another button for Spanish. I've tried the following code which opens the form, but the combo box is disabled altogether.

DoCmd.OpenForm "frmEditar", acNormal, "", "", , acNormal
DoCmd.SetProperty "niv_gest", acPropertyColumnWidths, "0;1;1"

What am I missing?

View 5 Replies View Related

Modules & VBA :: Bulk Update Of Hyperlink Text To Display Not Hyperlink

May 29, 2014

i have thousands of data records with hyperlinks that are correct. Each data record shows the actual link (google.com, foxnews.com, espn.com, etc.). However, i want to change all of the records to just say "link" instead of saying espn.com, etc. How can i do this automatically without having to manually right click, edit, and changing the text to display?

View 6 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved