type mismatch error 13
Posted on 2004-04-09
I am tring to call a function within my module that gets the date from invdate field in a table. I keep getting type mismatch error 13 I have checked my references and nothing is missing or tagged as missing. In addition, when I put a breakpoint on the function it show the expected results.
I have included the function and the part of the module that calls the function
Loop While (strAcct = ![AccessNumber])
aSheet.Cells(i, 1) = "SPL"
aSheet.Cells(i, 3) = "INVOICE"
aSheet.Cells(i, 4) = getdate(yourdate)
yourdate = rst!date
newdate = getdate(yourdate)
aSheet.Cells(i, 5) = "Sales Tax Payable"
aSheet.Cells(i, 6) = "State Comptroller"
i = i + 1
aSheet.Cells(i, 1) = "ENDTRANS"
Public Function getdate(ByVal mydate As Date) As Date
mydate = ([date])