this was working but now has decided to not work today.
any ideas?
this is the code and it has stopped where the * is
If txtday = "Monday " Then
txtanswer = txtminus3day
Else
txtanswer = txtminusoneday
End If
tblDate.MoveFirst
Do While Not tblDate.EOF
If tblDate![Date] = txtanswer Then
Exit Sub
Exit Do
End If
tblDate.MoveNext
Loop
*tblDate.AddNew
tblDate![Date] = txtanswer
tblDate.Update
any ideas?
this is the code and it has stopped where the * is
If txtday = "Monday " Then
txtanswer = txtminus3day
Else
txtanswer = txtminusoneday
End If
tblDate.MoveFirst
Do While Not tblDate.EOF
If tblDate![Date] = txtanswer Then
Exit Sub
Exit Do
End If
tblDate.MoveNext
Loop
*tblDate.AddNew
tblDate![Date] = txtanswer
tblDate.Update