Modules & VBA :: Change Multiple Records On Continuous Form
Mar 5, 2014
I have a form (Form4) which has a a list box (list11) that allows multi select. When I select on the records I need I hit a button that opens a form up with the selected records. This form is a continuous form. I have an unbound combo box (Combo55). Its values come from a specific table. I want to hit a button and change the field "Assigned" on all the records showing to the value that I selected in Combo55.
The problem is it only changes the value of the currently selected record. How Do I get it to change the value of all records that are showing?
I am only testing this idea with default field names. Before I implement the database I have to get a working model and present it. So I am building this and naming at the moment isnt important.
View Replies
ADVERTISEMENT
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
Jun 12, 2013
I have a form listing tasks to which I make personnel assignments with a multi-value list field type. It takes some time to select from 15-25 employees on the list for each task, especially considering that small groups of employees will be assigned to the same selection of tasks.
What I want to do is select multiple records with the mouse, then click a command button opening a form in dialog mode with the selection list. The user then clicks to make his selections and clicks ok, which then updates the multi-select field for the selected records.
View 1 Replies
View Related
Oct 23, 2013
How to Change focus to another form and show only certain records...
View 1 Replies
View Related
Jul 23, 2013
I want to use buttons on a form to change the sort order on a continuous form. In the buttons click event I am using a public function (named Sort_1) to change the sort order. The first element of the event call is the name of a generic query (named Sort_1_Query1) and the query field to sort (LAST_NAME OR FRIST_NAME, depending on the button.)This is the Click Statement.
=Sort_1("Sort_1_Query1","LAST_NAME")
This is the Public Function
Public Function Sort_1(SortName As String, FieldName1 As String)
DoCmd.ApplyFilter SortName, FieldName1 & "between 'A' and 'Z'"
End Function
I think the problem is in the use of quotation marks or trying to pass the query field name to the Do Command or the use of an ampersand.
View 4 Replies
View Related
May 1, 2014
I have a continuous form based on a orders table and a details sub form.I list all the records in a continuos form in date of order.i need to change the colour of a single record based on the condition of a tick box on the original orders form
View 1 Replies
View Related
Jul 28, 2014
in a continuous form i want to click on one record and have the one field change the background colour to highlight it. When I use the code: Field. BackColor = vbYellow it changes the background on all the records. Is there a code to say only for the record with focus?
View 1 Replies
View Related
Mar 22, 2013
One shows my form with the Transporters Subform with 3 entries, and 1 entry.The three line items that say "Transporter" are in one subform. I used this code
Code:
Private Sub Form_Current()
If Me.RecordsetClone.RecordCount >= 3 Then
Me.AllowAdditions = False
End If
End Sub
to limit the number of records I can add to 3 or less.My issue is that I lost the blank text box that allows you to add another record. So, if I only have one Transporter listed, there's no box to let me add a second or third.I have the following properties for the Transporters Subform set to "Yes":
Data Entry
Allow Additions
Allow Deletions
Allow Edits
Allow Filters
View 3 Replies
View Related
Aug 15, 2014
I am using the following code to check for duplicate tickets when importing multiple records into a datasheet view form by using the paste append function.
Code:
Private Sub Ticket_Number_BeforeUpdate(Cancel As Integer)
DoCmd.SetWarnings False
If DLookup("Ticket_Number", "Record_Store", "Ticket_Number= '" & Me.Ticket_Number.Value & "'") > 0 Then
Cancel = True
MsgBox "There were import errors, please open View Import Errors above."
End If
End Sub
The form is used to insert multiple records into the database at a single time.
That codes works to check for duplicates. And if there are none there are no popup messages.
If there are duplicates though it gives a popup for every single Ticket_Number that is a duplicate.
I am wondering if there is a way for it to give only a single popup once it completes checking all the records to be imported for duplicates.
View 14 Replies
View Related
Nov 10, 2014
I have a subform in Continuous Records format (records displayed are determined by controls on the parent). I would like to create a button that prepares an email and copies the contents of that subform in to the body of an email message.
The email. I have a method to create a new email, set To, CC, Subject and even Message Text.
Code:
strTo = txtName
strCC = txtManager
strSubject = "Something"
strMessage = "Hi, please find below list of details from X Y and Z" & vbnewline & vbnewline
That all works. Thats fine
The Records: I have found ways to have them added as an attachment, either the the SendObject and OutputTo method but I would like the list of records to be converted to a text string so I can include it within my strMessage variable, not include it as an attachment.
Code:
strMessage = strMessage & "Subform Records to go here"...
View 7 Replies
View Related
Nov 7, 2014
I have a table with 2 fields. One field is hundreds of hyperlink paths to folders on my computer. These hyperlinks all have their "Texts to Display:" the same as the path to the folder. In my second field I have the desired "Texts to Display:" for Field 1.
As far as I know you can only edit the "Texts to Display:" of hyperlinks 1 by 1. I was wondering if there is a way for me to replace all the display texts with the text located in field 2 all at once? OR if I can add the hyperlink path from field 1 to all the display texts in field 2.
View 9 Replies
View Related
Feb 12, 2005
I have a table and a form with continuous records (218 items).
In a different table I have the status of these 218 items.
In design view of the form I have added a label at the end of the record.
I want to use the DMax to set the caption of that label to the status of the particular item, but it sets the status of all 218 items to the status of item 1.
How do I get it to distinguish between the records.
I guess somehow the record source for that label must be changed to the status table after form has loaded, and then run through all records and update the label caption.
How?!?
View 4 Replies
View Related
Feb 13, 2006
I have a continuous form that opens all of the records for a specific user on a specific date and displays them in a continuous form. Each record requires an approval check box be marked before it can be processed for reporting. I want the approver to be able to click a button and mark all of the records displayed at one time. Currently my button will only mark the current record. How to I select all of the records?
View 3 Replies
View Related
Nov 9, 2006
Hello All,
I have a continuous form that I want to sort/re-sort based on clicking a button in the header.
One button is for sorting the records by Project Name and the other is sorting by Project Tracking Code.
The form is based on an SQL Select statement.
Here is the click event code for the Project Name button:
Private Sub Command86_Click()
Dim ctlFrm As Form
Forms![Project - Maintain All Projects].OrderBy = ProjectNm
Set ctlFrm = Forms![Project - Maintain All Projects]
ctlFrm.Requery
End Sub
But this is not working. Any ideas?
Thanks.
View 2 Replies
View Related
Oct 27, 2004
I have a continuous subform (frmLabor) that has an unbound box in the footer. This unbound box totals all the numbers in the Total1 field using DSum. However, when I change the record in the main form (frmCustomers), that number still stays there, and when I add records (service hours) to the subform under a new record (customer) in the outer form, those numbers sum. I understand what's wrong, I just don't know how to fix it. How do I get it to calculate ONLY the records (service hours) in the subform per record (customer) in the outer form?
-Jason
View 11 Replies
View Related
Nov 29, 2005
Hello, i have a question,
I have Main form, and Subform (which is continuous form). Now when i open main form (or even subform itself) i see continuous form, and two empty rows.Whenever i fill first row and press on second, third row appears, and so on.
Can i set somewhere to show me only 1 empty row on this continuous form, and when i fill it, second row appears, and so on. E.g. is there any options for customizing how many empty rows are displayed and the begining of continuous form?
And how "saving of records" work here, because if i fill one row, it won't save anything....it will save it only when i press on other row (when third row creates)
Thanks for your help
View 1 Replies
View Related
Aug 17, 2007
I have a continuous form bound to a recordset that has the following fields:
- Ignore: Boolean
- OverTime: Boolean
- AnnualLeave:Boolean
-ExtraValue: Double
The Ignore, OverTime, AnnualLeave fields are bound to a I, O, A checkboxes respectively in this continuous form. The ExtraValue bound to a EV textbox in this form.
What I want is that when the user check O or A checkboxes, the EV textbox is enabled only for this form record NOT all the form records, when the user check I checkbox, the EV textbox is disabled only for this from record, NOT all the form records.
The problem is that whenver the user check, all the form records EV text box is affected by this action.
Is there any way to achieve this?
View 2 Replies
View Related
Mar 7, 2006
I've been trying to get my head round this one , but i'm just to thick to get it.
I have a continuous form that lists all items at a certain location.
The user selects a record by clicking on the record selector and then clicks on a command button with this code:
stDocName = "DivingInspectionCert"
stLinkCriteria = ("EquipmentID = " & Me!EquipmentID)
DoCmd.OpenForm stDocName, , , stLinkCriteria
The user then enters inspection details in to the "DivingInspectionCert" form which i want to store in a table (DivingCert) which will relate to the item. On completion of this form the user then clicks on a command button with this code:
DoCmd.RunCommand acCmdSaveRecord
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "There are no items to Print", vbInformation, "EquiTrac"
End
Else
DoCmd.OpenReport "DivingInspectionRpt", , , ("EquipmentID = " & Me!EquipmentID)
DoCmd.Close
When i click on this button, the report doesn't print and i get a message "No current record".
The inspection details are not stored in the table.
I did have the forms RecordSource based on the table "DivingCert" but that didn't work and i have just tried a query but it is still not working.
Would be much appreciated if you can help me.
Thank you
View 3 Replies
View Related
Oct 15, 2012
If I want to arrange records sequentially in a report I would do the following:
From the Toolbox (Access 1 - 2003) or the Controls group of the Design ribbon (Access 2007 and later), add a text box for displaying the number.
Select the text box, and in the Properties Window, set these properties:
Control Source =1 Running Sum Over Group...
How can I sequentially arrange records on a continuous form?
View 3 Replies
View Related
Jun 11, 2013
I have multiple reports that use similar IIF statements as the controlsource for four textboxes. Naturally, I don't want to have to update twelve controlsources if any of the calculations change, so I thought I'd make this a public function. However, I don't know how to pass along multiple textboxes as variables. Here's what I have so far:
Code:
Option Compare Database
Public Function txtColor(ByRef textbox As Control)
Dim str1, str2, str3, str4 As String
'The IIf statement is simplified for this example. It's not important.
str1 = "=IIf(IsNull([Inquiry start date]),'W',IIf([txtInquiry]<1 And IsNull([Inquiry end date]),'R'))"
[Code] ....
And this is in the report (where ??? is what I'm asking about)
Code:
Private Sub Report_Load()
Call txtColor(???)
End Sub
The error I get is "Runtime 424 Object Required"
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
Dec 12, 2013
I want to change certain records of a query or table.Here I tried to change this in a query. Something is missing in my code.
Code:
Public Sub TNS_QUERY()
Dim strSQL As String
Dim x As Double
Dim qdf As QueryDef
strSQL = "SELECT TEST_TNS.[TestID],TEST_TNS.[Division],TEST_TNS.[Customer_Split],SUM([TOTAL_NET_SALES]) as [TNS] " & _
" FROM TEST_TNS " & _
" GROUP BY TEST_TNS.TestID,TEST_TNS.[Division],TEST_TNS.[Customer_Split]"
[code]....
View 7 Replies
View Related
Jan 1, 2015
Is there any way to highlight duplicates across a number of records on a continuous form (conditional formatting I presume)? My continuous form is filtered on load to show only the records relating to the specified date (specified before opening the form), and there is one field that I would like to highlight if there is a duplicate value in the same field on another record on the form. Is this possible?
View 1 Replies
View Related
Sep 8, 2014
I have a log of items I currently inventory. When you click on an item, it opens another form with a sub-form that lists the history of changes for said item in a continuous form display.
What I want to be able to do is when that form is opened, the sub-form will highlight the last entry (either bold it, or change the background).
View 8 Replies
View Related
Mar 31, 2014
I have a form that is being used for sample submission. Ideally, the user will be able to put in some information (3 or 4 fields) and the number of samples that they're taking, click the arrow and it will insert that number of samples into a temporary table that is then displayed on a continuous form. From there, they can edit samples, add more samples, and generate a report to submit to the genotyping group. Once their sample list is final, I will append it to the master list and clear the temporary table.
I've got the basics working. A looped "INSERT INTO" using a counter inserts the relevant information. I cannot, however, seem to get the numbering field to work.
Ultimately, the numbers need to look something like MySample-001, where MySample would be one of the other fields. Incrementing the 001 is the problem. In another situation in the database, I can successfully use DMax+1 to assign a single number on a single form, but I can't get it to increment the sample numbers.
Ideally, I'd like it to happen when the form is generated. However, I'm also open to having them assigned when the sample list is finalized, before inserting into master table.
View 8 Replies
View Related
Jul 22, 2014
In my database, I have a continuous form with a Name, a Date and a Yes/No field.
When the form opens, I want to look at the date of every record on the form and show a message box if it is before the current day.
The code I have is this;
Private Sub Form_Load()
With Me.RecordsetClone
While Not .EOF
If Me.Date1 < Date Then
MsgBox "" & Me.Person & ""
End If
If Not .EOF Then .MoveNext
Wend
End With
End Sub
However, it loops just the first record the amount of times there is of records (i.e., it will only show the first person's name in the message box, and will show 3 times if there are 3 records).
View 7 Replies
View Related
