Search results

I have attached the db so you can see it. I use a module that references a table of all the holidays in it. Then on a form I call a function (GetBusinessDay) that calculates the Due Date. It uses the value in the Date Received field as the start and then applies the function. I hope this...

The db is linked to a sharepoint list, that unless the Due Date value is stored, will not display on the sharepoint list. Thank you.

Currently I use a module to calculate DueDate, excluding weekends and holidays. I store all the holiday in a tblHoliday and reference this table in the module. A formula then calculated the DueDate. This works great in an access form, but I now realize that I need that value stored so it...

Yes it works. Thank you both very much.

I apologize for the confusion and have been able to resolve most of the issues. In regards to post 29: would the requery be and would that requery be based on the new date_received? [CODE] Private Sub Test_AfterUpdate() If Me.Test = "LR" And Me.Time_Received >= #12:00:00 PM# Then...

How do I turn off the focus so that only the time is there? Thanks.

I can not access the database from my cell phone so what is supposed to happen is when the HLA ID is filled in the date_received and time_received auto-fill. Then when the Test is selected the Due Date auto-fills based on the test. So if "LR" is the test and date_received is 7/29/2014 and the...

Me.Time_Received = Time The above code shows 4:04 PM in a field, but when I click on it has 1/1/1900 4:04:42 PM. The format is set to medium date, but it still is doing this. How can I fix it so it only displays the time and when I click on it the same? Thanks.

I have removed the Day field and will rename the case field. If Me.Test = "LR" And Me.Time_Received >= #12:00:00 PM# And Me.Time_Received <= #7:00:00 PM# Then Me.Date_Received = Me.Date_Received + 1 End If will add 1 day to date_received if the sample is received after noon, i am not sure...

Yes, it is linked to a sharepoint list, but there is no data in there yet so feel free to enter data in it. Thank you.

I have attached the database and changed the code to: If Me.test = "LR" And Me.Time_Received >= #12:00:00 PM# And Me.Time_Received <= #7:00:00 PM# Then Me.Date_Received = [Date_Received] + 1 End If The date_received is good if the time_received is before after noon. The...

If Me.Test = "LR" And Me.Time_Received >= #12:00:00 PM# AND Me.Time_Received <= #7:00:00 PM# Then Me.Date_Received = [Date_Received] + 1 End If If Me.Test = "LR" And Me.Time_Received >= #5:00:00 AM# AND me.Time_Received >= #11:59:00 AM# Then Me.Date_Received = [Date_Received] End If...

If Me.Test = "LR" And Me.Time_Received >= #12:00:00 PM# <= #7:00:00 PM# Then Me.Date_Received = [Date_Received] + 1 End If If Me.Test = "LR" And Me.Time_Received >= #5:00:00 AM# >= #11:59:00 AM# Then Me.Date_Received = [Date_Received] End If Date_Received = 7/28/2014 (this is not...

If Me.Test = "LR" And Me.Time_Received Between #12:00:00 PM# And #7:00:00 PM# Then Me.Date_Received = [Date_Received] + 1 End If If Me.Test = "LR" And Me.Time_Received Between #5:00:00 AM# And #11:59:00 AM# Then Me.Date_Received = [Date_Received] End If I get an expected then or goto...

Using the code I posted: Date_Received = 7/28/2014 (this is not correct) Test = LR Time_Received = 10:00 AM changes to Date_Received 7/29/2014 Date_Received = 7/28/2014 (this is correct) Test = LR Time_Received 12:45 PM changes to Date_Received 7/29/2014 It seems to be applying only 1...

If Me.Test = "LR" And Me.Time_Received > #12:00:00 PM# < #7:00:00 PM# Then Me.Date_Received = [Date_Received] + 1 End If If Me.Test = "LR" And Me.Time_Received > #5:00:00 AM# < #11:59:00 AM# Then Me.Date_Received = [Date_Received] End If Is this what you mean't? The Date_Received seems...

Im not sure I understand: I am trying to code if a sample is received before noon then the Date_Received is unchanged. If a sample is received after noon then the Date_Received +1 (1 day is added to it). Thanks.

If Me.Test = "LR" And Me.Time_Received > #12:00:00 PM# Then Me.Date_Received = [Date_Received] + 1 End If If Me.Test = "LR" And Me.Time_Received < #11:59:00 AM# Then Me.Date_Received = [Date_Received] End If This code seems to change the Date_Received by one day even if the sample is...

I tried that and it doesn't seem to change anything. If Me.Test = "LR" And Me.Time_Received > #12:00:00 PM# Then Me.Date_Received = [Date_Received] + 1 End If Do I need to have a condition that if the sample is received before noon then the original date is used? For example...

I am having trouble with a VBA calculation that if a sample is recieved after 12:00 (noon), then +1 day is added to Date_received. If the sample is received before 12 (noon), then Date_Received is unchanged or the original date. The code below seems to do the first part, but not the second and...