Set a textbox value in VB when the report loads?

[fperri]

Hello,

Is it possible to set the value of a textbox on a report in VB when the report loads?

Any ideas?

[fperri]

I figured out how to refrence it but I'm getting an error now that the property is read only and cannot be set. Any ideas what I'm doing wrong?

Thanks :)

[puppydogbuddy]

I figured out how to refrence it but I'm getting an error now that the property is read only and cannot be set. Any ideas what I'm doing wrong?

Thanks :)

You did not post your code, but it should look something like this:

Private Sub Report_Open(Can cel As Integer)
Me!YourTextboxN ame.Value = 5000
End Sub

[fperri]

Sorry, I got this from an example online, but I get the read only error on the value property.

Private Sub Report_Open(Cancel As Integer)
Dim rst As DAO.Recordset
Dim db As DAO.Database
Dim i As Integer
Dim j As Integer
Set db = CurrentDb
Set rst = db.OpenRecordset("select * from pivotRates")
rst.MoveFirst
j = -1
i = 0
For i = 0 To rst.Fields.Count - 1
If rst.Fields(i).Name Like "*ID" Then GoTo skip_it
j = j + 1
Select Case j
        Case 0
            Me.txtLender1.Properties(Value) = rst.Fields(i).Name
        Case 1
            Me.txtLender2.Properties(Value) = rst.Fields(i).Name
        Case 2
            Me.txtLender3.Properties(Value) = rst.Fields(i).Name
 
End Select
skip_it:
Next
rst.Close
Set rst = Nothing
End Sub
 

[fperri]

Ok, I found this help article on Microsoft's website.

http://support.microso ft.com/kb/328320

This worked. :)

[puppydogbuddy]

Ok, I found this help article on Microsoft's website.

http://support.microso ft.com/kb/328320

This worked. :)

So, your problem is resolved? Just so you know, you were getting the "read only" message in your previous post because the code was only executing a select statement against the recordset....th e recordset was never put in .Edit mode and updated.