Hi Folks,
We have a database where documents are due based on Order dates. We prefer all starting points to be on a Friday.
First part, I check for the day it was entered, and store the new order date as FloatOrderDate. That part works no problem as i have check the output via message box.
I am having an issue with running the docmd.runsql, as I am trying to update a table based on that stored date- FloatOrderDate. How do i put that FloatOrderDate into the RunSQL?
Code:
Dim formatorderdate As StringDim FloatOrderDate As String
formatorderdate = Format(Forms!newvdlform!OrderDate, "dddd")
If formatorderdate = "monday" Then
FloatOrderDate = Forms!newvdlform!OrderDate + 4
ElseIf formatorderdate = "tuesday" Then
FloatOrderDate = Forms!newvdlform!OrderDate + 3
ElseIf formatorderdate = "wednesday" Then
FloatOrderDate = Forms!newvdlform!OrderDate + 2
ElseIf formatorderdate = "thursday" Then
FloatOrderDate = Forms!newvdlform!OrderDate + 1
ElseIf formatorderdate = "friday" Then
FloatOrderDate = Forms!newvdlform!OrderDate
End If
DoCmd.RunSQL "UPDATE WeeksTable SET WeeksTable.ConvertedDate = FloatOrderDate+7*[WEEKSTABLE].[weeksvalue] WHERE WeeksTable.datetype = 'aro' "
End Sub