Text box to calculate total records in a table?

[ChrisHaynes]

Hi, I have a text box on my main form which I need to calculate the total records in 1 of my tables and display the total.

What code do I need to put in the control source of the text box??

Cheers,
Chris.

 

[MajP]

There is probably an easier way, but I use this function because I built it to do other things.

Public Function myRecordCount(strFormName As String) As Integer
Dim rs As DAO.Recordset
Set rs = Forms(strFormName).RecordsetClone
rs.MoveFirst
rs.MoveLast
myRecordCount = rs.recordcount
Set rs = Nothing
End Function

In an unbound textbox

=myRecordCount("YourFormNameGoesHere")

 

[fneily]

I created a command button that on the OnClick event I placed: (Private Sub and End Sub will already be there)

Private Sub Command11_Click()
Dim holdcount As Integer
holdcount = CurrentDb.TableDefs("Mailinglist").RecordCount
Me![countbox].Value = holdcount
End Sub

Substitute your tablename for Mailinglist.
Substitute your textbox name for countbox.