I have a form (MS Access 2003) that has a button that when pressed, assigns the current time to field [Time1] using
Code:
Me.Time1 = Now()
I have another field [Time2] that adds 15 minutes to [Time1] using the following in the Control Source field
Code:
=DateAdd("n",15,[Time1])
I was wanting to use these to force a message box when the system time reached Time2 and tried the following code on the Form ON TIMER event (Interval at 1000 ms) but it does not work.
Code:
If Time() > Me.Time2 then
MSGBox "Time to show message"
End if
I tried putting in a manual time in the VBA such as:
Code:
If Time() > #2:05:00 PM#
MSGBox "Time to show message"
End if
which worked. So, I am guessing there is something with my orignal code using Me.Time2 that is causing the problem.
I have Access 2010 and have made a small system that creates a table as a result of an query based on linked tables. The result is approximately 40 records that are grouped in 4 different priorities where each record has a status of green, yellow or red.
By using the timer event I want to loop through 6 different forms starting with the overall view and herafter priority 1 form, priority 2 form and so on. When the last form has been displayed start over again. Loop for ever until stop button has been pushed on the first form.
The timer is set to 15000 on each form, when I open a form the first thing that happens is that I close the previous open form.
After the system has looped 4 times it gets "SYSTEM RESOURCE EXCEEDED".
I have used 3 days on the internet to try to get a solution on my problem with no luck. I have got so far that it must be something with the timer function. Since if I run it manually (open form, close previously, open next form etc) then no issues.
I created a form to list the number of customers in my lobby. In the Form Footer I placed a field to count the number of customers waiting (Name: CC1, Control Source: =Count([LName]). Works fine.
I want a Beep on the form if the customers exeed 5. I placed the following code in the Timer event but I cannot get the event to work. I believe it has something to do with the field name but I'm unsure. Any help would be appreciated.
My form is always open and runs a timer event which runs a series of functions and procedures. I don't want to run a certain procedure on every timer cycle, but rather, every other timer cycle.
Any thoughts on how best to accomplish this. I'm having a mental block!
I've taken a break from Access for a while, but I'm back at it again and having some difficulty. I am trying to open a form with a timer to state that the database is going to shut down in five minutes if they don't respond. I'm obviously using the wrong code. I've been trying to use the following:
Private Sub Form_Timer() DoCmd.OpenForm "frmWarning" If Forms!frmHidden!chkActive Then Forms!frmHidden!chkActive = False Me.TimerInterval = 300000 Else DoCmd.Quit End If End Sub
I need a query run that brings up a list of customers that need maintence after 6 months after their last maintence service. As soon as you open the DB, the event/query runs and if there are any customers past due to display them. And if there are none, to not even show the query at all.
I have very little experience with timers and if/then statements and don't know how to set this up.
Any help would be greatly appreciated. Thanks in advance.
It may seem a rather simple question, though it continues to confound me -and I have searched to no avail :D
How do you trigger an event depending on what button is pressed on a msgbox?
For example, using a vbYesNo msgbox on a form, how can I assign events to either the Yes or the No option? Say, if "Yes" is clicked the focus would be set to a control on the form, and if "No" is clicked access would close down.
Any ideas?
I've currently got on the on click event of a command button (the bit in italics is fine, the bit in bold is not working!):-
Private Sub Command3_Click() On Error GoTo Err_Command3_Click
Dim stDocName As String
MsgBox "Please select where you wish to save the exported file", vbOKOnly, "Save To Location"
I have a problem with my database I have a combo box that will search for my record. Actually its working I input the specific number it goes to the specific record. But I want, if there no existing record in my database it will display a Messagebox that "No record Found" I try to put a code in a macro builder in a after update property field but nothing happened.
Expression code that it will display the msgbox if there's no record found.
the given code from macro builder is attached. I try to have an if else statement but I dont know how to not equal that giver conditional expression.
I currently use this code to trigger a not in list event, ask the user if they want to add it to the respective table, and then add it.
I'd like to be able to add the text in the combo box that triggers the event to show up in the msgbox.
Private Sub cboCategory_NotInList(NewData As String, Response As Integer) Const Message1 = "The data you have entered " & me.cbocategory.text &" is not in the current dataset." Const Message2 = "Add now?" Const Title = "Unknown entry in CATEGORY Field..." Const NL = vbCrLf & vbCrLf
I had a look on Microsoft Support and found this article: http://support.microsoft.com/kb/242889/en-us but I don't understand what it's saying.
Basically, I am trying to get the message formatted as it suggests in the help file (Access 2002) i.e. first line bold, second line normal, third line normal and paragraph space, by using the @ symbol. However, it is not recognising this as a format command, just plain text.
MsgBox shows: Please enter a date range.@Hint: to show all records use a date like 1/1/1990.
instead of:
Please enter a date range. Hint: to show all records use a date like 1/1/1990.
The MS Support file above seems to suggest that this is simply no longer available in later versions of Access, and offers two work-arounds. However, I have no clue about the second one because I'm not really into programming, and the first one seems to suggest exactly what I am currently doing.
Can anyone help me step through what I am doing wrong? Or is it just a case that I would have to use the code? (In which case could someone help me set it up?)
I have a Form opening from Access Options. I would like to close this Form using the Timer. The following is the code I have used but it is not working.
Private Sub Cover_Page_Form_Load() OpenTimer = Timer End Sub Private Sub Cover_Page_Form_Timer() If (Timer - OpenTime) = 5 Then DoCmd.Close acForm, "Cover_Page_Form", acSaveYes End Sub
Next question. If I can get this to work can I then use a DoCmd to open new Form within the code above or do I need a new process.
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.
I've got a form which holds data for employees, fname, lname, ..... and an entered date which defaults to now().
On the before update event, i have the following.
Code: If DCount("*", "trainingdata", "[Empid]=" & Me!EmpID & _ " And [subjectid]=" & Me!SubjectID & _ " And [trainingdate]=#" & Me!TrainingDate & "#") > 0 Then MsgBox ("This record already exists") Cancel = True Me.Undo Me.SubjectID.SetFocus End If End Sub
With the above vba code, a msgbox pops up if the record combination already exists. What I would like to do is in the same msgbox have the "entered" date display and make the msgbox say something like.
This record already exists and was entered on 6/18/2015, [entered]...
I created this function to manage a MsgBox containing all required fields with no data:
Code: Function FormValidation(TheForm As Form) As Boolean Dim boolResponse As Boolean Dim strError As Variant Dim ctl As Control boolResponse = True strError = Null
[code]...
Then, I have a Form_BeforeUpdate event, where I wanna place the function, which contains also some VBA code to manage duplicates records:
Code: Private Sub Form_BeforeUpdate(Cancel As Integer) Dim rst As DAO.Recordset, dbs As DAO.Database, strICAO As String Dim ctl As Control, txtMsg As String
[code]....
Now, how to add the function in this event to get these two results:
1. if required fields are blank and I press OK on the MsgBox, the routine must stop; 2. the focus must go in the first required blank control.
I tried some options but I get different kind of malfunctions: no custom message for duplicate records but only the access default one, "go to next record" feature with tab key not working and so on.
Having set a table short text field to 'Indexed (No Duplicates)', I have a form which produces a '2105 runtime error' when the user attempts to submit a duplicate value. I would like to replace this default error message with a more user-friendly MsgBox.
My code for the SaveRecord button is:
Code:
Private Sub SaveRecord_Click() DoCmd.GoToRecord , , acNewRec MsgBox "Record successfully saved", vbOKOnly + vbInformation, "Record Saved" End Sub
My code to capture the 2105 runtime error is:
Code:
Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 2105 Then MsgBox ("This villa booking has already been logged.") Response = 0 End If End Sub
Unfortunately when the save button is clicked (when attempting to save a duplicate value), the 2105 error still runs. What are I doing wrong?
Hello Administrator, contributors, experts and friends!
I am excited to join this blog for the very first time. I am new to MS Access but learning every day and doing very well. I am in process of buiding an Issues list and because of that you will see lot of me with tons of questions. First most, I will search this forum to find the answer otherwise I will be posting questions. Thanks for the opportunity to participate in this forum.
