Unbound Calculated Text Box Error #Name?

[davegri]

Don't know name of your frmYours.
I've had something like this work in the past.
Even though the code is contained in frmYours, you still need to specify it explicitly.

dim dq as string
dq=chr$(34)     'double quote
Forms("frmYours").Controls("txtTotalCasesToDate").ControlSource = "=" & dq & DCount("CaseNum", "tblCase") & dq

[CJ_London]

I don't see why you think this would work

Private Sub txtTotalCasesToDate_GotFocus()

Dim strSQL As String

strSQL = "SELECT Count(CaseNum) As CaseCount FROM tblCase "

'strSQL = Nz(DCount("CaseNum", "tblCase"), 0)

Me![txtTotalCasesToDate].ControlSource = strSQL

'Me![txtTotalCasesToDate].Requery
End Sub

All you are doing is assigning a string (of sql code) to your textbox

To run sql you need to execute it e.g.

dim rst as dao.recordset
set rst=currentdb.execute  "SELECT Count(CaseNum) As CaseCount FROM tblCase "
if not rst.eof then Me![txtTotalCasesToDate]=rst!CaseCount
set rst=nothing
rst.close

not tested but if you changed your textbox to a listbox (one row high) you could use

Me![lstTotalCasesToDate].RowSource = "SELECT Count(CaseNum) As CaseCount FROM tblCase "

[SierraJuliet]

I don't see why you think this would work"

It was example code explaining different types of things tried for SA of others, so some of it doesn't match up (i.e. the way it shows I know it will present the string in the field). Even still, it doesn't scratch the surface of things I tried. Fact of matter is Access has its corks.

Setting RowSource will not work because the text box is unbound (I tried by accident trying to type ControlSource ).

[SierraJuliet]

Don't know name of your frmYours.
I've had something like this work in the past.
Even though the code is contained in frmYours, you still need to specify it explicitly.

dim dq as string
dq=chr$(34)     'double quote
Forms("frmYours").Controls("txtTotalCasesToDate").ControlSource = "=" & dq & DCount("CaseNum", "tblCase") & dq

That is interesting...

Essentially that is what I was trying to do, that is keep calculations contained within forms for ease of management and troubleshooting.