I am needing to update a table field.
I am using a query but keep getting "Parameter Value" requests. Can anyone help with a solution.
Public Sub CodeTests()
Dim dbs As Database, qdf As QueryDef, sSql As String
Dim dteMon As Date
Dim sMon As String
Dim iMon As Integer
Dim iLMon As Integer
Dim iYear As Integer
iMon = Month(Date)
sMon = MonthName(iMon, True)
iLMon = iMon - 1
iYear = Year(Date)
Set dbs = CurrentDb
DoCmd.RunSQL "UPDATE tbl_Sales_Data Set tbl_Sales_Data.[Date] = tbl_Sales_Data.[Day]" & "-" & sMon & _
" Where tbl_sales_Data.[Date] = isnull;"
End Sub