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.
Hi All, Is it possible to have just one instance of this message box fire when one or all or any number of the flags are triggered. At the moment if 2 flags are set then 2 messgage boxes appear,if 3 then 3 messages etc. My code at the moment is below to trigger the message box, hope I make my self clear;can it be tidied up?
private Sub Form_Current()
If Me.Flag1 = "Patient Alert. HIGH RISK. Med Hist" Then
MsgBox "**WARNING PATIENT ALERTS DETECTED**Read all patient alerts before treatment"
End If
If Me.Flag2 = "Patient Alert. ALLERGY. Med Cond" Then
MsgBox "**WARNING PATIENT ALERTS DETECTED**Read all patient alerts before treatment"
End If
If Me.Flag3 = "Patient Alert. Cat Score. LOW. Caution See Notes" Then
MsgBox "**WARNING PATIENT ALERTS DETECTED**Read all patient alerts before treatment"
End If
If Me.Flag4 = "Patient Alert. PATHOLOGY. Int/Ext Exam" Then
MsgBox "**WARNING PATIENT ALERTS DETECTED**Read all patient alerts before treatment"
End If
End Sub
Hi All,:confused: need some code help again, I dont seem to be able to get the hang of message boxes!! The code below takes the path to a mdb file which is stored in a text box on my form, it then deletes an existing table -Expire-and replaces it with a new table also called Expire from the database located at the file path in the text box.
Private Sub Command6_Click()
Dim tmpFilePath As String
tmpFilePath = Me!Text1
DoCmd.DeleteObject acTable, "Expire"
DoCmd.TransferDatabase acImport, "Microsoft Access", tmpFilePath, acTable, "Expire", "Expire", False
DoCmd.Close
End Sub
What I would like to happen is; when the process has finished a message box pops up and informs the user that:
"the update has been successfull, your DentureBase V2 licence key has been updated"
the form then closes. If it is at all possible I would then like the db to close and restart (but this is not essential).
Once again I appeal to your generousity, many thanks:D
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!
How do I code the following?
I have a field in a table called surname. This is not the primary key and I don't want to set it as a unique field however I want there to be a message box that comes up saying "There is already another person of this surname (or something like that" if the surname entered already exists in the database.
Any ideas appreciated
I would like to put a message on the screen for informing the user - mostly during some procedures that might take time or when, after a warning, I want to go on with the program but without action from the user.
Msgbox is obviously not the one I'm looking for as it needs customer acknowledge. Is there a solution for this task?
I have created a custom message box form that suits my needs for this particular situation. It is called (opened) in the middle of a bunch of other VBA procedures. What I am having a problem with is how do I "pause" the rest of the code from running after the message box call?
For example, with a regular msgbox() function, once called, the code will wait for the user input or click of a button, then continue. My problem is that I am using the basic docmd.openform procedure, and it opens the message box form just fine, but then continues on with the rest of the code after the form is opened.
How would I "pause" the code after the call of opening my custom message box form, then continue it after the user clicks one of my closing buttons from that form?
Furthermore, although its not entirely needed in this situation, for future reference, how would I have that message box form return a value to the calling procedure?
I need to create a message box or a form or something to flash on the screen to tell the user that a piece of "Update" code is running. the update code will be updated reports from marketing returns, but the 3 branches who use the information are separate so I am creating an update form to download and update the table.
The code for the update is already working, but can take a while, so I thought a message or splash screen would be useful as the update runs on start up.
It would have another use, I have a report which is made mainly of calculated fields on an onPrint event and also takes a while to work it out, so a similar screen would be more useful than my current spinning circle and blank screen.
Not being a code person. This code worked great for 2003, but we just installed 2007. I get an error message when the this code runs:
Its a complie error
User-defined type not found
Sub ShowUserRosterMultipleUsers()
Dim cn As New ADODB.Connection.....red shows where I get the error message
Dim rs As New ADODB.Recordset
Dim i, j As Long
Set cn = CurrentProject.Connection
' The user roster is exposed as a provider-specific schema rowset
' in the Jet 4.0 OLE DB provider. You have to use a GUID to
' reference the schema, as provider-specific schemas are not
' listed in ADO's type library for schema rowsets
Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
'Output the list of all users in the current database.
Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _
"", rs.Fields(2).Name, rs.Fields(3).Name
While Not rs.EOF
Debug.Print rs.Fields(0), rs.Fields(1), _
rs.Fields(2), rs.Fields(3)
rs.MoveNext
Wend
End Sub
Works great, but when I hit the number "3", (3 times in row) it will let me into the form. I want it to not let me in IF I don't know the password.
Where did I go wrong?
Private Sub Form_Load()
Dim pw As Variant
If InputBox("What is the password?", "Password") = "1" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
If InputBox("What is the password?", "Password") = "2" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
End If
End If
End Sub
I protect my code from people being able to read it by setting a password on the code from Tools > Properties, selecting the Protection tab and entering a password, and clicking "Lock Project"
Is there a way to write code that will remove that Lock Project check and check it back on?
I've looked through the Application.SetOption command and it doesn't seem to be one of the choices. It would be very helpful if someone knew how to do this.
Thanks
SHADOW
Any idea how to prevent the 'Unsafe Expressions' error message from displaying everytime Access '03 opens? (see attachment)
Thanks,
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?
Thanks for your help....Enivia
Hello,
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
End If
End If
Exit_PostInvoice_Click:
Exit Sub
Err_PostInvoice_Click:
MsgBox Err.Description
Resume Exit_PostInvoice_Click
End 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
thank you in advance
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!
Dear all:
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?
Thanking in advance,
Dion
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.
THANKS
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.
Thanks in advance for your answers.
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.
Fred fox
Anyone know how to suppress the folowing warning:
(I don't have admin rights so my solution will have to be done within Access :rolleyes: )
While going to the design mode of a form, I regularely get the following message :
Microsoft Access can't run the macro or callback function 'fDesign'.
In my Dbase there is no macro with that name.
Can anyone tell me what this messages means and how to get rid of this thing.
Running Win XP, Access 2003 Sp1
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
View 1 Replies View RelatedHi all,
I face a problem while openning a form.
It gave me this error message:
The expression On Load you entered as the event property setting produced the foolowing error:
User-defined type not defined.
What to do?
Sorry for bothering you.
Thanks & Regards
Mark K.
I get an error message when I open access 2003 database "database contains a missing or broken reference to the cacview.ocx version 1.0
All help so far says to go to tools>references.
My tools in the help menu does not have references
anysuggestions