Ok... we're looking to take some values from our current form (hence the first 4 lines) and put them into some form elements on the new form... the form opens (the OpenForm command's going through), but when we reach the last line we get a "cannot find form XXX" error... so how do we change the elements on the new form?
Hi all! This is kind of a philosophical question :)
I’m doing some changes to a “CRM”-database, and need to make a function that changes values in several records in one operation. The problem is, I have now idea on how to approach this problem.
One example; I have made a simple invoice function in my db, which works well. But now I send a lot more invoices then when I made the function. I’ve made a form, which prints the invoices, and I can print several in one “operation”. How can I, in the same operation, also change the status of the invoice record so that it says “Printed”?
If you have any suggestions on the method e.t.c.? Thank you! (I'm using Access 2000)
I have a query that looks through a table and shows me any calls that have a status of either 'O' 'or 'C'. What I would like to have in the query result is the O or C replaced with the words Open or Closed. Then when my count will make alot more sense rather than having O 29 etc.
I have had a look through the forums on the net and I am convinced this question has been asked before, but I am struggling to find the key word to search for
I have a form with a sub, and that sub has a sub. I'm on the first sub trying to change the rowsource of a combo box on the second sub, and none of the following want to work.
Access 2010. I inherited a database that I need to copy and get it ready for next year's data. There are several places in the various tables where the default value on a field is 2013. I need to change to 2014. Any vba code or macro that I can do this without opening all the tables to change the values?
Objective to have a report generated from a query (Based on a Storage Table) in the record-source however need to make adjustments to each record based on the query output ie User Id is outputted as number as it needs to be for everything else but on the report loading needs to run an sql query on that ID number to get the name and then replace that value with the name and so on for each record and each appropriate column
Problem:I can either change All of the records outputted with the first records info or nothing at all. i need this process to occur individually on each outputted record
I am working on a school database, today I am working for fee collection form and I am facing trouble.In attachment At the top right area the hidden field I would like here changes according to selecting Fee Type under Fee Detail. I want to achieve this,
If feetype is ABF then Hidden field = 1500110 If feetype is ASF then Hidden field = 1500120 If feetype is EXF then Hidden field = 1500130 If feetype is MTF then Hidden field = 1500140 If feetype is RBF then Hidden field = 1500150
How I can perform this ?
Table structure is (tblstudents) Contain students data (tblFee) Contain, Student Id linked with student table, month, year, amount, date, narratives and FeeType that looup values from FeeType tbl, this hidden field also in tbl fee.
The codes that are 1500100,1500120,1500130
These are necessary for GL entries that's why I must have it on my form. I had as well apply method of Default value but in that case I only present only a single value, but I want that in hidden field values take changes according to the fee type.
How to control the below message to something like this through VBA:
"The Job: " & JobNumber & " already exists in the table." or to open an alternate form where they can make the change. Allowing duplicates is not appropriate for what I am trying to accomplish. I just want a friendly way of rerouting a user to understandable answer.
instead of this:
"The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again."
I'm trying to sort and filter a continuous form. I want to sort by descending and ascending, but I also want to have a combo box for filtering. For example, there a combo box for sorting with Value List as the RowSourceType, the list would be "Ascending" and "Descending", and there should be another combo box to choose the field to be sorted with RowSourceType as Field List from a query.
My field names are: "LastName", "FirstName", "MiddleName". But I want them to appear as "Last Name:, "First Name", "Middle Name". I want to be able to change the display of the field names within my combo box which should come from my query. How is that possible? I already tried to put caption in the properties but it didn't work.
I've got a form (frmEdit) that allows users to search tblMain for records using a bunch of unbound controls and a dynamically created SQL statement. Search results are displayed in a subform (subMain), and the current record in the subform is displayed in a set of bound controls on frmEdit.
Now the important bit: There is a set of unbound checkboxes on my form that allow the user to change which fields are visible in subMain. This is accomplished by the following:
Code: Private Sub chkName_AfterUpdate() If Me.chkName = 0 Then Me.subMain.Form.CorrespondingField.ColumnHidden = True Else Me.subMain.Form.CorrespondingField.ColumnHidden = False End If End Sub
Certain fields are visible by default, but the user may want to change which fields those are. Here's what I've done so far to accomplish this:
Created a button (btnChangeDefaults) that opens a form (frmChangeDefaults)
Put checkboxes for each table field on frmChangeDefaults
Put a "Cancel" button (btnCancel)* and "Done" button (btnDone)** on frmChangeDefaults.
*btnCancel just closes frmChangeDefaults without making any changes to frmChangeDefaults or frmEdit
**btnDone changes Forms.frmEdit.Form.chkName.DefaultValue to Me.CorrespondingCheckBox.Value and then closes frmChangeDefaults
This all seems to work quite well, actually. Debugging confirms that the default values of the checkboxes on frmEdit are indeed changed when I click btnDone. But when I close frmEdit and re-open it, the default values return to what they were prior. This happens even when:
I close frmEdit using DoCmd.Close acForm, "frmEdit", acSaveYes
I close frmEdit after using DoCmd.Save acForm, "FrmEdit"
I save frmEdit manually by right-clicking and pressing save
I have the following VBA code that auto populates a word template:
Private Sub Command24_Click() On Error GoTo ErrorHandler: ErrorHandler:
[Code].....
The code executes flawlessy but there are three values that are based off check boxes set as YES/NO (EMPLOYEDATREGISTRATION, EMPLOYED and FRINGEBENEFITS). These values show up as -1 for YES and 0 for NO.
Is there anyway to add code to mine that would allow me to change these values before they are sent to the Word template?
Currently I have a calculated field in my table; however, under certain circumstances I need to change the value to another value which is not related to the calculation. I understand that the calculated fields are read only (why is that?), so I was wondering if there was any way to change values within a calculated column without actually changing the expression itself.
I have several buttons on a form and I want to set enabled = false on one of them when I open the form - that's fine
I have two txt fields - ReceiptNo and BankPaymtId if the both have a value I want to make the button enabled = True
This is the code I have used on the BankPaymentId On Dirty event
Private Sub BankPaymentId_Dirty(Cancel As Integer) If Me.[ReceiptNo] <> "" Then If Me.[BankPaymtId] <> "" Then Me.CreateOutlay.Enabled = True End If End If End Sub
This is the one for ReceiptNum on Dirty event
Private Sub ReceiptNum_Dirty(Cancel As Integer) If Me.[ReceiptNo] <> "" Then If Me.[BankPaymtId] <> "" Then Me.CreateOutlay.Enabled = True End If End If End Sub
I am trying to write a code that will execute at the change even of the combobox/Listbox and when a character is typed in it then all the data from "DocumentType" field whose first character matches with the first character typed in Combo/Listbox will be stored in it.
The following code doesn't work:
Private Sub ComboBox4_Change() Dim strText, strFind As String strText = Me.ComboBox4.Text If Len(Trim(strText)) > 0 Then strFind = "BarcodeRef like '" & strText & "*'" End If
I have an issue with a couple of my combo boxes. When in form mode the drop down menu displays a list of options (taken from my source table), this is fine, but the problem is that it allows the user to select more than one of the options in the form of checkboxes. This is not what I intended.
I've attached to pictures to demonstrate the problem. The first is ComboBoxQuery (the one with the problem) and the second is ComboBoxQueryWorkign (the one without a problem).
I'm not sure why this is happening and I've tried comparing all the properties of both these combo boxes and changing some of them to see if I can eliminate the problem without any joy.
I use a very standard SELECT statement to pull the data for the combo box:
SELECT CountryID, CountryName FROM tblCountryInfo ORDER By CountryName
I have not done much work in later version of Access. Now I found if I change a design in one form and similar forms (names are different) which are linked to the same tables got changed as well without openning them up and making changes. Is this something new with Access 2003?
how to make my form controls change size / position as my form is resized / loaded on a computer with a different resolution. Several of the tutorials out there suggest putting code on the "on resize" property of the form. When I looked at the Northwind database to try to mimic their code however, it looks like they must be doing something different as there is no on resize code under the form properties and I was unable to find the code they do use.
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.
In the form that I am working on, I have a number of text boxes that are filled with a query telling me which people are scheduled to work a shift. I also have a text box (I may need to make this a sub form, but would prefer not) where I want a list of all available employees for the specific shift to show. When I click, I want to see the list, so that I can make changes if needed and only chose those employees that are available for the shift.
I have: Private Sub Ctl8a_4pb_Click() Me!txtAvailEmployees = "SELECT tblAvailabilities.Date, [First]+" "+[Last] AS [Full Name] FROM tblAvailabilities INNER JOIN tblStaff ON tblAvailabilities.EmployeeNum = tblStaff.EmployeeID GROUP BY tblAvailabilities.Date, [First]+" "+[Last], tblAvailabilities.Shift1 HAVING (((tblAvailabilities.Shift1)=-1)) WHERE tblAvailabilities.Date=[form]![frmScheduleEdit]![CalDate];" End Sub
I get a syntax error. Is is even possible to pass SQL in a manner as this? If it is, where would I be messing up?
What I want to do is following. In form ASSIGN(fields are takedate and inout) ,if TAKEDATE is different then 0 then set value of inout field to 1 My VBA knowledge is poor cause i dont think this should be hard
I have a field (AR#) that has an "on change" event. This is supposed to check through the database and see if that number has been here before (it's like a job # / serial #). It had always worked fine - now suddenly this field, and this field only, reacts VERY, VERY slowly when you type a number in. You can type the number and wait about 5 seconds for it to show up. When I removed the event - it acted normally so I think it has to do with that. Here's the vb for the event:
Private Sub AR__Change() Dim db As Database Dim Rst As DAO.Recordset Dim strAR As String Set db = CurrentDb() strAR = Me.AR_.Text Set Rst = db.OpenRecordset("repairs", dbOpenDynaset) Rst.FindFirst "[AR#] = '" & strAR & "'" If Rst.NoMatch Then Else MsgBox ("This value it is already in the system !") End If End Sub
Any ideas why it's reacting so slow or what I should look for?
A couple of days ago I was looking to change a form button color in a new database I was working on, I could not. I changed the Back Color to #22B14C but it stayed the same grey color. I could not make the change in that form in that database.
Then I went into a different database that I built and I noticed that the Command Buttons within the form was blue, I changed it to #22B14C and it turned green. What the difference is. I copied the button to the first stated database and in that form and the color stayed to grey even though the Back Color was set at #22B14C. I noticed that the database that the form that I could change the color had Hover and Press color options whereas the first database does not. I copied the form that I could change the button colors to the first database and I could change the colors but they had changed from the second database to the first, I could change the colors but the Hover and Press options were gone.
how I get the first form to change colors and what is the difference between the two databases?
