Countdown Action
Feb 7, 2005i wonna count down for 20 minits and then autoclose my program. every time there is an activity the counter has to reset. any idea where and how to do it?
thx in advance
killroy
i wonna count down for 20 minits and then autoclose my program. every time there is an activity the counter has to reset. any idea where and how to do it?
thx in advance
killroy
I am creating a databse to help people with course registration. I have a form (Classes) and a sub form (Classes Subform). In the classes subform I have the following fields:
StudentID
Major
PhoneNumber
Grade
On the Classes form I have two fields I am concerened about. Seats and a field called Open Seats. If I set the number of Seats (Seats) to 31, I would like 31 to appear in my open seats field. As I add students to the Classes Subform (New Records) I would like open seats to decrease by one. I've seen this done, but have no idea how.
Once this is figured out, Is it possible for the form to automatically change my Status field from Open to Closed?
Is there a way to have this stopwatch to countdown from 10 minutes to 00:00:00:00?
Option Compare Database
Option Explicit
Dim TotalElapsedMilliSec As Long
Dim StartTickCount As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Timer()
Dim Hours As String
Dim Minutes As String
Dim Seconds As String
Dim MilliSec As String
Dim Msg As String
Dim ElapsedMilliSec As Long
ElapsedMilliSec = (GetTickCount() - StartTickCount) + _
TotalElapsedMilliSec
Hours = Format((ElapsedMilliSec 3600000), "00")
Minutes = Format((ElapsedMilliSec 60000) Mod 60, "00")
Seconds = Format((ElapsedMilliSec 1000) Mod 60, "00")
MilliSec = Format((ElapsedMilliSec Mod 1000) 10, "00")
Me!ElapsedTime = Hours & ":" & Minutes & ":" & Seconds & ":" _
& MilliSec
End Sub
Private Sub btnStartStop_Click()
If Me.TimerInterval = 0 Then
StartTickCount = GetTickCount()
Me.TimerInterval = 15
Me!btnStartStop.Caption = "Stop"
Me!btnReset.Enabled = False
Else
TotalElapsedMilliSec = TotalElapsedMilliSec + _
(GetTickCount() - StartTickCount)
Me.TimerInterval = 0
Me!btnStartStop.Caption = "Start"
Me!btnReset.Enabled = True
End If
End Sub
Private Sub btnReset_Click()
TotalElapsedMilliSec = 0
Me!ElapsedTime = "00:00:00:00"
End Sub
I would like to have a form that simply has 4 or 5 due dates for certain things. I would also like to have a countdown field that takes todays date and all of the due dates and tells me how many days i have until then. Is this possible? And, if so, can anyone help?
View 1 Replies View RelatedI have two databases; a server and a client. The server houses all of the tables, while the client has the tables linked and serves primarily as a form for users to enter data to the main table. Periodically I update the form, so I would like to be able to shut down each client while I upload the new files to update the client. Here is my thinking:
I have a table in server.mdb called admin with 3 columns and one record.
The fields are:
closex (text) - This will be populated when I want to send the close countdown command.
message (text) - The string I want to display in a warning popup box.
Timer (integer) - The time in seconds before the program will close.
Right now I have a hidden LIST box in the form (closemsg) that is bound to column 1 and column count=3.
Me.closemsg.column(0) is closex
Me.closemsg.column(1) is message
Me.closemsg.column(2) is timer
The box is requeryed every 2 seconds to check and see if the table has been updated along with another line of code that keeps the time current until someone starts to enter a record.
I have a macro that will perform the close operation. Here is the code I have thus far....any help would be greatly appreciated.
___________________________________________
Private Sub Form_Timer()
'Updates the Time to Current
If (IsNull(Agent)) Then
Me!Call_Time = Time()
End If
'Checks for updated values in Admin Table
Me.closemsg.Requery
' -------------
'| Force Close |
' -------------
'Message Variable from T.Admin
Dim message As String
'Timer Variable from T.Admin
Dim timer As Integer
'Macro Variable to Close App
Dim macroname As String
macroname = "Closeapp"
'Check to see if T.Admin has changed
If (IsNull(Me.closemsg.Column(0))) Then
Else
message = Me.closemsg.Column(1)
timer = Me.closemsg.Column(2)
'Set Timer
timer = timer * 1000
'Notify User
MsgBox message
Count:
timer = timer - 1
If timer > 0 Then
GoTo Count
Else
DoCmd.RunMacro macroname
End If
End If
End Sub
hey,
Sorry to open with a question but its usually the way, i'm quite an experienced computer user but never used any office products before and just thought i should learn as i'm losing money every week by not keep track of things properly.
So then to my question..
I've made a table to cover all the orders i have had placed, this includes a date column for when that order was placed. I just wondered if it would be possible to have some kind of system where after 7 days without any acknowledgement from me it either pops up or turns red or something similiar. I'm thinking the acknowledgement could be the yes/no box and i tick that when i recieve the item back, if i dont it either pops up or turns red or something :confused:
any help much appreciated
I have created a countdown counter on a form using different Datediff's so to split the renaining time into days, hours, minutes and seconds.
The Datediff compares Now() to a text box called txt.Leaving which has a date/time unputted via a table (Format: General Date)
However the seconds and minutes work ok but the hours and days dont count down inline with the minutes and seconds reducing. The hours do alter when the minutes are 13 mins into the new hour. This would seem to point possibly to rounding off but I would expect that further into the hour.
Below is the Datediff that is set as the control source in a text box and the form it sits on has its timer set to 1000 and the event requeries the text box.
=DateDiff("d",Now(),[txt.Leaving]) & "d, " & DateDiff("h",Now(),[txt.Leaving]) Mod 24 & "h, " & DateDiff("n",Now(),[txt.Leaving]) Mod 60 & "m, " & DateDiff("s",Now(),[txt.Leaving]) Mod 60 & "s"
Using Access 2000.
I have access db sending report with outlook every Monday.
But the problem is if outlook is open when I start the db, email goes in to outgoing folder and msg box of outlook opens saying " outlook will close after countdown if I do not hit the "DO NOT EXIT" button or "EXIT AND SEND LATER" button.
If I hit "EXIT AND SEND LATER" button, it sends next time I open the outlook.
Is it possible to prevent outlook doing this?
hello ,
I want to use a wait or timer action like in my attachment file.
could someone see this and show me what I got to do?
thanks aloT!!
I have set up a form to use for entering and specifying report criteria. I followed the instructions from general Access help. Everything worked fine in MS Access 2000. Now, I've transferred the database to a computer using MS Access 2003 and I get and error that says, "You entered an expression that has an invalid reference to the property Visible. The property may not exist or not apply to the object you specified." If I change the Macro for the "OK" button from Action="SetValue", Item="[Visible]", and Expression="No" to Action="SetValue", Item="[Forms]![frmParameterQuery].[Visible]", and Expression="False", which I though may be the correct way to enter this for the newer 2003 version of Access, then I get a different error message that reads, "You don't have the license required to use this ActiveX control. You tried to open a form containing an OLE Object or an ActiveX control or you tried to create an ActiveX control. To obtain the appropriate license, contact the company that provides the licensed OLE Object or ActiveX control" Please help!
View 3 Replies View RelatedMigrated from access 2002 to 2007. the followhyperlink action is not picking up the complete data from a text box in a form. it leaves out the last digit/alphabet resulting in incorrect address.worked fine in 2002. any ideas?
View 1 Replies View Relatedi would like to log every action any member does on my database.i will have a log in screen(passworded) and i would like to record every button clicked. the only thing is i would like to include other things in the record aswell. like record changes. is there a neat little trick to do this or is it just going to be very labour intensive.
View 11 Replies View RelatedI have a form that has multiple text boxes. Was trying to add an Undo button that behaves exactly the same as the (Ctrl+Z) or the undo button used in microsoft access, word, excel ..etc. as it only undos one action in a click. When added the undo button i used just a normal button and added a code to it. if i type in different text boxes and press on the undo button it undos everything modified since the form was opened. Is there a way to change that ?
View 5 Replies View RelatedI am trying to open a form with a specified record using double clicked event (list box) but access is throwin "The OpenForm action was cancelled". My code is:
Private Sub lstSchool_DblClick(Cancel As Integer)
Dim test As String
Dim thisForm As String
thisForm = "frmRegister"
test = "ID = " & "'" & lstSchool & "'"
DoCmd.OpenForm thisForm, , , test
End Sub
ID is a AutoNumber field. I have used this code in my other dbz and it works fine ....
What I need to do is get the name of a control when the mouse is over it. The problem is that I would need to make a custom macro/code for each control since there doesnt seem to be a way to retrieve the name of the control which initiated the mousemove action. Any ideas?
View 6 Replies View RelatedHi,
On my Form I have a Label (Recnote) which gets changed by the VB code if criterior is true. My form does change this correctly however, once I quit (or close the Form) and come back, the changes dissappear.
But the strange thing is that every now and then it does save it.
Any ideas??? Any other command I should use?
The following works as it disables my Import button and changes the Label contents but does not save when exited
Private Sub CloseME_Click()
DoCmd.Requery
If [CountOfOracle Co] = 0 Then
MsgBox "Cannot Close ME Yet", vbOKOnly, "Circular Rec"
Else
Me.Recnote.BackColor = 65535
Me.Recnote.Caption = "Final Reconciliation"
Me.Recnote.ForeColor = 32768
Me.Import.Enabled = False
DoCmd.RepaintObject
DoCmd.Save
End If
End Sub
Can this be done??
I want to open a report, run an action query to create a table I want to use for the current report?? If It can how would I do it??
Thanks
mack
I have created a search window that looks up certain invoicereport by invoice No. I have used this search method in other forms and has worked successfully!
However,
after I created the same thing for a report, I get this message: The Command or Action 'ApplyFilterSort' isn't available now.
I really don't understand the problem.
txtSearch = a textbox where user can type in any value to lookup a certain report.
rptInvoice = where I want the search to be placed.
fraSearch = an option group with (Starts with...,Contains...,Ends with..., Equals...)
InvoiceNo = the txtField in rptInvoice.
this is what I wrote for the cmdSearch button:
Private Sub cmdSearch_Click()
On Error GoTo Err_cmdSearch_Click
Dim strFilter As String
Dim strInvoiceno As String
' Check that the report is open
If SysCmd(acSysCmdGetObjectState, acReport, "rptInvoice") <> acObjStateOpen Then
MsgBox "You must open the report first."
Exit Sub
End If
' Build InvoiceNo criteria string
If IsNull(Me.txtSearch.Value) Then
strInvoiceno = "Like '*'"
Else
Select Case Me.fraSearch.Value
Case 1
strInvoiceno = "Like '" & Me.txtSearch.Value & "*'"
Case 2
strInvoiceno = "Like '*" & Me.txtSearch.Value & "*'"
Case 3
strInvoiceno = "Like '*" & Me.txtSearch.Value & "'"
Case 4
strInvoiceno = "= '" & Me.txtSearch.Value & "'"
End Select
End If
' Build filter string
strFilter = "[invoiceNo] " & strInvoiceno
' Apply filter to report
With Reports![rptInvoice]
.Filter = strFilter
.FilterOn = True
End With
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70
Exit_cmdSearch_Click:
Exit Sub
Err_cmdSearch_Click:
MsgBox Err.Description
Resume Exit_cmdSearch_Click
End Sub
----
Could anyone help me with this?
I have a form for users to be able to delete or edit records. I have 2 command buttons (Delete and Save), when I click on them I get this error "the command or action is not available now"... It was working fine before but for some reasons it stopped. Even two other buttons actioned by vba codes do not work (No message popping up for these 2)
I checked:
Allow Additions: Yes
Allow Deletions: Yes
Allow Edits: Yes
Nothing is blocked or locked.
I think it has to do with the query my form is based on, as I tried a dummy form based on a table and the button worked fine...? I tried re-creating query+form and no luck. I did remove a field from my query at some point this morning, not sure if this might be the cause of issue, as this field was not connected to anything in my form.
I have an Access Form called Database_Form, with a text box called Text22, and a button called Command42.
I also have a table, and query, as following:
Table 1, as in the below example:
Row_Number as Column header, and values 1, 2, 3, 4, 5, as rows.
Column1 as Column header, and values 0026007101, 0026007102, 0026007103, 0026007104, 0026007105, as rows.
Query 2, which has the criteria [Forms]![Database_Form]![Text22] for Row_Number Field.
Basically, i want that each time when i press the button Command42 and having the text box filled with value 1 (for row number 1), to repeat this step, but taking the next row_number and so on, until it finishes the last row.
The Query 2, should sequentially select the row number given in the text box, based on a VBA Code or something.
Is there any VBA code in order to achieve this ?
I have a form and I do not want the mouse wheel to move through the records - it is a single form view and I do not want the use to use the wheel as it corrupts my calculations.
Is there any way to allow input of numbers input without the wheeldoing anything
I am sure that I am just missing something.
Thanks very miuch in anticipation
Hi friends,
I am trying to append records from sales table to sales archive table if salesdate# is <#01/05/2006
It works fine if the sales archive table is blank else it give me an error null conversion failure.
how do i fix this?
thanks.
Hi there,
I like having the action query warning appear with what I am doing - "You are about to update xxx rows". The problem that I am having is that when my RunSQL statement in the code executes and selects no to the warning, I get the error -
Run-time Error '2501'
The RunSQL action was canceled.
How can I trap the no selection so that this vba error does not appear?
I use the Access 2007 runtime to run my Access database on a few client machines. How do I turn off the confirmation of Action Queries? On clients that are also running MS Access, I can simply open Access, go to Access Options and uncheck the box. When I make this change in Access, the same settings apply for the Runtime on that computer. Which makes me think perhaps there is a registry entry I can modify someplace? If anyone has an idea as to how to turn this off for the runtime please let me know.
Thanks!
I have a form (TransactionBody) & a subform (Detail) in the body I have an option group (Reg Office, Unaccepted and Returned) and want the returned button to be true "IF" a box Yes/No box called "Returned" is checked "yes" in the "Detail" form.
I have done simular things in regular forms but not with a subform. I know I need to setup a afterupdate event in the Detail subform in the "returned" yes/no box and I know the basic if..then...else lingo I just don't know how to reference the transactionbody form in the formula from the detail form.
Any help would be greatly appreciated.
Thank you.
i have an issue with the find record functionality
i have a main form that has a search button which works fine
i have a link to a popup form which in turn also has a search button but clicking this produces an error as below
run time error 2046
the issue seems to be the caused by the fact that the main form is still running in the background - if i open the popup form directly the search works fine
is there a way to get the search going on the po up form with the main form still running in the background?