I am at my Login Screen, I want it to return to the Login Screen if you select "NO" and Close the DB if "YES"
Here is my current code:
Private Sub Form_Close()
If MsgBox("Would you like to EXIT the Database?", vbYesNo, "Quiting Database") = vbYes Then
Application.Quit
Else
???
End If
End Sub
Hi
I need a button code in the OnClick event.
I want when clicking on the button, to close the currently opened form and open another one.
Any help will be very much appreciated!
Thanks guys!
C.
I am tying to create a cmd btn called "Report" that when clicked opens a form [quick report] in dialog window. I have that done easy enough. But what I want is if that form [quick report] is open, and you click the same button "Report" for it to then close the form.
View 3 Replies View RelatedPer the instructions detailed here...
http://www.fontstuff.com/access/acctut08.htm
...I created a parameter query in the form of a drop down box that uses a
command button to produce a query.
The code is as follows:
Private Sub cmdCreateReport_Click()
DoCmd.OpenQuery "qryUIRFollowUp", acViewNormal, acEdit
DoCmd.Close acForm, "frmOpenUIRLookUp"
End Sub
This produces the data I need in datasheet view. I want to use this same
data to populate a form I've created that will use the above data as a
springboard to add more data to another table (also connected to my form).
So what code do I need to add to the above so that along with producing the
data the command jumps right to the next step and feeds this data
into the form and then displays that form?
Thanks for the help,
David
I have set up a command button within a form and wish to output results from a query for a specific company. The query has been set up.
View 1 Replies View Related Dear All:
Does anyone know how to use a command button to open a Pdf form in access?
This Pdf form is on the "c" drive called "portfolio".
Thanking in advance,
Dion
I have a form with a drop down list that is coming from a query (City Query)
I have a command button to open a form for data entry to the City table -
When I open the form for city add a record - close the form.
I then go to the drop down list (city query) to select the record that was just added to the city table and the record is not in the query.
What do I need to do for the newly added record to show in the query drop down?
I have based a form on a parameter query, so that when the user is prompted to enter a 'Hobby' to search on, the relevant records will be displayed on the form.
Now, I have created a command button designed to open a template letter in MS Word for a particular hobby. The problem is, I need the command to open certain file depending upon the value input in the parameter box intially. How would I go about doing this?
i have some command button and some combo box on my form and also a subform. the subform contains some field. the fields used to enter numeric values.
i need to disable my command button on the form based on the subform fields if they r null.
Form 1: I have a combo box on my main menu(MenuMainF) called cboCompanyType with typical values 1,2,3,4,5,etc......
Form 2: I have a command button on my administration menu(MenuAdminF) called cmdDevelopment
My goal is to have the cmdDevelopment button of Form 2 be visible if cboCompanyType on Form 1 is equal to 1,2,3, or 4, but if it is any other value, then cmdDevelopment should be not visible.
Is there a command line argument to open AND close a db? I am running a schedule task to open a db which has an autoexec macro but I don't want the db to stay open after running the macro. Or is there a close db function in a macro? I see close form but not db.
View 2 Replies View RelatedI'm trying to use a command button in a form to filter and open a report. I am able to get it to open the report, but I cannot get it to filter the report based on a combobox in the form. I've tried every combination of code I could think of and find. Here is what I currently have:
Code:
Private Sub FilterReport_Click()
DoCmd.OpenReport "Report", acViewReport, "First Name='" & Me.FName & "'"
End Sub
Code:
Option Compare Database
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = Me.FName
End Sub
"FilterReport" = Form Button
"Report" = Report
"First Name" = Report Field
"FName" = Form Combo Box
I have a continuous form in which I put a command button for each record called "detail". I would like to click on the "detail" button and make it open another form containing all (and only) the info on this record.
At first I refused to use an "id" to link both forms, but finally I added the "id" in the table... however still does not work.
continuous form: "04 - GASTOS_BUSQUEDA"
id field on continuous form: "Gastid"
pop-up (details) form: "GASTOS_EDITAR"
id on pop-up (details) form: "editar_id"
This is what I have tried on the "click" properties of the "details" button field (called "btn_editgs"):
1)
DoCmd.OpenForm "GASTOS_EDITAR", acNormal, , "[editar_id] = " & Me.Gastid
2)
DoCmd.OpenForm "GASTOS_EDITAR", , , "[editar_id]=" & Me.Gastid
3)
stLinkCriteria = "[editar_id]=" & Me![Gastid]
DoCmd.OpenForm "GASTOS_EDITAR", , , stLinkCriteria
4)
Private Sub btn_editgs_Click()
On Error GoTo btn_editgs_Click_Err
Dim strWhere As String
strWhere = "[editar_id] = " & Me.Gastid
DoCmd.OpenForm "GASTOS_EDITAR", , , strWhere
btn_editgs_Click_Exit:
Exit Sub
btn_editgs_Click_Err:
MsgBox Error$
Resume btn_editgs_Click_Exit
End Sub
I currently have two forms: frmE_SAFind and frmE_SAOrder
frmE_SAFind shows results from a query including fields [txtIDPO] and [dtmDate]
Example:
IDPO Date
btnOpnFrm 6543 2/1/05
btnOpnFrm 5681 1/1/05
frmE_SAOrder shows order details including [txtIDPO] and [dtmDate]
I have a open form command button set up on [frmE_SAFind] that opens [frmE_SAOrder]. Is it possible for me to modify its properties so that when the open form command button is clicked, the order details in [frmE_SAOrder] will represent the order that the user is selecting via the btnOpnFrm command?
Example: If I click btnOpnFrm for 6543, [frmE_SAOrder] will show me PO 6543 details.
Hopefully I made myself clear enough to understand. Thanks for your help!
I have a subform in which I want to put in a Command Button to open another form.
I used the wizard as per normal, but when you come to matching specific data fields, there is nothing in my left hand column of the sub form. I have checked the record source property and it is bound to the correct table.
I have read that this is an issue with Access 2007? Is this the case or am I missing something obvious here?
This is code in a command button on a form to preview a report.
DoCmd.OpenReport stDocName, acViewPreview, "Control Room Query", "[Lot #] = Forms![Hydro COA]![LotNumber]"
What could I change in this code to use in a different command button to have the report sent as an attachment in snapshot format in an email? The user would have to fill in the address, subject and body of the email.
Thanks much!
I have two text boxes and a check box - so the user can enter (1) patient weight, (2) patient height and then check whether the patient is male or female. The first two are then used to calculate a Body Mass Index. (simple enough and works OK). What I then want to do is have four command buttons that become visible when the calculation is within a certain range. So - simplistically- if the calculation (calctxtbox) is between 0 and 5 AND the patient is female then the command button called "normal"(Command79) is enabled.
My VB code writing is improving (thanks largely to this forum!) but still very basic - can some-one help please?
Do I put my code in the "after update" event of the calctxtbox?
Private Sub calctxtbox_AfterUpdate()
If calctxtbox > 0 (How do I say and <5) and then how do I say Female =Yes Then
Command79.Enabled = True
End Sub
Am I close?
Also can you enable labels and text boxes or just buttons.
Hi!
I have a cmd Button in a form that onclick is suppose to open the selected record in a specified form.
My problem is when the specified form opens it doesn't have any data in it.
Any thoughts would be much appreciated!!
Here is the cmd button code i used:
Private Sub Command14_Click()
On Error GoTo Err_Command14_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "COURSES SWITCH"
stLinkCriteria = "[COURSE SHORT TITLE]=" & "'" & Me![List8] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command14_Click:
Exit Sub
Err_Command14_Click:
MsgBox Err.Description
Resume Exit_Command14_Click
End Sub
I have created command buttons to enter event registration information after biographical information has been completed. When I click on the button I get the following error message:
"Microsoft Office Access cannot find the field '|' referred to in your expression."
This is the On Click code that I have in there. Can anyone spot the error of my ways?
Private Sub RegisterButton_Click()
On Error GoTo Err_RegisterButton_Click
If IsNull(Me![AttendeeID]) Then
MsgBox "Enter attendee information before registering for an event."
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "Registration", , , "[Registration]![RegistrationID]=Forms![Attendees]![Attendees Subform].form![RegistrationID]"
End If
Exit_RegisterButton_Click:
Exit Sub
Err_RegisterButton_Click:
MsgBox Err.Description
Resume Exit_RegisterButton_Click
End Sub
Thanks!
Hi all,
I am wandering if someone can help me out on this i have a thermal printer with it you get some ative x components to control the printer like for example what i am tryin to do is kick the cashdrawer which is connected to the printer,
Now the activex button does work correctly when click but i have another command button which prints out a couple of pages odf information so what i am tryin to do is have abother cmmand button when clicked run the code and then calls or runs the active x button to open the drawer is there a way i can do is i tried using the call statement with the name of the activex but with no luck.
i would really appreciate it if someone can help me out on this. thanks.
Regards
Naym
Is it possible to have a cmdButton open a pre saved image from your hard drive. The images are saved with the same name as the Account Number. (ex: AcctNum -- TA123409 Image -- TA123409.bmp) I want the cmdButton to open the image filtered or based on the Account Number. If so, could someone show me a sample OnClick code. Thanks
View 7 Replies View RelatedHello,
I would like to make a comand button in my form that will open a specific web page.
Can some one Help Me Please?
Dear All:
I would like to use a command button on a form to open a table. The name of the table is called "MAJORCODE"
Any suggestions?
Many thanks,
Dion
I have created A command button (OK) on the form but can't figure out the code. My Scenario is:
1) I have 2 cascading combo boxes
2) I have a text field as attachment
What I want is to select the value from second combo box then I want to click command button to view the attachments instead of double clicking the attachment and also I wanna ask is there any way to modify the display view of attachments in access a part from paperclip and image icon.
I have set up a database that houses file locations. The form that I have made shows a job # and the files that correlate with it. I would like to set up a command button that will read the file name and open it in Excell. If any one know how to do this I would greatly appreciate the help.
View 3 Replies View RelatedI am trying to open a workbook with a command button on a form however the path to the file is giving me a fit. The path for the file location contains spaces and I am going blind trying to figure out how to rectify the path. Heres the line. I am sure someone here will see this problem quick! Thanks.
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
Dim stAppName As String
stAppName = "Excel.exe N:OPSCOMMONOpsResearchContact CenterDI CCL Reporting dBApps by Agent.xls"
Call Shell(stAppName, 1)
Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub
Heres the mess I made out of it:
stAppName = "Excel.exe N:OPSCOMMONOpsResearchContact" & Chr(32) & "CenterDI" & Chr(32) & "CCL" & Chr(32) & "Reporting" & Chr(32) & "dBApps" & Chr(32) & "by" & Chr(32) & "Agent.xls"""
:confused: