Search results

If the Time_received is after 12:00PM the Date_Received doesn't seem to increment by 1 day. For example a sample received at 1:25PM on 8/11/2014 should be changed to 8/12/2014 because the time is >= 12:00PM. Thanks.

Is it possible to create a VBA on the AfterUpdate() that flips a value based on a condition? For example, if in a text box (Gender) there is a value of "Male" and in a combo1309 the value is "No", can Gender be switched to "Female" automatically? IF Me.combo1309 = "No" Then...

I am not sure I follow, can you please provide an example? I am not a programmer, rather a scientist who is trying to learn. Thanks a lot :).

Are you able to see the issue? Thanks.

I attached a local copy of the database. Step 1: in the HLA ID field enter text or a number a bunch of fields will populate and one of them is Date Received which will be 8/7/2014. Step 2: in the Test select "LR" from the dropdown and that will calculate a Due Date (which is a field). The...

It seems whenever I think I have it, a new issue arises or something changes that wasn't accounted for. I really appreciate your help and patience :). So, on the attached database when you enter some text into the HLA ID field most of the fields in blue will populate. The Date Received is...

If Me.Test = "LR" And Me.Time_Received >= #12:00:00 PM# Then Me.Date_Received = Me.Date_Received + 1 End If If Me.Test = "LR" And Me.Time_Received >= #12:00:00 PM# And Me.Day_Received = "Friday" Then Me.Date_Received = Me.Date_Received + 3 End If If Me.Test = "HR"...

I do not have access to the server in which the link was made so I do not want to break it. I think I found a solution but it doesn't function as expected: There is a textbox (Other) that if the word "Other" is selected from the Instituion combo-box is enabled for the user to type in, but if...

I apologize about the dual post. I posted this on the forms section and do not know how to delete a post. http://www.access-programmers.co.uk/forums/showthread.php?t=267644 The row source has the 3 values in it that appear in the dropdown and the entire field (Institution) is visible. When I...

When I do that I get the text entered isn't an item on the list and when I go to add it I get the linked table has been changed on the server, the last entry will not be saved. I do not want to add the entry to the list, rather save it to the individual record. Thanks.

I posted this on the modules and VBA but it may be better suited here: How do I allow a user the ability to enter in text into a combo-box so that it saves to that record? Thanks.

How do I allow a user the ability to enter in text into a combo-box so that it saves to that record? Thanks.

Second try: Private Sub Test_AfterUpdate() If Me.Test = "LR" And Me.Time_Received >= #12:00:00 PM# And Me.Time_Received <= #8:00:00 PM# And Me.[Date_Received]= Weekday(2) Or Weekday(3) Or Weekday(4) Or Weekday(5) Then Me.[Date_Received] = Me.[Date_Received]...

Yes, but I am afraid I do not understand how to use it correctly. I was hoping that the code was close. Thanks.

So would this maybe do what I need (or close to it): Private Sub Test_AfterUpdate() If Me.Test = "LR" And Me.Time_Received >= #12:00:00 PM# And Me.Time_Received <= #8:00:00 PM# And Me.[Date_Received]= Weekday(), vbMonday = 2 and vbThursday = 5 Then...

It is the same code, but I did not account for the day of the week. So I am hoping just to ad that condition to the code, but having a bit of trouble. I have not incorporated the Monday through Thursday bit because I am not sure how. The Date Received field is the one to check against. If...

I am trying to create a code that accounts for Time Received > 12:00 PM and adjusts a Date Received by adding 1 day if it is a Monday thru Thursday and 3 days if it is a Friday. Private Sub Test_AfterUpdate() If Me.Test = "LR" And Me.Time_Received >= #12:00:00 PM# And Me.Time_Received <=...

I'm sorry, but I am getting an invalid use of Null error, with the line in bold highlighted. Thank you. Private Sub Form_BeforeUpdate(Cancel As Integer) Me.[Due_Date] = GetBusinessDay([Date_Received], IIf([Test] = "LR", 4, IIf([Test] = "HR", 5, IIf([Test] = "STR", 2, IIf([Test] = "MOLDX"...

Thank you.

The Due Date calculates in the form but when I go to add a new record: The schema for this table has changed. You must refresh the table before adding new records. Thanks.