sub on from

[evilradish]

I am still learning access and have put together the following sub on a combo box. When a user changes the value I would line another field to change value.

Only problem is that its not working and I cannot see why.

Probably simple but thanks of any suggestions

-----------------------------

Private Sub Combo40_AfterUpdate()

Dim strname As String

On Error GoTo Proc_Error

Select Case strname
Case Is = "aaaa"
Me!GlossBookGroup = 2
Case Is = "bbbb"
Me!GlossBookGroup = 3
Case Is = "cccc"
Me!GlossBookGroup = 4
Case Is = "dddd"
Me!GlossBookGroup = 5
Case Is = "eeee"
Me!GlossBookGroup = 6
End Select

Proc_Error:

MsgBox Err.Description, vbOKOnly

Proc_End:

End Sub

----------------------------------
All i get is the error box which is blank. am I being a lemon?

Thanks

 

[vbaInet]

Welcome to AWF!

Try asking yourself, "where does strName get its value from?"

 

[evilradish]

Welcome to AWF!

Try asking yourself, "where does strName get its value from?"

holy hell... Im sooo sorry for posting before slapping myself

Thanks for the help and I am sure there will be many more posts like this..hahahan

 

[vbaInet]

Don't slap yourself .... too hard

Feel free to post anytime