hi...
firstly, i created some report based on query. then in my form i create list and combox to list down all primary key that had in query..
what i want to do is open report, based on criteria that i selected from combobox or list box...
i create both cbo and list box to compare which 1 is better... but both not working. i mean it works but not show the data as i want to. it open / list all data at report..
I'm trying to create a simlpe database that is use to store time worked for clients (see attached).
If you run the form frmClientEntry i have two issues.
1 - you will see that the title is automatically selected from the combo box. However is i try and enter the form I'm told 'You cannot add or change a record because a related record is required in table 'tblTitle'. If I select one of the entries I get rid of this. I would like the default to be selected...
2 - There is no entry in the hourly rate column field even though there is an entry in the table. How do I get my hourly rate to show? Ideally this will only be a single text box and not a comboBox as the hourly rate will be the same for every client.
If this is a table design issue please let me know and I'll post there.
I have a query based continuous form that looks up a serial number entered by the user and allows them to view the matching data. When a user enters a serial number that is not in the database I want a message box to pop up to warn them there is no match.
The code I am using makes the msgbox pop up on every entry. I have tried to put this code in a variety of form and control events with no luck. Can someone tell me what I am doing wrong?
Private Sub Form_AfterUpdate() Dim intRespone As Integer
If DCount("[packing station scan].[serial_number]", "match with last test results", _ "[drive test results].[serial_number] = ' & Forms![match with last test results].[Serial_Number] & '") < 1 _ Then intresponse = MsgBox("Stop! Serial Number has no test data!", vbYesNo, "No data found") Select Case intresponse
I have a field in my DB called "Category". Users are allowed to imput any text in that field. I have a particular problem in which the LIKE command isn't working as I think it should with the limited help files of Access explanation of use. The category field has multiple entries, for example - HEQ, PBH5, PBH4, SWA, SWA2, ALL - etc. I'm trying to pull the records from that field with specifics.... in other words I may need to get All the records that have "PBH5" in them. However, if if PBH5 isn't the FIRST entry in that field the LIKE criteria doesn't work. I have tried Like "PBH5*" LIke "PBH4* etc to no avail. Any ideas? It can't be that difficult, but I cannot find anything in any book I've purchased on it, or any of the knowledge base information at Microsoft.com.
I am working on developing a database that develops requests to send to another department. There are a lot of forms, macros, reports and queries. A user inputs information into a form, and then selects a command button that is attached to a macro that builds the request. Midway through the build, another form comes up to complete missing information. I was going along just fine - at the testing stage for this part of the process - when the database stopped working like it should. Some of the issues I am seeing:
1) If you open a new query and try to close it without saving it, it just keeps asking you if you want to save over and over even though you select No.
2) If you open an existing query and make a change, it closes it and saves the changes without any prompting at all.
3) Macros and forms do not work right. I have a macro that deletes the records from one table. The form for that table now shows #Deleted in all the fields instead of blanks.
If you compact/repair the database is good for one run through but then it doesn't work correctly again. I have had this issue in the past but have no clue how I break my databases! I have a general knowledge of Access, I am not really a VBA coder if I can avoid it at all costs. There must be something in the relationship between all my tables, queries, forms, etc but I have no clue even where to start to troubleshoot. HELP!!
I know there are numerous threads regarding dsum() on the forum, but I wasn't able to find the exact answer to my problem.
The root of my problem is that I'm trying to update a field on a table using dsum, which references another query to update the table. Although I have all of the correct keys from the physical table joined to the query in the dsum function, the code/ms access seems to ignore the joins. As a result, all payees are having their "vol" field set instead of a select subset.
Query (GetTxnVolAmtTR"):
SELECT p.payee_id, sum(txn_volume) AS vol, t.market, t.period_id FROM ft_payees AS p, ft_txn_summary AS t WHERE p.payee_id=t.payee_id And p.market=t.market GROUP BY t.payee_id, t.period_id, t.market, p.payee_id;
Update statement (references the query above):
UPDATE tmp_ft_component AS rc SET rc.volume = Dsum("vol","GetTxnVolAmtTR","GetTxnVolAmtTR.payee_id= " & [rc.payee_id] And "GetTxnVolAmtTR.market= " & [rc.market] And "GetTxnVolAmtTR.period_id= " & [rc.period_id] & "") WHERE rc.component_name='Total Revenue';
as you can see, I have all of the fields I want joined, but the code seems to ignore this. I've tried looking at this site: http://www.mvps.org/access/general/gen0018.htm , but haven't found my answer. Any help would be much appreciated!
My report generates base on 2 date inputs(from textboxes) namely, ProcStartDate & ProcEndDate & a combobox(cmbRptSupplier) to select the supplier:
Code: Private Sub btnReport_Click() Dim strDocName, strWHERECondition As String strWHERECondition = "" If Me.cmbRptSupplier = "" Or IsNull(Me.cmbRptSupplier) = True Then
[Code].....
When I leave my cmbRptSupplier blank (so that I can leave supplier out of my criteria), & fill in 1/2/2013 for ProcStartDate, 14/3/2013 for ProcEndDate, I get ALL the invoices displayed in return for my report. Even with those before 1/2/2013.
I have a report, and the "reason" field is one that can grow as needed. The following string is in the field: "MISSING IMPLEMENTATION PLAN, MISSING SERVICE LOGS FOR DATE OF SERVICE". I bolded MISSING, where the space hits the border. My standard setting for the border style is Transparent, and the space is causing the growing to not work properly. TransparentBorder.pdf shows the incorrect growing. When I change the border style to Solid, the growing works correctly, as shown in the SolidBorder.pdf file.why the growing is not working properly with the Transparent border, but does work correctly with the Solid border?
I have a report based on a query that has data for many dates. At the moment I have put a specific date in the criteria of the query so that I could build the report format. So it now displays all the data for the date i have in the criteria section. I will need to run this report several times per week so the specified date (and corresponding data in the report) will need to be changed to a new date when I open the report i.e. when I open my report I want to show data in the report only for a specified date.
Can I create a date parameter box open up when I open the report? Can I create a form with a button that when I click will open the report displaying data for that date? What would be the best way?I also need to display the specified date on the report.
My application relies on whether Outlook is open and more importantly, with the correct Exchange profile selected. To ensure this I have the following code which, on the work PCs (Windows XP and Office 2003) works correctly.
Code:
If Outlook_is_Running = True Then Set myOlApp = CreateObject("Outlook.Application", "localhost") Set myNameSpace = myOlApp.GetNamespace("MAPI") Set colFolders = myNameSpace.Folders On Error Resume Next
[code]....
The work PCs are being upgraded soon to Windows 7 and Office 2007 so I have taken the application home and started to develop it on my home PC (Windows 8.1 64 and Office 2013 64). I have used PtrSafe where necessary and have compiled with no errors, but this code always returns false even though Outlook 2013 is open.
On further investigation, if I comment out the 'On Error Resume Next line I get the error Active X component cannot create the object (or similar) Error 429. This is the same regardless of whether Outlook is open or not
I have a report with an unbound checkbox which has a null (greyed out value) when printed. I'm just trying to set it to false when the report opens.I have
Code: Private Sub Report_Open(Cancel As Integer) Me.CheckNotPaid = False End Sub
but it just says 'Runtime Error -214..You can't assign a value to this object'
I think my issue is that when the user opens my form a record gets created. Thus default value will not work. what happens is; the user fills out form 1 goes to form 2 and on form 2 i want a check box default value to be true...but its always false.
the checkbox in question is adequite staff. the user gets the question, "was there adequate staff" if there was the "adequate staff box" would be true. what i have tried is i created a "dummy" checkbox (checkbox299) entitle no. and labled adequite staff checkbox as yes. on the form2 open insert the following
Code: If Me.ADEQUATE_STAFF = False And Me.Check299 = False Then Me.ADEQUATE_STAFF = True Else End If
I have a form with two subforms. One subform is a datasheet that pulls data from a temp table. During the other subforms Form_Current, the temp table is emptied (DoCmd.RunSQL "Delete from tblAddRefs"), reloaded with data relevent to the current record, and requeried (Forms("frmEDFP").Controls("tblAddRefs subform").Requery). This works like I want it to...
With the exception of the initial load of the main form. The subform based on a table shows (#Deleted) instead of data. if I step through the code, I can see that the temp table is emptied and repopulated by the time I try to requery the subform. This is still happening during the Form_Current of the other subform, which is successfully running on main form load.
If I requery (Forms("frmEDFP").Controls("tblAddRefs subform").Requery) using a button on the main form once it is loaded, the #deleted data is correctly is replaced by regular data, so it's like the requery in the Form_Current event isn't doing anything during load.
I have a form with 7 List boxes linked to 7 Query's which in turn are linked to a table. Each list box if for a particular trade.
I am trying to select a person or persons from each List box and then have them sent to a report. I have Code to do one list box, but do not know how to link all boxes with code to a 'Open report' button.
The code I am using is as follows:-
Private Sub cmdOpenReport_Click() On Error GoTo Err_cmdOpenReport_Click Dim strWhere As String Dim ctl As Control Dim varItem As Variant 'make sure a selection has been made
I have a report "Work Order Details" that that is based on a query and opens along with a form that is used to set filters. Based on samples I have looked at and reading, I cannot figure out what is missing. When I select my item form one of 5 unbound combo box 's and click the "Set filter" button, it brings up a paramter box?? If I cancel out the box, I still don't get a result. Just for the heck of it, I filled in a name in the paramter box, still no luck. The report property has "Filter On" as YES. The close button, clear button, and drops downs operate perfectly.
Here is the On Click Event info from my "set filter" button:
Private Sub Command28_Click()
Dim strSQL As String, intCounter As Integer 'Build SQL String For intCounter = 1 To 5 If Me("Filter" & intCounter) <> "" Then strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = " & Chr(34) & Me("Filter" & intCounter) & Chr(34) & " And " End If Next
If strSQL <> "" Then 'Strip Last " And " strSQL = left(strSQL, (Len(strSQL) - 5)) 'Set the Filter property Reports![Work Order Details].Filter = strSQL Reports![Work Order Details].FilterOn = True End If
I have a report that has 3 sub reports in the main report but for now I will just concentrate on my main report and my first sub report. My first subreport is a bit of a nightmare as it pages and pages of just text well 3 pages. I have typed all the text in labels n the sub report and I have inserted a page break control when I run the sub report without the main report the page breaks are there when I run the sub report from the main report the breaks have gone. Any idea's how to fix this one. So I have a hughe details section with 3 page breaks that only work on the sub report that has not been opened from the main report. Once I try to open the sub report from the main report I lose my page breaks in the details section of the sub report. Hope this make sense. Thanks PWF
Using Access 2010 32-bit. I have a report that contains a Graph Chart (class = MSGraph.Chart.8). The reports works fine using the uncompiled .accdb. When I compile to .accde, the report is not rendered...I get an empty report screen as though Access is going to produce the report and nothing happens. I have to terminate Access using the "X" at the top right.
One is a list of fishermen with all their info. I used a Code as the primary key.
The 2nd is a fish ticket sheet with fish tickets entered and the code in there as a foreign key in the relationship between the two.
I create a report listing the fish tickets and prices perfectly for the 4 fishermen I have entered fish tickets for. (I have 140 fishermen in the main table)
I added a 3rd table for payments made to the fishermen. There are two payments for 2 of the fishermen.
then, I go into report design view and drag in two of the cells from that 3rd table into my report.
The problem is the report then prints JUST the fish tickets and payments for the two fishermen that have payments...not the info for all 4 fishermen. I need to print out settlements for all the fishermen whether they have payments or not?
i have created a MultiSearch query witch puts my results in a list box.under it i have created a button wich i want to use to print a report with the criteria i select from my list box if there is more than one result.
Following is the Code i used for my button
On Error GoTo Err_Command60_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "ReportLable" stLinkCriteria = "[ProductID]=" & Me![SearchResults] DoCmd.OpenReport stDocName, , , stLinkCriteria Exit_Command60_Click: Exit Sub Err_Command60_Click: MsgBox Err.Description Resume Exit_Command60_Click
Every time u press the button i get a message syntax error(missing Operator) in query expression
Now i have not used any code in my Query except for
Like "*" & [forms]![frmSearchFor]![SrchText] & "*"
Hello friends, I would like to add a cmdbutton on a form to view a report. This report should also include the last modified data of my form. Is it possible to see the data without closing the form? Or perhaps there is a solution like close the form and open the report (it will use the field SSN as PK) of the last modified (or viewed) recordset? Any help or code will be appreciated. Thank you.
I have an Access 2003 database that has a report which prints to the default printer. We recently replaced the printer and now we cannot open the report in either design or preview. How can I resolve this problem??
This keeps happening to me. I am tired of importing from a backup and making modifications. My report won't open in any view. I double click on it in the db window, and nothing happens. It does the same when I try to open in design view. Have any of you ever had this proble,? What should I do?
On opening my database, I have a switchboard that opens up.
How do also run a report automatically just after the switchboard screen opens. To make the switchboard open when I click on my database, I went to tools..> startup. But I don't know how to run a report automatically after that.
