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 am having a problem getting my query to work properly. I have read through this query section but it just got me more confused. I know some have used IIF function but it didn't work for me.
here's my code:
SELECT tblEmployee.UserName, tblODF.ODFNumber, tblQueue.Queue, tblStatus.Status, tblODF.ODFScanDate FROM tblStatus INNER JOIN (tblQueue INNER JOIN (tblEmployee INNER JOIN tblODF ON tblEmployee.EmployeeID = tblODF.EmployeeID) ON tblQueue.QueueID = tblODF.QueueID) ON tblStatus.StatusID = tblODF.StatusID ORDER BY tblEmployee.UserName, tblStatus.Status, tblODF.ODFScanDate;
I want everything to show even if one of the fields is blank.
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 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
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 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 am wanting to ensure that a couple of combo boxes are not left empty, searching the forum I found this:
Private Sub Form_BeforeUpdate(Cancel As Integer) If IsNull([cboBox1]) Or IsNull([cboBox2]) Then Beep MsgBox "Please enter a value etc ", vbCritical, "Incomplete Data Entry" DoCmd.CancelEvent End If End Sub
This is similar to other solutions I came across, problem is it isn't working, I have 2 controls on my form called cboBox1 & cboBox2 so I can't see why it wouldn't work. Would be grateful for any suggestions. RussG
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.
Hi guys, I have a query that displays records that fall between 2 dates (using 2 input text fields). How can I make it dispaly all records if the user just leaves the dates blank?
I've searched through some forums and found that I can make this happen by using IS NOT NULL. But when I tried putting it in the OR row in my date field (and all other places), the result is that the query displays all records that have a date value regardless of my other filters.
Can anyone point me in the right direction where I should actually place the IS NOT NULL? I attached my Query view for easier understanding.
I am creating a query which uses 2 unbound text boxes to populate a Between function for 2 date fields. If I fill in the dates, it returns the corresponding data. If I leave them blank, however, it returns no records. Is there an easy way to tweak the query to return all records if left blank?
I have set up a form to run a query with the criteria linked to the options/drop down menus on the form. I am able to search for criteria set out in the combo boxes. However, what i would like to ensure is that if the drop down boxes are left blank the results will be to show 'all' results for that field.
I am a bit of a novice when it comes to Access, but have managed to create a form with a subform embedded and various filters to show different data within the subform, including a date range filter. The code I have used for these filters is as follows:
Private Sub Command40_Click() Dim strCriteria As String
This all works fine, but I'm wondering what I need to add to this code to make it so that if the date boxes are left blank, records from all dates are displayed. At the moment I have to enter dates in order for it to work properly.
I've been toiling with the issue of WHERE clauses on the "Right" side of Left Joins. I'm aware that you need to use JOIN ON......AND.... rather than JOIN ON....WHERE.... if the WHERE relates to the Right Hand table.
I've even got an example in my DB where the above works, but now am struggling to use the same theory for other tables. Therefore, I went and created two Mickey Mouse tables to test the logic but am getting an error.
I have Table 1 with one field called Field 1 - values A, B, C Table 2 as follows
Field 1.....Field 2.......Field 3 A.............100 C.............200..........XXX
I hoped to have a query that finds all records on Table 1 and records on Table 2 where Field 1 matches on the two tables and Field3 = XXX
My SQL is SELECT Table1.Field1, Table2.Field1, Table2.Field2, Table2.Field3 FROM Table1 INNER JOIN Table2 ON Table1.Field1 = Table2.Field1 AND Table2.Field3="XXX";
I hit ok and the usual invoice_id param text box message box appears again.
Once that is over, I gain access. I can browse to the form - frm_system, open the sub-form sub_frm_invoices and remove the invoice_id field. Once I re-add it everything works fine (until I close the application).
I initially thought it was because the database was set to "compact on close" but I disabled that and it is still occuring .
I know this is the cause but as the sub-form itself uses a table record-source I know the field exists - not to mention I can simply delete and re-add it to fix it temporarily.
This behavior occurs when a field, a criteria, an expression, or a control in a query, a form, or a report references a name that Access cannot find. For example, a name could be misspelled or a field may not be available within that scope.
Basically it looks like the textbox displaying the invoice_id on the form is the problem. I can't figure out why though. When I remove it everything works - the queries work if I recreate it as well..
Thanks for all of the help you have already given me.
Here's another.
What I'm trying to do it get a field, which is a combo box, to pop up a warning when someone tries to change it. I'm trying to keep people from unknowingly change the name field of the time sheet. I only want the warning to show if the field being changed already has a name in it.
Here is what Ive tried.
Private Sub Employee_BeforeUpdate(Cancel As Integer) If Not IsNull(Me.Employee) Then MsgBox "Are You Sure?" End If End Sub
The warning works, but it shows up regardless of the field being empty or filled.
I'd like to have it so I get a msgbox using vbyesno to give the user a choice whether to keep the change or accept it.
Any help would be greatly appreciated. Thanks again!
