I use a close button to close a form. There is list box in this Form. If the list box is empty, then simly close the form. However, if there are projects in the list box, I want to give a warning. If the user say YES, then everything in the listbox will be deleted and the form will be closed. If user say NO, tehn the form will not be closed. They then can use anotehr button to save teh projects.
I wrote the follwing code. The delete portion itself works. But it seesm comfused with msgbox. Could you pelase help me correct this code? Thank you very much for your help.
lbDestination -- list box name
Private Sub Close_Click()
On Error GoTo Err_Close_Click
If IsNull(Me.lbDestination) Then
DoCmd.Close
Exit Sub
End If
If MsgBox("You have unsaved initiatives. Are you sure you want to close?", vbQuestion + vbYesNo + vbDefaultButton2, _
"Delete?") = vbYes Then
Dim rsDestination As DAO.Recordset
Set rsDestination = CurrentDb.OpenRecordset("tbInit", dbOpenDynaset)
rsDestination.MoveFirst
Do While Not rsDestination.EOF
can someone please modify the following code to add a warning message to an add button.................this add button allows to add details filled in a form...
Private Sub addrec_Click() Dim strSQL As String DoCmd.SetWarnings False
I have struggled with this for so long now I hope someone can help. I have a form called frm_Collections which is run from the query (qry_Collections). When I type into the Reg field in the Form I would like the user to know if the Reg details have already been used in a previous record. The database can have duplicates in this field, however a "Warning Message" would promt some investigation. I have tried loads of DLookup on Before Update, but really need setting of in the right direction. Thanks
I apologise if this has been answered, I couldn't find anywhere else on the forum.
On the data access page it gives an annoying warning that says 'This website is using your identity to access a data source. If you trust this website, click OK to continue, otherwise click cancel'.
Is there a way I can suppress this message? It looked cool at the start, but now it's just annoying....
I am building a simple db from scratch using the limited knowledge i have, and a lot of the information gained from searching these forums as a guest. I've now reached a point where I can't seem to find what I'm looking for, so any help would be gratefully received!!
I have a single table, single form and single report (told you it was simple;)). The table has nearly 2000 records and 2000 pictures (linked). On the form I can print every record with a single click of a command button. This is great, but I would like a message box to popup and confirm the print action, as this is gonna be expensive if its clicked on every record!!
If anybody can help, I would be chuffed!! I searched the forums and can't seem to find anything on this!!
I have an Access 2010 db on a shared network drive. All users accessing the db are running Windows 7 OS and have a licensed corporate version of Access 2010. The advanced options "Shared", "Edited record" and "Open dabases by using record-level locking" are turned on. Additionally, the locking time limits are set to their default levels. If a user selects the save icon after making additions or updates, the following waring message appears:
Costar Job Database can't save design changes or save to a new database object because another user has the file open. To save you design changes or to save to a new object, you must have exclusive access to the file.Since I developed the db, I am the only one that makes design or object changes. I know that users don't need to select the save icon to update the db, but I don't want them to "freak out" if they select save and see the message. Is there any way to prevent the message from being displayed?
I have a temporary table within my access database. I have a macro button that makes the table (thus deleting the old one in the process) and then appends information from three other queries to it.I want to stop the standard warning message from coming up. The message I get is below. I have already cleared the action queries check box so the warnings for the making table (if no previous table exists) query and appending data query have disappeared. However the below message still pops up when the make table query begins to try and delete the old table. How I can make it go away?
"The query you are about to run is a make-table query. Unlike most queries that displays data in Datasheet view, a make-table query creates a table and copies specific records from one or more tables and queries. If the table already exists, the query will replace the structure and contents of the table.If your intention is to create or replace a table, click Yes. To avoid being prompted when you run such queries, click the File tab, then click Options. In the Access Options dialog box, click Client Settings. Under Editing, clear the Action queries check box.
I would like to show a Message box to an operator when a certain number of records have been reached in a subform e.g when 36 records have been entered I want a message to appear telling the operator that a certain report can then be raised. Whether this is possible
I have a questions database. When user is filling out the form, the following fields are required: Questions, Author, Type of Question and Answer selected. Answer is selected by clicking on the button next to the Answers. If these fields are not filled out, a user gets a prompt saying that so and so field is blank. If have a problem, it works for all required fields except for Answer. Below is my code. I have attached a screenshot with Author and Answers blank. I only get a warning about the Author and not the Answers.
Code: Private Sub Form_BeforeUpdate(Cancel As Integer) nullerr = 0 strnull = "" If IsNull(Me.txtQuestion) Then nullerr = 1
I do have a DB that takes some data from Stripes and imports them into access. Since this will be a multi user DB I want to make a warning form.
Basically a user will do the download, I want a form or a pop up message that will show to the next user that will open the DB while the download process is ongoing, to see that the download data process is still ongoing, That he needs to wait until the data download has finished.
I have a table (ComponentT) of different device components a user can select from ( generators, gearboxes, etc.)
The table has 3 fields - ComponentName, ComponentType, ComponenentDetails
I have a query returning all the ComponentDetails values.
I then have a combobox that uses this query as a row source.
The user can select different components they want from the combobox. Once something is selected, it is added to a new table - UserSelectedComponentsT
As a device can have only one gearbox or one generator etc. I want a warning messagebox to be displayed if the user tries to select a generator from the combobox when one has been previously selected.
All i want to do is after executing the following code, close the form " EmployeeFind" on completion?
Private Sub Form_DblClick(Cancel As Integer) On Error GoTo Err_Form_DblClick Dim stDocName As String Dim Msg, Style, Title, Response Msg = "Employee allocated to Job" Style = vbOKCancel + vbInformation Title = "Employee moved" ' Define title. Response = MsgBox(Msg, Style, Title) If Response = vbOK Then
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
I have a form with a subform in it. On the main form, I have a combo box with a list of program numbers to choose from. Once one is selected, the subform displays all the unpaid invoices under that program number. This part works fine. The problem occurs when I try to close the form, switch to design view, or scroll the subform to the right. Basically, the error message says that the record can't be saved because it would create a duplicate value in the index/primary key. However, this form is used to display information only. I have disabled the edit, delete and addition abilities, so I can't figure out why it thinks I am trying to change or add a new record. Any help would be appreciated.
I figured it might make things easier if I included a copy of the database, so here it is.
The form is called SETR, and the subform is AllInfo subform.
i have close button on my form made thru the command button. But it does not show an error message when the form closes if information has not been entered in the reqired fields. it does not save the field though. how can i get the error messages to be shown before the form closes asking the suer to enter the missing data. thanks
The database that I currently work with has the option chosen to compact and repair on close so that if I am not present when there is trouble the users can close the db and the problem is usually corrected. I currently have a close button on the Main switchboard that closes the db. Is there a way to make a button or another way that will close the db that will by pass the compact and repair choice? I know that I can use task manager, but that usually creates db1, db2 and so on. Thanks,
I have a form that is loaded through a hyperlink from another form. On this form I have placed a command button which closes the form (DoCmd.Close) I have also used the full syntax including form name and no save prompt. When i close this form using the command button I get a request for two paramter values that are used in queries in this form (I don't want this to happen) when I click the close button on the control box "X" this doesn't happen also it doesn't happen if I use file close. This problem only occurs on some of the slower machines in my workplace, any suggestions would be greatly appreciated. The is one combo box on the form in question which is set to run a macro after update, this macro requeries the 52 list boxes on the form.
I am building a database to track employees. I have a form to input the personal information and want to close this form and open a new form to input the employee's training information. I have a cmd button to open the Training form for the individual, however I can not make it close the employee input form.
i am abit confused.. i have a save button on my form.. this is where field validation occurs and where the closeForm statement is (at the end). I need to keep the form's "X" button enabled.. how would i go about doing this exactly.. can i keep what i currently have (in the cmdSave_click event) and in the form_close event i can maybe have if me.dirty then... call my cmdSave_click event?.. Else.. closeform. Is this the right way to go about it??.. if so.. will my formClose statement (in my cmdSave_click event) be alright?
I have a form which I want to disable the close button. On the properties of the form I set Close Button option to 'NO'. When I open the form the form close button is disable, but as soon as I maximse this screen, the close button becomes enabled again. Any Ideas as to why this is happening and how I can disable this button comlpetely on this form?
