Code For Opening A Report
Sep 2, 2005Hey there, if anyone could help me with the code for opening a report please. I have a main page with buttons, and need a button for opening reports.. thx
View Replies
ADVERTISEMENT
Code Before Opening Form To Check User's Right
Oct 23, 2005Hello Gentlemen,
I am planning to give different rights (AllowEdit, ViewOnly…) to the user on accessing forms and reports in a db on a single pc instead of dealing with server as my client have only one pc.
As a present requirement, db would be in one pc only and would be used by 3-4 users. I need each of users to limit their access to some of the forms and reports in the same pc. To get it, what I did is as follows:
Example:
One of my tables called tblEmployees (Back End Table) linked in FE containing following fields:
1.Unumber- Autonumber
2.UNames - Text
3.Pwd- Password
4.F1- Yes/No
5.F2- Yes/No
6.F3- Yes/No
F1, F2….stands for form1, form2…
There is a login menu form. Something like 2 text boxes on the form and opening at the startup. User selects his name from a combo and types his password. If the user is available in the tblEmployees, Access opens main form and store UNumber and UName with time stamp in a local table called “T_CurrUser. If user not available in tblEmployees, it should close or give some msg.
Now, when the Main form opens (after login with correct user and pwd) and user wants to click different command buttons to open the form, I need to write code to check whether the current user have right to open the selected form (check marked to allow opening this form in the table tblEmployees) BEFORE opening it.
If check mark is set to false on F1 in the table tblEmployees, it means he can’t open form1, and a msg should pop up “Not allowed to view”..Something likes that.
1. I don’t know the code I created with simple if then, where to write ? I mean on which event of form ? On open / On Activate or where. Bcz the code should run before form opens and should check the table whether the user have check mark value true or false.
I tried to write the following code but some time it works some time doesn’t. What is wrong with code lines?
On Click of Command Button that opens Form1
Dim USR = DlookUp(“lngEmpId”,”T_CurrUser”) ‘ Local Table emp.
‘To check if Form1 check mark is set to true
If DlookUp(“F1”,”tblEmployees”,”lngEmpId=USR)=True Then
Docmd.OpenForm “Form1”
Else
End If
When another user logs on the same pc (off course, after login out of first user) the local table T_CurrUser record will be replaced with new user. Note that local table T_CurrUser contains always one record. Hopefully I described correctly.
Any idea will be respected.
With kind regards
Ashfaque
General :: Opening Access Database In Code As Read Only
Jul 30, 2013I am trying to open up an Access database as read-only from another running Access database. The code I have to open the database currently reads:
"""C:Program FilesMicrosoft OfficeOFFICE11MSACCESS.EXE"" ""f:commonpattyTraining Database.mdb", 1)
How do I change to read only?
Please Help With Opening Report
Aug 16, 2007is this right?
Code:DoCmd.OpenReport "3rd Party Denial, Report, , [Claims Header].[Claim_ID]=[Forms]![claiminformation]![ReportForm]![Report_ClaimID], Normal"
I get an error stating you entered in either the property sheet or macro is misspelled or refers to a report that doesn't exist.
Opening A Report Using Combo Box?
Aug 16, 2006Is it possible to open a report using a combo box. At the moment all my reports are opened using cmd buttons. This is just a question of curiosity, I will continue to look into it myself of course.
View 8 Replies View RelatedOpening A Report Using A Macro?
Jan 18, 2013I have a form in Datasheet view and when you click on a record in that form I want it to take you to a report with all the details of that record number. I have the On Click event set to run a Macro. The Macro is as follows:
OpenReport
Report Name Incident Report
View Report
Filter Name Open
Where Condition =[Event ID]=[Reports]!Incident Report]![Event ID]
Window Mode Normal
This Where Condition works for me open another form from the form with the same Event ID. Why does it come to a "new" Incident on the report?
Opening Access To A Specific Report
Mar 21, 2006Is there any way to put a shortcut on someone's desktop that will open a specific report in an Access database? I'm thinking back to the days of DOS when one simply added an argument to the command. I don't want to put it in startup and have it always go to that report. I just want non-Access users to go right where they need to without menus, etc.
:confused:
Thank you.
Opening A Report From A Form Error
Feb 28, 2006I want to create a report using the data currently held in a form. I found this bit of code somewhere:
DoCmd.OpenReport "report", acViewPreview, , "[job number] = " & txtFilter.Value
txtFilter is the name of textbox containing the data I want for the report. This works if in the table for txtFilter's data the field is set to a number. But if I set this field to text it comes up with a data type mismatch error. How do I solve this? (sorry new to access and vba). The reason I want to set it as a text field is so that I can limit the number of characters entered.
Thanks
Chris
Opening A Report As A Normal View?
Mar 19, 2006Im sorry about the stupid questions!
How can I open a report in a view which will let me test my buttons? I only seem to be able to open it in print preview!
Opening A Report With Recordset Data
Nov 3, 2004I have looked through the threads and have not found an answer to my question, so I post it hoping there is an answer as well as documenting useful information for other individuals.
The following code is what I am using to 'pull' data in order to print a certificate. It functions the way I designed it (verified by debug.prints and msgboxes). My question is how do I pass data to a defined report (certificate) based upon the results of a built recordset. When the report opens, the values come up as "#Name?". I'm guessing that the issue is syntax, but I just don't know. Here is the code I have so far (I've even commented it for y'all)...
Looking forward to your comments...
-BT.
Dim RSAgg As Recordset
Dim RSsrc As Recordset
Dim DB As Database
Dim strAgg As String
Dim strSQL As String
Dim strCert As String
'If there is no week number set, drop out
If Not IsNumeric(txtWeekNum) Then
MsgBox "You Must Specify a Week Number.", vbInformation + vbOKOnly, "Required Input"
Exit Sub
End If
' tblAggDesc contains the field names
' that have scores I want to evaluate.
' If someone makes a perfect score,
' then they get a certificate. Fields are
' a1, a2, a3, b1, b2, b3, c1, c2, c3.
strAgg = "SELECT tblAggDesc.AggCourse, tblAggDesc.AggDesc FROM tblAggDesc;"
Set DB = CurrentDb()
Set RSAgg = DB.OpenRecordset(strAgg)
RSAgg.MoveFirst
Do While Not RSAgg.EOF
If (Right(RSAgg!AggCourse, 1) > 1) Then 'rounds 2 & 3 contain additional information that is printed on certificate
strSQL = "SELECT tblScores.HEDR, tblRoster.Fname, tblRoster.Lname, tblScores.WeekNo, tblScores." & RSAgg!AggCourse & ", tblScores." & RSAgg!AggCourse & "X AS AggCourseX " & _
"FROM tblRoster LEFT JOIN tblScores ON tblRoster.HEDR = tblScores.HEDR " & _
"WHERE (((tblScores.WeekNo)=" & [txtWeekNum] & ") AND ((tblScores." & RSAgg!AggCourse & ")=100));"
Else
strSQL = "SELECT tblScores.HEDR, tblRoster.Fname, tblRoster.Lname, tblScores.WeekNo, tblScores." & RSAgg!AggCourse & " " & _
"FROM tblRoster LEFT JOIN tblScores ON tblRoster.HEDR = tblScores.HEDR " & _
"WHERE (((tblScores.WeekNo)=" & [txtWeekNum] & ") AND ((tblScores." & RSAgg!AggCourse & ")=100));"
End If
Set RSsrc = DB.OpenRecordset(strSQL, dbOpenDynaset)
If Not (RSsrc.BOF And RSsrc.EOF) Then
RSsrc.MoveFirst
Do While Not RSsrc.EOF
If (Right(RSAgg!AggCourse, 1) > 1) Then
strScore = RSsrc!AggCourseX & "X"
Else
strScore = ""
End If
'MsgBox RSsrc!Fname & " " & RSsrc!Lname & " " & RSsrc!WeekNo & " " & RSAgg!AggCourse & " " & strScore & " " & RSAgg!AggDesc
strCert = "Fname='" & RSsrc!Fname & "' AND Lname='" & RSsrc!Lname & "'" & " AND WeekNo='" & RSsrc!WeekNo & "' AND XCount='" & strScore & "' AND AggDesc='" & RSAgg!AggDesc & "'"
'Debug.Print strCert
' this is the point that I have problems.
' I want to pass RSsrc!Fname,
' RSsrc!Lname, RSsrc!WeekNo,
' RSsrc!AggCourseX, RSAgg!AggDesc to
' the report.
DoCmd.OpenReport "rptCleanTarget", acViewPreview, , strCert
RSsrc.MoveNext
Loop
End If
RSsrc.Close
RSAgg.MoveNext
Loop
RSAgg.Close
Set DB = Nothing
Running Query When Opening Report
Dec 7, 2005How do I get a query to run upon opening a report. My report has a few fields from a query that once the user inputs information the query is obviously outdated. Since it needs to be as simplistic and user friendly as possible I won't ever have them run the queries themselves so I'm trying to have them run to be updated for the report when the user goes to open the report.
View 1 Replies View RelatedGeneral :: Report Opening Behind Forms
Feb 25, 2013I have two pop up forms called "frmRepair" and "frmPaid" with a button that opens another popup form called "frmLabels". This final form has a button to print a report with the following code:
Code:
DoCmd.OpenReport "rptlblCombined", acViewPreview, , "CallID=" & Me.CallID
The problem is that when this report opens, it is always behind frmRepair or frmpaid and frmLabels so it can't be seen.
I tried to use the popup and modal properties on the report, but this does not seem to do what I need.
My next step was to hide frmRepair or frmPaid when frmLabels loaded and then hide frmLabels when I was printing the report, but the problem is that when the report closes I need to also close frmLabels (easy) but then I need to make visible either frmRepair or frmPaid, depending on which one was used to open frmLabels. How can I do that? How do I know which one of the two forms opened frmLabels to make it visible again?
What are my options to have that report open on top of everything?
Reminder Every 6 Months On Opening Certain Report
Oct 16, 2013I want to create a query that says starting on a specific date, every 6 months a reminder will pop up when a certain report opens (or form, preferably a report). So if I said the starting date is 10/16/2013, once April 16th, 2014 hits and this user opens the report, a message pops up.
Another way would be to add that message to the report itself, so it's not technically a pop up but its built-in to the report.
Form Displayed Diff After Opening Report.
Feb 18, 2006I have via macro that displays the main interface to my database; frmMain (Maximize). This form frmSelectUIC (Minimize) allows me to select a department number of the data imported for analysis.
All is fine, as shown here;
http://members.cox.net/mustang31859/access/before.gif
However, after opening then closing any report the frmMain no longer is displayed as before.
http://members.cox.net/mustang31859/access/after.gif
Why the shift?
Gunner....:confused:
Query Opening In Report, Not Record View?
Feb 5, 2007I have a query that searched thru records based on a person's last name. It runs fine and returns the results I want. However, the view of the results is in record-view. I'd like the results to be in a report format. Is this possible? The macro that calls the query is set to display in report view, but the query always come back showing the records. What am I missing here? Thanks a ton for your time!
James
Modules & VBA :: DELAY FUNCTION - Opening Report
Sep 4, 2013I am building a faux Electronic Medical Records database for the purpose of training med students. I need a command button to pull up a report , but i want to delay the opening of the report (as if waiting for "tests" to come back or be uploaded) is there a way to do this with VBA? i read about the sleep api but i dont know how to get it to work or where to put the code
so what would i add and where would i add it to delay opening the report that is called EKG W/ Subreport ...
Reports :: Opening Report Via Parameter - Enter Your Box ID
Mar 11, 2015So I have a report that opens via Parameter. The SQL behind the query that runs the report is (I took out alot of lines that aren't necessary to answer the question)
PARAMETERS [Enter Your Box Id] Short;
SELECT DocumentsTable.OrganizationalID,
.
.
.
DocumentsTable.Status
FROM DepartmentsTable INNER JOIN (Year1 INNER JOIN DocumentsTable ON Year1.ID = DocumentsTable.RecordDateYearID) ON DepartmentsTable.ID = DocumentsTable.DepartmentID
WHERE (((DocumentsTable.Voided)<>'Y' Or (DocumentsTable.Voided) Is Null) AND ((DocumentsTable.ID)=[Enter Your Box ID]));
So if I click on the report, I get a little popup that says "Enter Your Box ID", and when I do, the report works just as expected.
However, I also want to be able to open this report via link from another report, and pass the Box ID #. I just can't get the syntax right. I would have thought it was this:
Private Sub ID_Click()
DoCmd.OpenReport "Find A Box", acViewReport, , "[Enter Your Box Id]=" & Me.ID
End Sub
However when that execute, I still get the pop up asking for "Enter Your Box ID"
Forms :: Opening Report To Specific Record?
Feb 11, 2014I can open a report right with a wherecondition that opens a report based on an agent name..
DoCmd.OpenReport "SelectPSReport", acViewPreview, , "[PS_Agent]='" & Me.CboAgt & "'"
But it returns every record for that agent and I want to be able to specify the date that goes with the name.
For example Tom has a record for Feb 10, Jan 10, and Dec 13. I only want to see the record for Dec 13.
I am able to see this in my form by having a combo box for the agent and the date (the date box being based on the agent box). So now how can I add a condition to include the date combo box?
DoCmd.OpenReport "SelectPSReport", acViewPreview, , "[PS_Agent]='" & Me.CboAgt & "' And [PS_dDate]='" & Me.Cbodt & "'"
Adding the condition gives me and type mismatch error, which I think may come down to the date combo box on the form having 3 columns (only 1 is visible).
Reports :: Where Condition When Opening A Report With A Button
Oct 22, 2014Basically when I click a button on a form I want it to run a report but only when certain criteria are met as entered in the 'Where Condition' box. I've managed to do this successfully when it is an equal to query but I now want to run a 'contains' query and don't really know where to start.
I have a text box on the form labelled [Desc] and I want the report to pull records where any text entered in the [Desc] text box is contained in the fields [Used Stock]![Model]
Forms :: Opening Report From List Box In Form
Aug 4, 2014I have a report that runs a parameter query identifying which StudentID it wants to run the report of, and what month/year.I want to leave the month/year as a parameter, but what I want to do is get the record that I selected from the listbox (IE. student 1000) and then when I click on Run Report Card, it wouldn't ask me for the parameter of the student, but just the year, and then it would run the report card for the student I selected.
I tried doing the open report macro and in the where row I put
[StudentID] = [Forms]![Form1]![List12]
but it didn't seem to work.
Reports :: When Opening Report It Prompts For Input
May 29, 2015I have a database with loads of different sales data from Jan 2014 with other product details as well. I also have a form where the user can input any of these data (this is based on a query):
- Campaign name
- Exact Date
- Month
- Year
- Category
- Campaign Type
This should run the query, then open a report that's grouped by:
1. Year
2. Month
3. Exact Date
4. Dem name
Even if the user inputs the month and year on the form, when reopening the report, it prompts for inputting the year and month as well, but nothing else.
Forms :: Opening Report To Unique Date
Feb 13, 2014I want to tweak an existing form that currently allows me to generate a report based on a name and date selected.
The issue now is that there are some records that have the same date and I want to be able to generate a report on them seperately.
i.e. Jane has 2 records for December 5 with unique ID's
Right now when I generate the report it goes by the date and so I have both records.
To open the report I have this right now:
DoCmd.OpenReport "SelectPSReport", acViewPreview, , "[PS_Agent]='" & Me.CboAgt & "' And [PS_dDate]=#" & Me.Cbodt.Column(1) & "#"
How do I now get the report to generate off the ID and not the date?
No sure if it matters, but my form is populated by choosing a name in a combo box then the date in another combo box. Its the date combo that finds the record for the form.
Reports :: Drop Down Boxes Before Opening Report?
May 16, 2014I've made a query and designed a report for it. Simply it includes:
Area code, customer name, other customer details.
I want other people, when they click on the report to be given a drop down box which allows them to choose a specific area code before it generate the report. So, for example, they just want to look at Yorkshire region records, they choose Yorkshire from the drop down box and it'll generate the Yorkshire report. I've searched around but can't find what these are called.
Modules & VBA :: Error 3070 When Opening Report?
Nov 29, 2014When i run the following code to open my report a receive the following error..
error 3070 the microsoft access database engine does not recognise " as a valid field name or expression
Code:
strDocName = "rptBarcodingMonthly"
MsgBox strDocName
DoCmd.OpenReport strDocName, acViewPreview
The code behind the report - sets on open_report event is the following however i cant see any issues with it as i use it elsewhere..
Code:
' Create underlying recordset for report using criteria entered in
Dim intX As Integer
Dim qdf As QueryDef
Dim frm As Form
' Set database variable to current database.
Set dbsReport = CurrentDb
[code]....
I will also attach a copy of how i set the criteria in the query and the parameters
Opening Main Form After Viewing A Report
May 19, 2015I have a button on my main form that allows me to view one of my reports. In order to view the report I have to close my main form. My problem is how do I reopen my main form when I close the report that I have viewed? Some code that would reopen my main form when clicking on the X in the upper right hand corner of the report to close it?
View 13 Replies View RelatedHiding Access Window And Opening Report Preview
Nov 22, 2005Hi,
I successfully made this work, but when opening a report to preview it (using a button click) . it doesn't show up, is there a workaround with this? Thanks in advance.
Kind Reagrds.
Nelson