Search results

***Note*** the only thing that comes to my mind is .... that I am storing the Planned and Actual hrs as "numbers" in the table and the feild size is "Single" and format is "Fixed" .... Just wondering ... should a store the hours as "text" and just format them in a query later?

Okay .... I finally got this work to with the help of boblarson .... but its acting up and I have no idea ... I am using the following ... Private Sub Form_BeforeUpdate(Cancel As Integer) If (Me.PlannedHours) <= 0 Or IsNull(Me.SubActivityDetails) Then MsgBox ("You must enter your...

Final working code is ...... Private Sub Form_BeforeUpdate(Cancel As Integer) If (Me.PlannedHours) <= 0 Or IsNull(Me.SubActivityDetails) Then MsgBox ("You must enter your planned hours and provide a description of the activity"), 0, "Weekly Schedule Control System" Cancel = True...

ITS ALIVE ! ! ! ! ! muhahahaha :D:D:D:D If DSum("[PlannedHours]", "EmployeeWeeklyActivityCommentstbl", "[CommentsDateTimeStamp] Between ([CommentsDateTimeStamp])+7-Weekday([CommentsDateTimeStamp],2) - 7 And ([CommentsDateTimeStamp])+7-Weekday([CommentsDateTimeStamp],2) = " &...

Just tried this and got rid of the syntax error and now I'm getting a type mismatch .... If DSum("[PlannedHours]", "EmployeeWeeklyActivityCommentstbl", "[CommentsDateTimeStamp] Between ([CommentsDateTimeStamp])+7-Weekday([CommentsDateTimeStamp],2) - 7 And...

Here is the code that gives me the error Private Sub Form_BeforeUpdate(Cancel As Integer) If (Me.PlannedHours) <= 0 Or IsNull(Me.SubActivityDetails) Then MsgBox ("You must enter your planned hours and provide a description of the activity"), 0, "Weekly Schedule Control System"...

Hi Bob, thank you ... but now I'm getting a Compile Error: Expected: list separator or ) I have tried but no luck ....

Changed it ... but still getting the same error I have attached a screenshot .... It has to do with the dates parameter ....

Update .... If I use this code ... I get a 3075 syntax (missing operator) in qry expression error Private Sub Form_BeforeUpdate(Cancel As Integer) If (Me.PlannedHours) <= "0.00" Or IsNull(Me.SubActivityDetails) Then MsgBox ("You must enter your planned hours and provide a...

Okay ...this is wierd ..or maybe its me :) I'm using this code ... Private Sub Form_BeforeUpdate(Cancel As Integer) If (Me.PlannedHours) <= "0.00" Or IsNull(Me.SubActivityDetails) Then MsgBox ("You must enter your planned hours and provide a description of the activity"), 0...

Question .... There are 2 forms that the users will use to enter there time ... 1st form - AddActivityComments - In this form ... they can enter their "Planned Hours" when they are planning their week and the "Planned Hours" 2nd form - UpdtWklyActCmntsfrm - In this form ... they can revise...

Hello, I've been battling this for awhile now ... and I'm starting to wonder if this even the approach ...as in the right fields ... should a not based on the current weekending date ?

Hi Bob, There are 2 forms that the users will use to enter there time ... 1st form - AddActivityComments - In this form ... they can enter their "Planned Hours" when they are planning their week and the "Planned Hours" 2nd form - UpdtWklyActCmntsfrm - In this form ... they can revise...

Good morning ... After reviewing the suggested code, I understand what its trying to do but and that is what I need however, there is more then 1 table involved. I have the following tables: Employeetbl - this stores the employee data (such as working hours duration 34.15)...

Thank you for that tip Bob ... in that form (AddActivityCommentsfrm) ... I already have a BeforeUpdate event which is Private Sub Form_BeforeUpdate(Cancel As Integer) If (Me.PlannedHours) <= "0.00" Or IsNull(Me.SubActivityDetails) Then MsgBox ("You must enter your planned hours...

Okay ... so how would I get around that ?... This issue is that ... I need to let the user know that they have exceeded their "Planned hours" limit which is 34.15 ... so that they can adjust their time accordingly. I've been reading around and it seems that dcount or dsum might work ... i...

Hi Bob, The SumOfPlannedHours is based on a "Totals" query ... ... I have another form ... and within that ..I have trying the following and I get the same thing ... no errors and no popups... Private Sub Form_AfterUpdate() Forms!ActivityDetailsfrm!ActivityCommentsListBox.Requery...

Hi Bob, Just tried it and same thing ... no errors and no popups ... strange ...

Hello, I am trying to use the following vba to generate a msgbox popup but its not working and no errors appear either ... Private Sub SumOfPlannedHours_BeforeUpdate(Cancel As Integer) If Me!SumOfPlannedHours > "34.15" Then MsgBox "You have exceeded 34.15 hrs work duration limit"...

Hi Bob, Thank you so much! ... I did exactly as you stated and it works! Thank you again