Modules & VBA :: Adding Time With Work Hours Function

Sep 13, 2014

In my DB that we use and a workflow tool, some of our work has and due date and time.If we get the complete_package our work time starts and we have X amount of time to complete our work. This is something i worked on but set it aside, now i am coming back to try and fine tune this so it returns a more accurate value.

So if we receive and [Date_Complete_Package_Received] at 09/13/2014 09:00:00 AM and based on the work being done we have 5 hours to complete the work, then the [Date_and_Time_Complete_Package_DUE] would be 09/13/2014 02:00:00 AM. That part is simple and i have coding that does that just fine. [SLA_Time] is where it gets the amount of time allotted, we have 5,10,12,14,and 16 hours depending on what is being done.

Code:
Me.Date_and_Time_Complete_Package_DUE = DateAdd("h", [SLA_Time], [Date_Complete_Package_Received])

This is done on AfterUpdate of a field on one of my forms and it works the way it is but what i need is to be able to run this through my Workhours Function so i am not getting values that our in off hours.The following doesn't work i know i can't use the Workhours function with the DateAdd but this is just to show what i am trying to do.

Code:
Me.Date_and_Time_Complete_Package_DUE = WorkHours(DateAdd("h", [SLA_Time], [Date_Complete_Package_Received]))

I have a Workhours module and it is used for a lot of things and it works perfectly.

View Replies


ADVERTISEMENT

Queries :: Subtract 8 Hours Of Work From Result Hours

Nov 29, 2014

I want to subtract 8 hours of work of the Result of employee work hours/

There is attachment...

View 3 Replies View Related

Modules & VBA :: Executing Function Between Business Hours On Weekdays

Sep 13, 2013

What I am trying to do is execute a function M-F every 2 hours between 4am and 6pm. The 2 hour part was easy, I just created a form with a timer, but the other part isn't working so well, here is my latest attempt.

Code:
StrTime = Time()
If Not ((Weekday(Now()) = vbSaturday) Or (Weekday(Now()) = vbSunday)) And (StrTime > "4:00" Or StrTime < "18:00") Then

View 3 Replies View Related

Calculate Work Hours Excluding Weekends.

Feb 16, 2006

Let me just start out by saying that when it comes to Access, I ride on the "little bus", so I apologize in adavance if this is a lame question.

I have a table with two date/time fields. One for reporting the date and time of an issue start, the other for the date and time of an issue ending. I'm trying to find a way to get the number of hours between the two without including weekends. I found a module on mvps.org that excludes workdays. However it doesn't seem to work in this case. For instance, if I put in an issue start as 02/10/2006 7:30 am, and the issue end as 02/13/2006 6:45 am, it only counts it as one workday. It won't count the 13th as a workday until the time is >= 7:30 am.:confused:

I'm simply stumped. Any help would be greatly appreciated.

Thank you,:)

View 4 Replies View Related

Creating Database To Track Work Hours?

May 8, 2013

I have been using Excel to keep a daily track of when people are in to work, but the number of persons employed has increased and it is taking too much time to manually input data into the sheet.

I am looking at Access and I would like to know if what I want is possible.

The fields I would need are , Name , Date , Time worked(1 for a full day and 0.5 for a half) , Reason worked, and funded by(inside/outside organization)

I would like to make a template of form that has the following options.

1. The ability to select a date (possibly through a calendar selection)
2. Select one or multiple different persons from a list
3. Possibly two check boxes (full/half day) - that when selected input a 1 or 0.5 into the database
4. A text entry for reason worked.
5. Another check box for inside/outside funding that reflects the time worked in step 3 and that can be queried to see how many total days funding was given.

View 2 Replies View Related

Modules & VBA :: Adding Secondary Function To Existing Command Button

Nov 12, 2013

I have a command button that basically saves the record that i just finished entering. here's the code:

Private Sub cmdAddAnother_Click()
On Error GoTo Err_cmdAddAnother_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_cmdAddAnother_Click:

[Code] ....

What I'd like to do now is add a second function that will make all the controls on the form go to null after the record is saved. so the user can start from scratch and add another record.

I tried adding me.refresh right before "end sub" but that didnt work.

I tried adding "me.controlname.value = null" for every control on the form, and that didnt work either.

I also tried adding this code that i found on bytes.com:

On Error Resume Next

Dim ctl As Control
For Each ctl In Me.Controls
ctl.Value = Null
Next

That didn't work either.

View 4 Replies View Related

Error Adding Hours

Dec 23, 2006

I have the following SQL to add hours
SELECT tblTrip.PaySlipReference, Sum(tblTrip.NDays) AS TotNDays, Int(Sum(tblTrip.FlyingTime)*24)&"."& Format (Sum(tblTrip.FlyingTime),"nn") AS TotFlyingTime, Int(Sum(tblTrip.DutyTime))&"."& Format(Sum(tblTrip.FlyingTime),"nn") AS TotDutyTime, Int(Sum(tblTrip.TAFB))&"."& Format(Sum(tblTrip.TAFB),"nn") AS TotTAFB, Sum(tblTrip!DutyPayRate*tblTrip!TAFB) AS TotDutyPay, Count(tblTrip.NDays) AS NumberOfTrips
FROM tblTrip
GROUP BY tblTrip.PaySlipReference;

