I have main form("client Status") which contains information about client order and showing the calculations. The subform is also there for receiving the payment from client. I would like to get the sum of amount received(from sub from) and would like to show it on main form that how much amount received from a client. As payment received from client the form should be updated automatically by showing the sum of amount received.
how to take sum of particular field in subform using vba and storing it in main form field.the forms are created from tables and there is no unbound field.
I have a combo box which I use to jump to a certain record in a form in Continuous View. The combo box located in the form header which works fine when the code is attached to the OnChange event. But that works premature when I have not finished typing what I am looking for yet. I tried few events for no avail. I need OnLostFocus but I can not tab out of the combo for the life of me, it works when I click out of the combo box with the mouse but I want to use the Keyboard Tab.
I can do anything(design/edit/add new) to my table & queries but unable to redesign/edit my existing forms & reports, i wonder why?. My Database attributes is not "read only".
WHERE (((Projects.[TeamA])=[Forms]![Search Project by Team]![TeamA]) AND ((Projects.[TeamB])=[Forms]![Search Project by Team]![TeamB]) AND ((Projects.[TeamC ])=[Forms]![Search Project by Team]![TeamC]))
I created a table to keep contact information such as address, phone number, and email address of instructors. I also modified the New Instructor Entry form to add an email address, since we usually have this when hired.
The problem arises when no such information exists for an instructor. I have attached a "sample" database with all the important components and "sample" data.
When I choose an instructor in which some contact information exists, the Instructor Contact Entry form performs as expected. On the other hand, if no information for an instructor exists, the information can be entered, even though the Employee Number, Family Name and Given Name fields are blank, contrary to the first case. Not only can the information can be "saved" but no data appears in the table.
How do I have to set this up to get it to work for an instructor not in the table?
I enabled security on an .mdb which included several users that are in the Full Data Users group. After I did this I needed to add a new form to the application, so I logged into the application and added it. However, though the admin group and the Full Permissions group can access it fine, the Full Data Users group cannot. I have double checked all of the settings and have even rebuilt the .mdw file to no avail. Any thoughts?
I am trying to open a report (with subreports) from a form. When the report opens, I want the form to hide, which most of the time does. Sometimes, though, it won't hide when the report opens. So, I even created an error handler, and moved that part of the code to SubExit section, but the problem still occasionally occurs. Here is my code:
Code: Dim strWhere As String Dim strDate As String Dim strDist As String On Error GoTo ErrHandler strDate = "=DateSerial(" & Year(Me.txtAsOfDate) & "," & Month(Me.txtAsOfDate) & "," & Day(Me.txtAsOfDate) & ")" strWhere = "YearEnd = " & Year(Me.txtAsOfDate) - 1
I have a split form, populated with my DVD movies, with the datasheet on the left. On the right I have 3 fields. Title Movie Type and Movie Description. All are enabled. But, today I was unable to select the Description field. I would click in it but the cursor would not enter to field. I needed to select another field and the then I was able to select Description. I was able to select the field programmatically. I needed to find a form from a backup and replace it.
I am trying to set password protection on a combobox where there are only a few people who I want to be able to select their name to provide authorisation. I found the below code on a website and modified it slightly for my table (tbl_Approval) that contains two fields; Approver and Password. I can see how the code is supposed to work however I keep getting a syntax error (missing operator) in query expression on line: Set rs = CurrentDb.OpenRecordset(sql).
Code: Private Sub Approved_By_Enter() Dim pwd As String Dim rs As Object, rstable As Object, count As Integer, counter As_ Integer Dim sql As String, recount As Integer sql = "SELECT * " & "FROM [tbl_Approval] " & "WHERE [Approver]= " & Me.Approved_By Set rs = CurrentDb.OpenRecordset(sql)
I have a form that displays a html document in a WebBrowser object. This displays fine on screen but shows up blank when printing the form. Is there any way to get this to appear on the print? I know you can right-click on the object and select "print" to print the contents of the object but ideally I'd like the page to print in the context of the form. Is this possible?
I have setup a ComboBox on a form, Listed the PK of the table as the control source. Inserted the PK and many other field as the row source. When I go to select a record I get the error "control can not be edited, it's bound to a auto number field, "Asset_ID"
I have a form which is based on a query which selects information from three different tables. All fields apart from one are locked, all are enabled. The table the field I wish to update is native to the current DB i.e. is not a linked table.
when I activate the form and try to click on the Check box, which is not locked, I get a beep but it does not change state.
I am trying to get a form to display certain information based on the data in another box. I have to input some exam results and want to assign a level to them. So, if they score < 13, the result would read "Below Entry 3" if between 13 and 21 "Entry 3" etc If this was a spreadsheet I would use an if function, but I am not sure that I can do this here
I'm trying to multiply the values of two number fields together, but it is not working. I used to be able to do this easily in earlier versions of Access. Here's the problem:
On the form, I need field A x field B to appear in field C. I've tried this as an expression in the build event function on the control, but it is not working. My code reads as follows: = (field A) * (field B).
In a nutshell, I have a form where the 'Record Source' is a table titled 't_02_0_Assets'. I have several fields in the table that have foreign key references that utilize the Lookup Combo Box display control to allow users to select from a drop down list in the form.
The issue I am having is that I can't filter the text in the foreign key fields (only the ID's ).
My attempted solution was to create a control on the form (text box) and bind it to each of the foreign key ID's using the DLookUp function and then reference this control in the filter code.
My question is... how do I reference this DLookUp textbox in my filter VbCode?
I have attached a '.jpg' image of various aspects of the form including the filter code on the 'On Change' event.
Why I cannot print a report using a single record in a form using Access 2007.
I have added the button, I am using the following code:
Private Sub cmdPrintRecord_Click() Dim strReportName As String Dim strCriteria As String strReportName = "Receipt" strCriteria = "[ID]='" & Me![ID] & "'" DoCmd.OpenReport strReportName, acViewPreview, , strCriteria End Sub
However when I click the button nothing happens. I have attached the database ...
I am using the Contacts Entry form, and when I am on a record that someone has paid I want to be able to print from the Receipt report that has a simple formed up letter.
I have validation on a checkbox on a sub form and after the validation fails and the cancel = true is executed in the before update event, I am unable to select the checkbox on the form. Access will not allow the selection. my subform is called frmContactType so hopefully I am referencing it correctly:
In a current form I want to display a checkbox that can be checked or unchecked. Based on if the box is checked or not, a value will be placed in a field when the record gets updated or created...
I have created a check box but when I click it, I am unable to uncheck it, Im pretty confident I can do the later part in coding it into the database... its just having the free ability to check it or not!
I had an existing database with 2329 records entered into it. All of the fields (220ish) were all in one table. Myself and my co-workers wanted to rebuild the database without losing the data. We wrote queries to transfer the data from the original database to the new database and split the data from the original 1 giant table to 9 smaller tables.
The transfer of data worked so I went to start making forms. When I went to add fields from different tables I had to built a relationship, which I did. All of the data that transferred over from the new database is in the form (now multiple forms linked by button) but I can't add new information. I get an error stating, "You cannot add or change a record because a related record is required in table ..." and the table referenced keeps changing.
My database was working fine. Now, if I have to save or edit a record, I get a message Run time error 2107. The value you entered does not meet the validation rule defined for the field or control. I am able to enter and edit new records in the table. I did not change any validation in form. Then it goes to debug mode and highlighted this code (me.recordsource=Listsql - is highlighted)
Private Sub ListSearch_Click() Dim dBS As Database Dim Rst As Recordset Dim Listsql As String Set dBS = CurrentDb() Listsql = "Select * from MasterData where employeeid ='" & [Forms]![MASTERFORM]![ListSearch] & "'"
I've been working on a database for work for the last few weeks and this forum has been a Godsend many times over, but now I have a problem that I can't find any reference to.
Using Access 2003, I have a form that uses 3 cascading combo boxes in the header to find a unique record, and a command button that brings up the rest of the record into unbound fields in the body of the form.
It works fine for finding records, but whenever I enter/change data on it, the record doesn't save. The navigation buttons at the bottom don't work - the Next/Previous record buttons are disabled, and the First/Last Record buttons do nothing.
Navigation buttons are enabled/activated in the properties.
I tried getting around this by creating a Save Record command button - first using the wizard, then using VBA code DoCmd.RunCommand acSaveRecord as advised by [missinglinq;696351], but this still doesn't save the changes.
This actually works, but every time the print preview is closed, it crashes Access. I have researched this particular issue, and some of the solutions I have read and tried lead to "that method is not allowed or supported" errors or Run-Time 438 errors.
Dim FrmGraphObj As Object Set FrmGraphObj = Forms![frmE Weekly Efficiency]![gph_WeeklyEfficiency].Object.Application.Chart FrmGraphObj.Axes(xlValue).TickLabels.NumberFormat = "0%"
I continually receive a runtime error 1004 " unable to get tick labels property of the axis class"
if I remove this code, then I error on the following code:
Dim FrmGraphObj As Object Set FrmGraphObj = Forms![frmE Weekly Efficiency]![gph_WeeklyEfficiency].Object.Application.Chart If FrmGraphObj.SeriesCollection(2).HasDataLabels Then
also a runtime 1004: "unable to get the seriescollection property of the chart class" on the last line above
searched this forum and found:
If your chart is in a form (or report), you have to:
1) refer to the form (or report) name (Form_Charts)
2) refer to the name of the object frame holding your chart (.Graph1)
3) refer to the object within the frame (.Object)
4) refer to the application that created the object (.Application)
5) refer to the actual chart itself (.Chart)
6) refer to the axes collection and select the axis you want to reference - in this case the category, or X-axis (.Axes(xlCategory))
I made the assumption, that I would just replace xlCategory with xlValue for the Y-axis. So I'm back to:
Set FrmGraphObj = Forms![frmE Weekly Efficiency]![gph_WeeklyEfficiency].Object.Application.Graph With FrmGraphObj.Axes(xlValue) .TickLabels.NumberFormat = "0%" End With
Same error....
Looked in the Microsoft Graph Visual Basic Reference and it indicated:
"Tick-mark label text for the value axis is calculated based on the MajorUnit, MinimumScale, and MaximumScale properties of the value axis. To change the tick-mark label text for the value axis, you must change the values of these properties."
I reset my code to call these 2 functions prior to changing the number format.....
Public Sub txtMaxPercent_AfterUpdate() Dim FrmGraphObj As Object Set FrmGraphObj = Forms![frmE Weekly Efficiency]![gph_WeeklyEfficiency].Object.Application.Chart FrmGraphObj.Axes(xlValue).MaximumScale = txtMaxPercent End Sub Public Sub txtMinPercent_AfterUpdate() Dim FrmGraphObj As Object Set FrmGraphObj = Forms![frmE Weekly Efficiency]![gph_WeeklyEfficiency].Object.Application.Chart FrmGraphObj.Axes(xlValue).MinimumScale = txtMinPercent End Sub
now I am receiving error 1004 again, this time it states "Unable to set the minimumscale property of the axis class" erroring on this line....
Why the ability to view the properties of an object within a form is not available when you double click on it in design view?
I was happily working away double clicking on a command button to edit some code when for some reason the next time I tried to edit it did not open up for me.
I was unable to access it even by right clicking on the object & selecting properties as that also appears to be disabled, not greyed out or anything but just does nothing when selected.
Have I inadvertently changed a setting somewhere that prevents the properties from being displayed?
