Overflow Error when converting data types

[TinaCa]

I need to concatenate a year to an invoice number. Steps are get most recent invoice number for this year and assign to variable.



InvCurr = rs.Fields("InvoiceId") It comes in as a string. then I use left() to get the actual invoice Id (without the two numbers on the end that are the year).

Now here is my code to increase the invoice number by and then concatenate the year to it.

Dim InvCurr As String
Dim InvNo As Integer
Dim InvNoU As String
Dim InvNoIn As Integer

InvNo = CInt(InvCurr + 1)
InvNoU = CStr(InvNo) & InvNoYr
InvNoIn = CInt(InvNoU)

The first two run great when i get to the third one InvNoIn I get an overflow error what is making this one different from the others? (I tried using variant and it didn't help)

Tina

[AMAS]

Hi Tina,

Excel vba is more of my thing, but I would guess that InvNoU is not an integer stored as a string. You can see what the variable contains in the immediate window using

Deubug.print InvNoU

This should appear to be an integer, if not then InvNoIn is going to error out.

[TinaCa]

I changed the variable type to variant and now it is working perfect. Thanks