Here is my code (Resulting SQL String below):
Expand|Select|Wrap|Line Numbers
- Private Sub Command9_Click()
- Dim AddDays As Date
- Dim sqlstring As String
- DoCmd.SetWarnings False
- AddDays = Me.txtBeginDate
- For AddDays = Me.txtBeginDate To Me.txtEndDate
- sqlstring = "if NOT EXISTS (SELECT ExpenseDate, ExpenseReportID " & _
- "FROM tblExpenseDetail " & _
- "WHERE ExpenseDate = " & "#" & AddDays & "#" & " AND ExpenseReportID = " & Me.txtExpenseReportID & ") " & _
- "Insert Into tblExpenseDetail (ExpenseDate, ExpenseReportID, ExpenseHotel) " & _
- "Values (#" & AddDays & "#, " & ExpenseReportID & ", " & ExpenseHotel & "); "
- MsgBox sqlstring
- DoCmd.RunSQL sqlstring
- AddDays = DateAdd("d", 0, AddDays)
- Next AddDays
- DoCmd.SetWarnings True
- End Sub
if NOT EXISTS (SELECT ExpenseDate, ExpenseReportID FROM tblExpenseDetail WHERE ExpenseDate = #4/9/2011# AND ExpenseReportID = 99) Insert Into tblExpenseDetail (ExpenseDate, ExpenseReportID, ExpenseHotel) Values (#4/9/2011#, 99, 89);