I have created an app that looks a lot like a wizard...start with one form and then must choose NEXT to move to the next form or BACK to the previous form...there are 11 forms in all - each is based on a different table but all have a single common ID between them.
On the last form there is a FINISH button that will close all the forms and store the information.
My question is this: can I put a CANCEL button on any/all of the forms that will close ALL of the open forms without saving any of the data? If so, what is the simplest way to accomplish this?
There will 5 additional sections of the database that will work the same way but with different forms and I would like to be able reuse as much of the code as possible without having to explicitly define the open/or possibly open form names in the code.
I have a form that has combo boxes and text fields (as well as sub forms). There is also a button linked to some code that says'
Private Sub cmdQuote_Click() 'Creates quote date and prints quote Me.QuoteDate = Now() Me.cbAgentID.Requery DoCmd.OpenReport "Quote", acViewPreview, , "BookingID = " & Me.BookingID End Sub
When the button is pressed the QuoteDate field (it is bound) should be be populated, but unfortunately it is not. I have played with refresh and requery but cannot derive a solution.
Hi I am trying to get access to close all open forms and open the selected form when a button is pressed.
I tried this in a macro like so:
open switchboard open new.client close (forms)
The switchboard is used as a back drop to the database. the new client form will open over this (pop up is set to YES) Any other forms will be closed at this point.
I can only get it to close one form at a time which means I have lots of close commands in each macro.
The problem is, if I add a new form then I have to go through each macro to reset it to take that form into consideration.
I have a module to open form using a menu. The source of the form is a query with record source lstpreinterview on a form named eforms.
Public Function Openmyform()
If IsNull(Forms!eforms!lstPreInterview) Then MsgBox "Sorry. You need to select a record!" Exit Function
Else 'If the record has been selected, well then it can open the macro Openemyform If Not IsNull(Forms!eforms!lstPreInterview) Then DoCmd.OpenForm ("Myform") End If End If
End Function
I need to place a close form action as soon as the Myform opens. I need to close the active form and since this procedure will open several forms I cannot specify the active form name. Is there a way I can handle this so to avoid having multiple forms opened? Thanks.
I have combo box that lists data from another form (frmCity) . If the required data in not in the list then frmCity is opened, a new record is entered and form closed. The combo box in the first form (which has remained open) does not show the new entry unless it is closed and re-opened. How can I get the new record to show without closing and reopening?
I have a form frmAddNewProject that is a Data Entry form.When you click Add Project on the form, it creates folders and copies files to a location and also creates new record(s) in the ProjectT table with appropriate information.Here is my code:
Code:
Private Sub cmdAdd_Click() Dim FSO As Object Dim FromPath As String Dim ToPath As String Dim FolderPath As String Dim strType As String Dim strYear As String Dim strGPN As String
[code]....
Everything works fine till here. Now I would like to close the form but closing it gives me an additional empty record.
Code:
Dim ctl As Control On Error Resume Next For Each ctl In Me.Controls ctl = ctl.DefaultValue Next Set ctl = Nothing
to remove all values, but then it just adds an empty record.Is there a way to close that form without removing my legitimate new records and without adding empty ones?
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.
I am trying to find a way to hide the close button on the ribbon. My 2007 and 2010 users keep closing the database by the "x" and it's driving me nuts. I have an exit on the switchboard. I tried to disable navigation and ribbons under options and it hides everything except the x. I tried the code:
Code: Docmd.Showtoolbar "Ribbon", acToolbarNo
In the startup form. Still doesn't give me what I want.
I have a simple EXIT command button that runs these macro actions: save record, close form. I also have a SAVE command button that runs this macro action: save record. If a user closes the form without clicking either the EXIT or SAVE command buttons, will the record changes be saved in the datasource table.
I have found from testing that the data is always saved even if the user does not click the EXIT or SAVE buttons, but I wanted to be absolutely certain. Is this correct ?
After creating multiple instances of a form how should they be closed so as to ensure that all of their assets are disposed of and there are no memory leaks? DoCmd.Close seems not to work because it expects a name string which would be the same for all instances of the form.
Since a form's name is a read only property it cannot be modified when the form is created so it doesn't uniquely identify a particular form instance. I've tried setting the form reference to Nothing which appears to work, but I'm not sure whether this is the correct technique and whether it disposes of everything cleanly.
i am wanting to close all forms on timer event. all forms except one. also if any form is dirty then i do not want to even start running the vba.i have seen a thread that gives me the code to close all forms except listed but im not sure about getting access to look at all the forms first, see if any are dirty then exit sub
the main reason for this is my staff sometimes do not log out. and for audit trails this can be bad. who's done what when and where.the code for closing all forms
Code: 'This code closes all open forms in the current project and then opens the named form in quotations Dim obj As Object Dim strName As String For Each obj In Application.CurrentProject.AllForms Debug.Print obj.Name If obj.Name = "StartFilter" Then
I have designed a form using the wizard from a table which records transactions for an entity.
I have a Primary Key (auto number), entity id, transaction amount, description and date fields in the table.
I look up the entity using a list box, then populate unbound fields then use CurrentDb.Execute "INSERT INTO in order to save the new record.
When I open the form for use, it automatically changes the entity id of a previously added record to the most recently selected entry in the list box. I am unsure why it does this. It seems to be editing previous records when you change the value of the list box.
I have a bound form that is used to enter company info (address, name, category...etc). When the user closes the form, if Company name, province or category are left blank, I warn them with a message box asking if they want to exit and undo changes, or return to the form to fill in the missing info.
When they choose the option of returning to the form, I get 2 errors. You must enter a value in "tblCompanies.category", and "You can't save the record at this time, do you want to exit without saving?". If I click "No" on the second warning, focus is set to the missing data control and I can continue working.
How can I prevent the record from being saved when I choose to return to the form to fill in the blank records?
Code: Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo Form_BeforeUpdate_Error Dim Response As Integer ' Determine if required fields are populated. If IsNull(Me.txtCompanyName) Then Response = MsgBox("Company name is a required field. Do you wish to discard changes and exit?", vbYesNo,
I have cleared the data out of the database and started testing it to check its usability.I entered in a full record, and flicked back and forth between the records, and everything was looking good.
Then I closed the form, and re-opened it and my record was no longer populating the form fields.I've literally changed nothing bar one field that was changed from number to text.
I have a form and a report that will not save the changes nor close. I have done compact and repair, performed a restart and it is still happening. What could cause something like this. I have been working all day on other forms and reports without incident.
I have some code (see below) that checks if the start date text box is blank or greater than the end date, and if so, generates a message box and sets the focus back to the start date textbox. There are command buttons on the form that open queries based on the date fields. This all works fine.
However, if the user changes his mind and closes the form without filling in the date field, the message box "Please enter a start date" pops up repeatedly. How do I specify that a text box is required UNLESS the user is closing the form?
Code: Private Sub txt_startdate_LostFocus() If ((IsNull(txt_startdate) Or (txt_startdate) = " ")) Then MsgBox "Please enter a start date.", vbOKOnly
frmTaskTracker -subfrmInbox (Datasheet View - based on a query)
frmUpdateInboxItem
subfrmInbox displays a summary of tasks on a task list. The user navigates to frmUpdateInboxItem from frmTaskTracker. After updating a record from frmUpdateInboxItem, it is possible that it the record in question will no longer meet the requirements to have it listed on subfrmInbox.
I have attempted to add code to the on close event of frmUpdateInboxItem to requery the sub form on frmTaskTracker but am not getting the syntax correct.
correct my code? Alternatively is there is a more correct way to do this, I'd be happy to learn it.
Code: Option Compare Database Private Sub cmdClose_Click() Me.[frmTasktracker]![subfrmInbox].Requery DoCmd.Close acForm, "frmUpdateInboxItem" End Sub
I have a Main form with a combo box that pulls names from a table. Alongside the combo box is a command button that opens a form which allows the user to edit the names in the table.
The problem: When a user edits a name and closes the edit form, the edit is not immediately displayed in the combo box. However, when the Main form is closed and reopened, the edit is properly displayed. Can I somehow refresh the combo box in the On Close event of the edit form?
