MsgBox To Appear Based On Code
Nov 9, 2006
Dear all:
I have a database with the following info: Last_Name, First_Name, ID number and major_code. The major_cd is a 3-digit alphanumeric code.
I have created a search field using the wizard to find a person by ID number which works fine. When a person is found the Last_Name, First_Name and major_code fields populate.
Is it possible to have a pop-up box appear based on a specific major_cd that is already in the database?
I am most apprecative to anyone who can help.
MANY THANKS!
Dion
View Replies
ADVERTISEMENT
Mar 28, 2007
Hello,
My database has two main tables: Table1 and History
Users can add data to this table and decide if store part of data into the History table using an append query behind a cmdbutton. I do this to create an Historical Log of my records.
I then have a main form (form1) with the following code on the OnCurrent event:
If Not IsNull(DLookup("[SSN]", "history", "[SSN] = '" & [SSN] & "'")) Then
msgbox "Record present in the Historical Log!", vbOKOnly, "Warning"
end if
I would now like to change this code so that users are prompt with a message that allows them to either open the form1 or the Historical log (frmHistory)
I would need something like this but cannot get it to work:
If Not IsNull(DLookup("[SSN]", "history", "[SSN] = '" & [SSN] & "'")) Then
msgbox "Record present in the Historical Log!", vbYesNo, "Warning"
If vbYes Then
DoCmd.OpenForm "frmHistory", acNormal, "qryhistoryfrommsgbox", "", , acNormal
If vbNo Then '
'open the regular form1.
Another thing I cannot figure is why this pop up msg comes up even if I close the form. Is there a way to revome it from the close form event?
Thanks.
View 4 Replies
View Related
Aug 13, 2013
I have a form with one field on it. I want to be able to look up a value on this form and based on whether it is in the table or not give a message box saying yes it is there, or no it is not and then reset the form to look up another value.
View 3 Replies
View Related
Jun 12, 2013
I have a file that I need to import on a regular basis. There are two different issues with the import:
1. the first digit in the file indicates if it is a record I want to keep. In this case a 1 indicates a repair record and an 8 indicates it is just information such as email, contact info etc.
2. I have a field in the file that may change the import specifications
For example:
If the record is a Non wheel repair then column 167 is a 50 character description
If the record is Wheel repair then column 167 is a 28 character description and the remaining 22 characters are broken down into 10 different fields
So I need to do the following
1. Read the first character in the line and determine if it is a number 1 and if not discard it
2. Read a field in column 109 that is two characters long and if it says it is a wheel repair the import will break column 167 -216 down to the appropriate 11 fields and if it is a non wheel repair it will import columns 167 - 216 as one big description field.
I have used the import specifications with Access but it seems this will have to be done in code in a module or something and I am not very good with VB. (only know the basics)
One other issue is I have dates in the file that are 130225 and 1302 (so full date and then Year/Month) if i take out the / date separator in the import spec the full date works but the Year/Month doesn't.
View 9 Replies
View Related
Nov 10, 2005
If I have the following Code to disable a field based on the value of another field:
Private Sub lstAgreementType_AfterUpdate()
If Me.lstAgreementType.Value = "BN" Then
Me.txtSenateAandCDate.Enabled = False
Else
Me.txtSenateAandCDate.Enabled = True
End If
End Sub
But I also need it to disable the field is equal to "BA" or "BT" as well, how would I add that to my code?
View 3 Replies
View Related
Apr 1, 2007
Could anyone please tell me what is wrong with this event procedure? I get an compile error always. What I want is, if the condition is not met, the message box would pop up otherwise close the form. Please help.
Private Sub (Field Name)_BeforeUpdate(Cancel As Integer)
If (Me.MyFieldName = condition) Then
MsgBox "My Message"
End If
Else
DoCmd.Close
End Sub
View 5 Replies
View Related
Feb 21, 2005
Im want to create a msgbox that pops up when a parameter is entered wrong.
Ive created a query to search for customers - When run a box pops up saying 'Please enter surname' - If correct then a record appears.
If the surname is incorrect i get a blank table. I want a msgbox to pop up saying something like 'No Records Found. Please Try Again'.
Ive also created a button on a form which runs the query, this works fine:
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
Dim stDocName As String
stDocName = "Customer Search"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub
How can i change this so a msgbox appears if nothing is found?
Any suggestions welcome. Thanks in advance... :)
View 7 Replies
View Related
Nov 14, 2005
In MS Access,
MsgBox "Are you sure", vbOKCancel
and there is OK , and Cancel buttons.
I want to do that if click "OK", then run the action, if click "Cancel", then cancel the action.
eg.
MsgBox "Are you sure", vbYesNo
If (vbYesNo = 1) Then
// run the action
End If
So, how do I edit it?
Thanks.
View 1 Replies
View Related
Dec 22, 2004
hi all
i have an event procedure with a msgbox using vbOKCancel.
if the user clicks cancel, basically i want to cancel the event. If the user clicks OK, I want to resume the event and complete the bunch of commands. What statements do I need to do this. I assumed that cancel meant cancel.... but...
I appreciate any help
Damon
View 4 Replies
View Related
May 2, 2008
I am trying to popup a messge box that has multiple lines.
I have three textboxes on my form
When I click the button I want a messagebox to pop up and say
ON FOUR LINES:
"Are you sure you want to update:"
Textbox value 1 [The actual value]
Textbox value 2 [The actual value]
Textbox value 3 [The actual value]
I am starting with this but am a bit confused...Any help woudl be appreciated...
Code:If MsgBox("Are you sure you want to update this?" + "THIS:", vbYesNo + vbQuestion, _ "Save Record") = vbNo Then MsgBox "DOING NOTHING" Else MsgBox "DOING SOMETHING" End If
View 7 Replies
View Related
Nov 7, 2006
I've included the following code for when my report has no data.
Private Sub Report_NoData(Cancel As Integer)
MsgBox "No data for report"
Cancel = True
End Sub
but when you click OK on the MsgBox, the code falls over within the form, which originally opened the report on the calling line with an error message "The OpenReport action was cancelled".
This is the line of code in the form....
DoCmd.OpenReport "My report", acViewPreview, acEdit
Any ideas how I stop this happening. Thanks.
View 2 Replies
View Related
Jun 29, 2005
Can anyone tell me whats wrong with this code, its not working for me!!
If ((txtpassword = "") Or (combusername = "")) Then
MsgBox "Please Enter A Valid Access", vbOKOnly, "Error"
End If
View 4 Replies
View Related
Jun 16, 2006
Is it possible to use a msgbox to fill in a control on a form?
View 4 Replies
View Related
Jan 21, 2007
I have 2 fealds ( Id and date ) they are primery keys in the table , I want to prevent duplacte id to the same date . ( MSGBOX after update the date )
View 7 Replies
View Related
Mar 11, 2007
Hi, I have a formcalled Register and this table contains Name-of-Employee, Username and some other fields. The form searches the Register table when someone wants the register, and if the username is already taken up by another user, it gives a message box saying that the username is already used, and also it will give some suggestions as well. I want the MsgBox to take the first letter of "Name of Employee" and then put it beside the username, and show it as a suggestion. Here is the code I already have:
Dim d As Database
Set d = CurrentDb
Dim r As Recordset
Set r = d.OpenRecordset("Staff Login")
Dim h As String
h = Me.Username
r.MoveFirst
Dim flag As Boolean
flag = False
Do While Not r.EOF
If h = r![Username] Then
flag = True
End If
r.MoveNext
Loop
If flag = True Then
MsgBox ("This Username already exists" & vbNewLine & vbNewLine & "Here are some suggestions:" & vbNewLine & (Me.Name_of_Employee) & (Me.Username) & vbNewLine & (Me.Username) & (Me.Name_of_Employee))
End If
The code works perfectly up to here, but the thing is that I want it to show the first letter of "Name of Employee" beside the "User Name" and maybe the other way around.
Please help me as soon as possible, I am really in a great hurry
Thanx in advance
View 2 Replies
View Related
Mar 11, 2007
I just wanted to ask how to change the msgbox style, for example, put a Critical or Information picture on the side of the message box
Thanx in advance
View 11 Replies
View Related
Feb 25, 2008
Hi Everyone,
I have a message box that says "Backup complete" but it has an Ok button. Is there a way for the user to see the message and then close without hitting the ok button?
here's my code
MsgBox "Backup was successful and saved", vbInformation, "Backup Completed"
Thank you
View 6 Replies
View Related
Feb 18, 2005
I have a select query to search for a client. A box pops up and you enter the name, if the name is there, then that record is displayed.
Now if i enter a name that isnt there, then i get a blank table - which is fair enough.
I want to create a msgbox that pops up to let a user know the name they typed isnt in the db.
For example, "This Client Doesn't Exist - Please Try Again..".
How do i do that? :confused:
View 8 Replies
View Related
Aug 13, 2005
This seems like a dumb question but for the life of me, I cannot figure out how to do it.
I want to display a message box when a form is opened and displayed based on some test done in the Form_Current Event. However all the code in the Form_Current event is fired off before the form is displayed. But I want the form to be displayed first.
The MsgBox is modal so the form isn't displayed until I click the OK Button on the msgbox.
How can I display the form first and then display the MsgBox?
Thanks in advance for your help! :cool:
View 3 Replies
View Related
Oct 17, 2005
Good morning,
This should be simple but I just can't get it to work.
I have a form which has different account numbers and a percentage is alotted to each account number. Trying to create an unbound calculation that if it exceeds 100% a message comes up. My current code is :
If (Me.PercentTotal > 100) Then
MsgBox "The total percentage cannot exceed 100%", vbCritical, "Check You Numbers"
End If
Can't seem to get this to fire.
Thanks for any help you can offer.
Jerry
View 6 Replies
View Related
Mar 16, 2006
I would like a MsgBox to pop up at 2:00 everyday similar to a outlook reminder.
Send in the 2:00 Report.
Is this possible?
View 5 Replies
View Related
Mar 17, 2006
Hope you guys may be able to help
I have a form with a sub form. On the sub form I have #Ordered, #Supplied & #Used. These fields calculate to give the user the # in stock. This figure is displayed on the form. On the form I also have the Reorder level which is set by the user.
I would like to be able to make a message alert pop up when the database is opened or when any of these records show the # in stock is lower than the Reorder level, ensuring that we do not run out of stock.
Many thanks for any help you can give.
View 1 Replies
View Related
May 11, 2006
I have a field on my form which I want to display a message box when something is entered.Private Sub BoI_AfterUpdate()Box = Msgbox("Is the booking date at least 7 days before the hiring and no more than 8 weeks in advance? If so, click Yes, otherwise, click No. You can check the calender on the Open Form under the 'Miscellanous' tab to check the date. Thank you.", vbYesNo, "Validation")If Box = vbYes Then Cancel = FalseElseCancel = TrueEnd IfEnd SubThat's my code, but I get an error after I type something in that field (BoI)."Compile error: Else without If" I have tried it with 'ElseIf Box = vbNo Then Cancel = True' but that also gives the same error.What's wrong with it?Thanks in advance. :D
View 4 Replies
View Related
Jun 30, 2006
Hi, I'm a little confused here. I'm using the following on one DAP and it works just fine. When I add it to another page, it does not work. Any ideas?
<SCRIPT language=vbscript event=onclick for=Save>
MSODSC.CurrentSection.DataPage.Save()
msgbox "Record Saved - you may continue to edit or exit your browser.",64,"Saved"
</SCRIPT>
Thanks...Doug
View 1 Replies
View Related
Aug 22, 2006
hallo everyone,
is there anyway to create a msgbox without OK button i.e., is there any way to display a window to show "data processing..." and then close it after the processing completes.
thanks in advance.
regards,
aravind.s
View 2 Replies
View Related
Aug 31, 2004
is there such a thing ? that helps you build the msgbox of your choice then gives you the code to support what you have designed?
is there an addin or wizard about to do this ?
if so where can i get it please
Andy
View 2 Replies
View Related
