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
Office XP Key retrieval
How to use "if" statement in access 2003
Extend reset password time
SQL Rownumber command
Need to import data from SQL Query Analyzer to MS Access
Sharepoint Alternate Access Mappings not working
Send MS Access Appointments to Outlook Calendar - Detertmine Changes in Access to Outlook
Visual SourceSafe & Access
Windows 7 TPM issue
Visual studio two applikations with the same source file, possible