Run time error '13' Type mismatch (1 Viewer)

merry_fay · Mar 4, 2011

Hi,

I have a form & am using code to set a dropdown list:

Code:
Private Sub Form_Load()
Dim myYearArray(2) As String, myYearList As String, i As Integer
For i = 0 To 2
myYearArray(i) = CStr(Year(DateAdd("yyyy", i * 1, Date)))
Next i
myYearList = Join(myYearArray, ";")

Me!cmbYr.RowSource = myYearList

End Sub

If I have no record source for the form, this works fine, but if I set the record source, even if I leave cmbYr unbound, I get the above error.

I can't even use the excuse of being blonde this time

I simply just have no idea why!
Can anyone help please?

Thanks

vbaInet · Mar 4, 2011

Although your code works, I would use this:

Code:

Private Sub Form_Load()
    Dim myYearList As String, i As Integer

    For i = 0 To 2
         myYearList = myYearList & Year(DateAdd("yyyy", i * 1, Date)) & ";"
    Next i
    
    Me!cmbYr.RowSource = Left(myYearList, Len(myYearList) - 1)
End Sub

Ensure that the Row Source Type property of the textbox is set to Value List.

merry_fay · Mar 4, 2011

Yes, it is set to value list -neither with a record source for the form or without work if it isn't!

I tried your code but it's coming up with exactly the same problem.

The line which is coming up as type mismatch is:
myYearList = myYearList & Year(DateAdd("yyyy", i * 1, Date)) & ";"
or
myYearArray(i) = CStr(Year(DateAdd("yyyy", i * 1, Date)))

Thanks

vbaInet · Mar 4, 2011

merry_fay said:
Yep, it is.

Not much to go on.

Does it work now or is it still throwing an error?

merry_fay · Mar 4, 2011

Sorry, had a blonde moment & only saw the last line of your response!!

Edited my reply now! It's still coming up with the same problem

Thanks

vbaInet · Mar 4, 2011

It probably cannot resolve Date, Year and/or DateAdd(). Do these functions work in the Immediate Window?

Try this too:

Code:

myYearList = myYearList & [COLOR=Red]VBA.[/COLOR]Year([COLOR=Red]VBA.[/COLOR]DateAdd("yyyy", i * 1, [COLOR=Red]VBA.[/COLOR]Date)) & ";"

Is there a field named Date in the record source of your form?

merry_fay · Mar 4, 2011

Haha -I have a field named [Year]!!!! I just stuck VBA. in front of that in my code & it works

Thankyou!!!! I'll remember that one for future too....

vbaInet · Mar 4, 2011

You're welcome!

You really should avoid using names like that. Here's a pretty good list of the Access Reserved keywords:

http://allenbrowne.com/AppIssueBadWord.html

Run time error '13' Type mismatch (1 Viewer)

merry_fay

Registered User.

vbaInet

AWF VIP

merry_fay

Registered User.

vbaInet

AWF VIP

merry_fay

Registered User.

vbaInet

AWF VIP

merry_fay

Registered User.

vbaInet

AWF VIP

Similar threads

Users who are viewing this thread