Cannot set the value of a textbox

[Soma_rich]

:banghead:
Not sure whats going on here, nothing on the table that stops this from working. I just get Run-time error "2448 You can't assign a value to this object" When the code runs.

Any ideas what I am doing wrong?

Private Sub Form_Open(Cancel As Integer)

Dim rst As DAO.Recordset
MySQL = " Select max(ID) from TblUserQry"
Set rst = CurrentDb.OpenRecordset(MySQL)
Myid = rst.Fields(0) + Int(Rnd(1) * 10)

Me.txtMyID.Value = Myid

End Sub

 

[mh123]

Hi

Do you not need to Dim the MySQL and Myid? Try this

Private Sub Form_Open(Cancel As Integer)

Dim rst As DAO.Recordset
Dim MySQL as String
Dim Myid as String
MySQL = " Select max(ID) from TblUserQry"
Set rst = CurrentDb.OpenRecordset(MySQL)
Myid = rst.Fields(0) + Int(Rnd(1) * 10)

Me.txtMyID.Value = Myid

End Sub

HTH (I may be wrong, I am still learning !)

 

[JHB]

Try by moving the code to the form's load event instead.

 

[pr2-eugin]

Does txtMyID happen to be bound to an AutoNumber field? Also which line gives you the error?

 

[Soma_rich]

Hi txtMyID is bound to a standard number field, Will try putting it in the on-load event cheers

 

[Soma_rich]

JHB it works a treat in on-load why is form-open different? When would I use form-open over form-load?

Thanks again!

 

[JHB]

JHB it works a treat in on-load why is form-open different?

The form's on load event is triggered later as the form's on open event.