I tried using a message box to try and validate text entry on a form into a bound txt box 'PaymentAmount', If there is no payment entered, using the properties box Validation Rule ,- 'is not null' then entered a validation text ="Please enter an Amount" but this does not work. How can I get a message box to appear if someone leaves the entry field empty so that they have to make some entry to move on. I have already entered this in the table validation field as well as 'Required - yes', but the message is an Access one not my own. Where or how do I do this ?
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 have a form which is based on student records. What I'm trying to get Access to do is to bring up an error message as soon a duplicate student number has been entered. At present I've managed to replace the Access standard error message 3022 with my own by using the following code:
Private Sub Form_Error(DataErr As Integer, Response As Integer) Const conDuplicateKey = 3022 Dim strMsg As String
If DataErr = conDuplicateKey Then Response = acDataErrContinue strMsg = "Duplicated record. Please recheck your data." MsgBox strMsg End If End Sub
However the error message only appears when you try to leave the form (e.g. start a new record). I would like the error message to appear as soon as the user leaves the Student Number text box on the form. Is there anyway to do this?
I have a subform where records can be added or edited. There are two fields: firstname and lastname. I want a message box to appear when a first or last name is edited. I do not want that message box to appear when a new name is being added. I use this code:
[CODE]....
Now I want to also prevent the user from leaving a record before both fields have data (first and last name are required). My efforts to do this seem to conflict with my message box issues.
Can anyone see what I'm doing wrong or how to do this?
I have a single table in my database and I have to make a form for entering contact details for clients, staff, funding bodies and everyone else into this table. There is a phone number and what code I would use the get it to check if the number already exists.
If it does, I wanted it to return a custom message telling you what entries it already exists for by displaying certain fields so that they can be identified, such as name and organisation, but then I wanted the custom message to allow you to confirm entry of the data anyway. This is because there may have been an error in entry or as some people may be contacted on the same phone number, I want it to allow the option to continue and enter the data anyway.
So now, I'm using the code below to prevent duplicate name entry and it is working great - EXCEPT when I enter a first or last name which contains a ' (ie, O'Tool, O'Malley, O'Hern)...anyone got any ideas for me on how to make this not happen?
The error I get is:
Run Time error '3075'
Syntax error (missing operator) in query expression '[Last Name]='O'Hern' And [First Name]='Lori'.
The code i'm using is:
Private Sub Last_Name_AfterUpdate()
'Check for duplicate first and last name using DCount
If DCount("*", "[Constituents]", "[Last Name]= '" & Me![Last Name] & "' And [First Name] = '" & Me![First Name] & "'") > 0 Then Beep MsgBox "This first and last name already exists in the database. Please check that you are not entering a duplicate constituent before continuing.", vbOKOnly, "Duplicate Value" Cancel = True End If
I was using the following code on a field (ItemCode) that was indexed to prevent duplication of records. The intent is that the user will get an error message that a duplicate exists before they enter all the data for the record and get the built in error message that Access 2003 provides when an index violation has occurred.
Code: Private Sub ItemCode_BeforeUpdate(Cancel As Integer) Dim Answer As Variant Answer = DLookup("[ItemCode]", "tblQuestions", "[ItemCode] = '" & Me.ItemCode & "'") If Not IsNull(Answer) Then MsgBox "Item Code already exists" & vbCrLf & "Please enter unique Item Code.", vbCritical + vbOKOnly + vbDefaultButton1, "Duplicate" Cancel = True Me.ItemCode.Undo Else: End If End Sub
Now, the index for this is based on two fields (ItemCode and Question Group). I would like to display the same message before update but don't know how to include the second field in the syntax.
I am looking at the public function routine, that validates the password entry. I want to know how i can make a message pop up with the specific error the user has made on entry.
Public Function ValidatePwd(varPassword As Variant) As Boolean Dim blnValid As Boolean Dim blnValidCriteria As Boolean Dim intChar As Integer
I have a database that makes use of standing orders. That means that if a client has a standing order to receive products during for example 4 time as year (quartely at the end of the month). to automate the new entry by copying an old entry in the database.
Let's say I have a client where we will have to send a product at the end of June, it will look at a field where the next send date is, and when it reaches 2 weeks for that date, to create a new entry in the database based on that entry. This way, it will pop-up in our open cases and we are aware of it and also will be visible in our report.
I am working on creating an access database for tracking physical assets linked to locations. I need to make a combo box list to show items other than the current location of the asset. Basically I need it to refer to last enery of the user and define the new possible entries. so we have a unique relationship between location and asset. The assets and location will always remain fixed and there is never going to be any addition. I am creating a web form so that it can be uploaded into sharepoint.
Hi All, I have a form with a comboBox to select "employees". I am using the combo.dropdown command to display 8-rows of employees. I also use the Not_In_List procedure to check for NEW employees, and if not in the list , then the msgBox appears asking "Do you want to add this employee?"
The problems is the MsgBox is behind the dropdown menu of listed employees. Is there a way I can bring the MsgBox to display on top of everything, something like "acDialog", close the drop.down?
I use a command button to post an invoice amount. I would like to prevent accidental overwriting of a current invoice amount. This code overwrites the amount even after clicking “No”. I would like the cancel the action when “No’ is clicked. Please help!
Private Sub PostInvoice_Click() On Error GoTo Err_PostInvoice_Click
If IsNull(InvoiceBalance) Then [InvoiceTotal] = Me.InvoiceTotal1 [InvoiceBalance] = Me.InvoiceTotal1 [DueDate] = Me.InvoiceDate + 30
Else MsgBox "You are about to overwrite the current invoice balance"
MsgBox "Are you sure you want to overwrite the current invoice amount", vbYesNo If vbYes Then [InvoiceTotal] = Me.InvoiceTotal1 [InvoiceBalance] = Me.InvoiceTotal1 [DueDate] = Me.InvoiceDate + 30 Else Exit Sub
I have a Macro that I made to archive 4 different tables...using append queries and delete queries and attached the macro to a button on a form. I had to disable the warnings because there were just too many of them...i was wondering if there is a way to customize one warning (like: Are you sure you want to do this? YES NO) is there a way to do this and add it to my existing macro. I want to give the data enterer a chance to make sure they understand what is going on. I know i could create another form as a secondary confirmation screen and have done this for the time being but a pop up warning would look much more professional
I would like to display a pop-up message on a form when a specific field has been changed. I know how to add teh pop up message for that section; however, I would like the pop-up message to display data from a sql statement. Here is the sql:
select PurchSpecialHandling FROM InventoryMaster1 WHERE Part=(input from form)
I need to know what to place for the input from form, how to assign a variable to the result, and display the data. Thanks!
I have created a form with a command button called "Dual Degrees".
This is based on a query. When this button is pressed, it returns a report with the corresponding image on it. It works well, but when there are no students in the database with dual degrees, it returns an error message. The message is: "Run-time error '13': Type Mismatch.
When I press the debug button, It defaults to this: Me! [ImageFrame].Picture = Me! [DEANS_SIGNATURE] End Sub
Is there a way to for a pop-up message to appear when the Dual Degrees button is pressed saying "No Dual degrees to print" if there are no students in the dastabase with dual degrees?
I want to create my own message box that will tell the user after they click the trasnfer button that they are about to transfer records to another table. They should be able to click ok or cancel. Access already has some warning boxes but I disabled those and just want to create one.
I am trying to write the code which will show a Message Box if another field in a table is "Not Null" . Here is what I am attempting:
Upon exit of [JobFieldname] Look at record in [Table].[Jobinfo]. where [JobFieldname] match If [Yes/Nofieldname] = "Yes" then Open Message Box "My message Here"
Can someone help me? I havn't found the answer looking through the threads.
I use a list box with textfield to fill a form in but when I fill in data which is not in the listbox, I get a warning from MS Access: "The data you privide is not an item from the listbox , Please choose an item from the list." No probleme at this point!
But me I want set off this wornings and to use my own worning message. I have tried D0cmd.setwornings False.
I get my own worning message but after I still get the message from MS Access.
Any Idea how to solve this probleme. I will be gratiful.
Can you please also help me with this, it is the database that I am trying to set up for a Shopmobility Sceme and need to tie up some loose ends before I go live.
I have condensed the original database and left the relevant part in.
On the Usage form when I enter a vehicle number I would like it to automatically show Type, Make & Model
And when I type Membership Number in I would like it to automatically on the usage form show Authorised, first name & Last Name.
Also on the usage form. when I enter Time Out and Time Back it gives me a total in the field but does not show up in the usage table.
Many thanks for your last input that is now working fine.
I have attached a screen print of an error message I recieved on my access database. I finally got it to come up, but only after a few pop up boxes with this error message.
I do know the shared drive it is housed on went on the fritz. So I copied it and pasted it to my desk top. Grrr...I thought this message was due to the flipping shared drive. But now, I recieved it on my desk top too.
Anywho...can someone look at it and tell me what it means.
Thanks alot.
PS, i know my desktop has to much stuff, so don't go there. ;)
Hi can anyone help i keep clicking on a qry and it comes up with this message "Syntax error (missing operator) in query expression 'tblSTSLimits.Max Short'. but Max Short is correct can anyone help