Refering to the part "AS TotFlyingTime" it works perfectly as the format is a 24h and never goes over 23.59 hh.mm. The problem I incour is a incorrect result for the other two parts of the code: "AS TotDutyTime" and "ASTotTAFB", these data have values over 23h59m.

View 2 Replies View Related

Modules & VBA :: Adding Meeting To Outlook - Run Time Error 462

Feb 13, 2014

I have some code that creates appointment that i can send to colleagues, when I run the code first time it work all ok but the second time i run it i get a run time error see pic below

But I don't get any error's if i leave outlook open have also try the code on 2 pc's but stiil same problem

1392336756_tmp_run_time_error[1].jpg

Code:
Shell ("Outlook.exe")
Dim outMail As Object
Set outMail = Outlook.CreateItem(olAppointmentItem)
outMail.Recipients.Add (Me.txtsupervisor)

[Code] .....

View 3 Replies View Related

Modules & VBA :: Adding Data From List Box To Database One At A Time

Sep 12, 2013

how do you loop through and insert selected data from a listbox on at a time?For example, lets say you have an insert statement that has a firstname, lastname, CarsID(foreign key) and address field. Lets say you had another table that has ID and CarsID(primary key) field. In the listbox, you have populated it with all the cars and they are selected.

Example:

INSERT INTO PEOPLE(firstname, lastname, CarsID) VALUES('John','Smith','Honda')
INSERT INTO PEOPLE(firstname, lastname, CarsID) VALUES('John','Smith','FORD')

View 2 Replies View Related

Time In Excess Of 24 Hours

Apr 10, 2006

Looking to have a time field that a user can enter how long they worked an issue. Format should be ##:##, but I'm afraid that if I use text, calculations will be impossible.
How does someone do this if it's expected that the value will frequently go over 24 hours?

View 5 Replies View Related

Subtracting Time Over 24 Hours?

Mar 27, 2006

Any Help!

I have fields that are time formated 99/99/99" "00:00;0;_ and I want to subtract them.

I need to get the results in two forms; first in Days and second in Hours. I have used the obvious subtract one from the other and it gives me days in a rounded numbeer, but the hours is not working out.:confused:

DB

View 4 Replies View Related

Hours Time Problem

Jun 27, 2006

I want to create a query that will calculate the following:

When a user enters a start time and an end time in 2 seperate fields (eg. 06:00 and 08:00) I want to automatically return how many hours fall between 00:00 to 01:00, 01:00 to 02:00, 02:00 to 03:00 etc through the 24 hour clock.

To give you a background why I want this, I'm creating a labour planning database that calculates the nuber of people available each hour in a warehouse. So when a user inputs 06:00 to 08:00 for overtime work I need the database to tell me 1 hour falls between 06:00 to 07:00 and 1 hour between 07:00 to 08:00.

I'm really struggling to come up with a solution to this one, any help would be appreciated.

View 1 Replies View Related

Need Help With Time/ Hours Worked Calculation

Jan 22, 2006

Hi Guys

I need to create a method of calculating -week number,hours worked per week and a leiu hours total.

Explanation

Users enter their worked hours per day. I need to calculate the total hours worked per user per week and if this is greater or less than their contracted hours a record of this figure over a continual time period (or year).

Variables :- Time worked,Holiday hours,Leiu hours taken,Sick leave, Other authorised leave.

I realise that i'm asking on a lot but working for a charity has financial limits.

Attached the basic database-so far

Thanks in advance for your help

Row

View 4 Replies View Related

Representing Time In Hours And Tenths

Mar 13, 2006

I created a time clock module where you input the time in and time out and it takes the difference of the two to give total time worked. However the boss wants the time worked represented in hours and tenths of hours not minutes. How can I take the time, seperate the hours...find out how many tenths of an hour worked and then add the hours and tenths together.

View 2 Replies View Related

Total Time On Hours And Minutes

Jan 29, 2007

Hi,
I am trying to show the time difference between 2 times but the calculation is not working correctly.

First I work out the totaltime on mins between 2 dates using datediff, then I am trying to convert to hours and minutes like :
Total_Time: Format([Sumoftotaltime_mins]/60,"00") & ":" & Format([SumofTotaltime_mins] Mod 60,"00")

This is working until I have something like :

03:00
15:45
25:20

this should work out as 44 hours and 5 mins but for some reason it is showing as 43 hours and 5 mins.

why would this be ?

View 4 Replies View Related

Time Exceeding 23 Hours 59 Minutes

Nov 2, 2004

Hi,
I have a bit of a problem. I am making a program in access 2002. In my program you should punch in hours:minutes, this is for keeping track of how long a job has taken to perform. The problem is that it could exceed 23:59, it could take up to a week or even more. In my database we have already put in a lot of info where it doesn't exceed the 23:59, I would like to keep this posts and just to put in new ones that I could use further on when I am about to take out reports, where I have to calculate time. Is there someone who knows what to do ??

