Microsoft
Software
Hardware
Network
Question : Help with recordsets
I have a tab control with several pages and each page contains a subform. I would like to display the recordcount of the subform in the tabcontrol page caption, but I can't seem to figure out how to do it correctly.
I am using this code:
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = currentdb()
Set rst = db.OpenRecordset("T_ITEM_N
BR_LINKS",
dbOpenDynaset)
rst.FindFirst "ITEM_NBR = " & Me.id
If rst.NoMatch Then
Me.TabCtl48.Pages(6).Visib
le = True
Me.TabCtl48.Pages(6).Capti
on = "links (0)"
Else
Me.TabCtl48.Pages(6).Visib
le = True
Me.TabCtl48.Pages(6).Capti
on = "links (" & rst.RecordCount & ")"
End If
rst.Close
But I get a links (965) caption, which is all of the records in the table.
How can I drill down to only those links pertaining to the ITEM_NBR that is on the form field 'me.id' ?
Thanks...
Answer : Help with recordsets
change this
Me.TabCtl48.Pages(6).Capti
on = "links (" & rst.RecordCount & ")"
to
Me.TabCtl48.Pages(6).Capti
on = "links (" & me.[nameofsubform].form.re
cordsetclo
ne.RecordC
ount & ")"
Random Solutions
Excel automation: unload XLL so Excel can quit
Constant Username and Password Pop up in Exchange 2007
multiple JOINs ON equal AND NOT equal
Can't get RD Web Connection to work through WatchGuard Firewall
Client side drives not showing up in Terminal Server
cells in linked excel sheet showing up as #NA
Unable to add XP Clients to new MS Server 2003 Domain
EXCHANGE 2010 WITH OUTLOOK 2000
Automatic Update Query
SetFont in CListBox