Silvera
New member
- Local time
- 1:45 PM
- Messages
- 16
I though this would be simple but searches have not worked. here is my code from the caling form:
Private Sub BD_stuff_Click()
On Error GoTo Err_BD_stuff_Click
Dim stDocName As String
Dim stLinkCriteria As String
stLinkCriteria = CurrentRecord
stDocName = "RFIsBD_stuff"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_BD_stuff_Click:
Exit Sub
Err_BD_stuff_Click:
MsgBox Err.Description
Resume Exit_BD_stuff_Click
End Sub
I thought defining the "stLinkCriteria" would work but it did not. I've tried severa other things from on line searches but nothing has worked the subform always is opened to the 1st record.
Private Sub BD_stuff_Click()
On Error GoTo Err_BD_stuff_Click
Dim stDocName As String
Dim stLinkCriteria As String
stLinkCriteria = CurrentRecord
stDocName = "RFIsBD_stuff"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_BD_stuff_Click:
Exit Sub
Err_BD_stuff_Click:
MsgBox Err.Description
Resume Exit_BD_stuff_Click
End Sub
I thought defining the "stLinkCriteria" would work but it did not. I've tried severa other things from on line searches but nothing has worked the subform always is opened to the 1st record.
My Computer
At a glance
Windows 7 Home Premium 64bitAMD Phenom II X6 1075T 3.0GHz4 GB
- Computer type
- PC/Desktop
- Computer Manufacturer/Model Number
- Home built
- OS
- Windows 7 Home Premium 64bit
- CPU
- AMD Phenom II X6 1075T 3.0GHz
- Motherboard
- ASUS M4A88T-M
- Memory
- 4 GB