Tasman Group Retail Building Services-davegri-v01.zip
Made a couple of changes. You don't need a table to hold the job code. A Tempvar will do just fine. None of the red needed.
Code:
Private Sub jobcode_Click()
' Dim wSQL As String
' Dim sSQL As String
'
' 'Delete OldRecord
'
' DoCmd.SetWarnings False
' dSql = "DELETE From JobLineNo"
' DoCmd.RunSQL dSql
'
' DoCmd.SetWarnings True
'
'
' Debug.Print sSQL
' ' CurrentDb.Execute sSQL, dbFailOnError
'
' CurrentDb.Execute "INSERT INTO JobLineNo (JobLineNo) VALUES ('" & jobcode & "')"
TempVars!tvjobline = Me.jobcode.Value
DoCmd.Close acForm, "frmJobList", acSaveYes
DoCmd.OpenForm "frmJobLineItems", acNormal, "", "", , acNormal
End Sub
Then the query needs to include the tempvar
frmJobLineItems should NOT be DataEntry = Yes
I think that's all I changed. If not, any and all changes in the uploaded DB.