Regards

Greger

View 6 Replies View Related

Calculation For Time X Hours In Table

Nov 19, 2011

I need to calculate in the tbleJobs table, the amount of the jobs total amount and place the result in the JobsTotalAmount field.

This has to be a manual calculation. Not an on event calculation.

Data is coming from two table:

tblLimos has the hourly rate.

tblJobs has the start time, the finish time and the total amount field.

View 6 Replies View Related

Storing Time Greater Than 24 Hours

Nov 28, 2011

I am using a database and need a field capable of storing times that will be greater than 24 hours.

I understand there is no "ready made" way of dealing with this in Access, so what's the best way?

The catch is I am using VBA code in Excel to populate the table, the value comes from a cell (in Excel formatted as "[h]:mm").

View 2 Replies View Related

Queries :: Adding Up Times To Get Total Amount Of Hours

Dec 5, 2014

I have a table of hours that have been worked by employees for each day of the week

[moh] (Monday's hours),[tuh],[weh],[thh],[frh],[sah],[suh]
data eg (this is how I would like it to be inputted into the table)
7:24:00,7:24:00,7:24:00,7:24:00,7:22:00,0:00:00,0: 00:00

This equates to 36:58:00

I have tried

Total Hours: [moh]+[tuh]+[weh]+[thh]+[frh]+[sah]+[suh]

but I am struggling to get what I want in the right format.

How to record the initial data or a formula to format the end result.

Excel just does it !!!!!

View 1 Replies View Related

Subtracting 12 Hours From A Date-time Field

Nov 13, 2007

I am trying to subtract 12 hours from a time-date field when the payperiod does not equal 01.

in a query I have:

work date: iif([payperiod]="01",[StartTime],[starttime]-#12:00:00#) - Access added a PM before the second hash so it looks like this:

iif([payperiod]="01",[StartTime],[starttime]-#12:00:00 PM#)

When I run the query I get a message box: "syntax error (missing operator) in query expression '00:00:PM#,2))". I am unable to open the query to correct the error. I can cop the unaltered query from a back up database.

My question is how do I subtract the 12 hours.

Thanks

Steve

View 3 Replies View Related

Queries :: Calculate Time Period For 24 Hours?

Jul 9, 2014

I have designed an access application that logs emails that come into a department. However, the team leader has asked me to create a report to work out if emails were answered within a 24 hour period.

Is there a method to do this. It is not something I have attempted to do within access before.

View 6 Replies View Related

Reports :: Sum Time Greater Than 24 Hours And Keep The Format

Aug 1, 2013

I have a field in my report [Idle]

This has a time in a HH:MM:SS format (so 01:38:23)

What I need to be able to do is sum this greater than 24 hours and keep the format of HH:MM:SS - ideally I need to do this in the form field that I'll be using to sum it.

View 1 Replies View Related

Queries :: Time Duration Over Midnight In Decimal Hours

Dec 22, 2014

I want to calculate decimal hours duration taken for a job starting before and finishing after midnight.

I have something that works but it seems cumbersome.

Hour(Format([Job]![Start_time]-1-[Job]![Finish_Time],"Short Time"))
+ (Minute(Format([Job]![Start_time]-1-[Job]![Finish_Time],"Short Time"))/60)

View 11 Replies View Related

I Can't Get This To Work IIf Function Work For Me

Sep 10, 2007

I have an expression in one column of my query and It keeps returning a negative result and there are no negative numbers in the source data. Can anyone help. I just want to sum the sums the two IIf expressions, but its not working. Thanks


Other Qty: Sum(IIf([QSum]![ACCOUNT]=2 And [QSum]![ICUNIT]=95 And [QSum]![UNITS]="ITEM(S)",[QSum]![QUANT],Null)) Or Sum(IIf([QSum]![ACCOUNT]=2 And [QSum]![ICUNIT]=100 And [QSum]![UNITS]="ITEM(S)",[QSum]![QUANT],Null))

View 4 Replies View Related

Time Keeping DB - Best Field Format For Working Out Hours Worked

Jun 18, 2006

Hi, I am creating a time keeping db.

Before I jump in and start creating a way to record times worked I thought it best to ask for advice.

The db is created and the last part is to capture by member:
Basically I have the following fields:

MemberID
Job Type
Date of Job
Time Started
Time Finished

From the data captured I need to create a report to show month and ytd hours worked.

It would be easy to ask the user to calculate the hours worked and input the number of hours, however I would like to capture start and finish times.

Can anyone give me any pointers on the best field types and field formats for capturing times which would then make it easier to work out hours worked.

Thanks in advance

Darrell.....

View 1 Replies View Related

Reports :: Time Difference Excluding Weekends And Holidays In Hours From Now

Sep 6, 2013

I would like to add time elapsed since an entry was made excluding weekends public holidays and calculating 8 hours a day (from 6am to 2 pm) since the entry was made till the generation of the report.

How shall I approach this in terms of programming ?

View 1 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved