Thanks, but still not working. Now the command button opens a blank form..
My code is
Private Sub cmdFill_Click()
On Error Resume Next
Dim strSQL As String
strSQL = "SELECT * FROM tblTicketing WHERE StockNumber = " & Me.StockNumber
DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
Dim c As...