Run-time error '2448'

[james_IT]

hi,

ive got a search form with a list box in it. when i dbl click it opens a form with that record. it works fine however i always get a run-time error '2448' message saying that i can't assign a value to this object. does this mean i cant change the PK or something. i can see that the form has opened to the correct record behind the message, however i dont want the debug message to appear.

any ideas?

thanks

 

[RuralGuy]

Go into debug and see what line of code is highlighted when you get the error.

 

[james_IT]

Private Sub List30_DblClick(Cancel As Integer)
Dim rs As Object

DoCmd.OpenForm "frmEditEvent"
Forms!frmEditEvent.[EventID] = Me.List30.Column(0)
DoCmd.Close acForm, "frmEventSearch"
End Sub

 

[RuralGuy]

I'm not sure what you are trying to accomplish but why not just set the WhereCondition argument of the OpenForm command and drop the line that gives you the error. Or maybe just pass the value in the OpenArgs argument and do a FindFirst in the Onad event of the next form.

 

[james_IT]

no offense but i have no idea what you just said...im not that advanced yet...

 

[RuralGuy]

Sorry. Try this code:

Private Sub List30_DblClick(Cancel As Integer)

Dim strWhere As String

strWhere = "[EventID] = " & Me.List30.Column(0)

DoCmd.OpenForm "frmEditEvent", , , strWhere 
DoCmd.Close acForm, "frmEventSearch"

End Sub

 

[james_IT]

spot on!!! perfecctt! thank you soo much

 

[RuralGuy]

Glad to help.