Code:
Private Sub cmdRecordambient_Click()
'add data to table
CurrentDb.Execute "INSERT INTO AmbientRubberResults(DateTested, SampleName, TotalVol, TotalMass, Mesh8, Mesh10, Mesh12, Mesh14, Mesh16, Mesh20, Mesh30, Mesh40, Mesh50, Mesh60, Mesh70, Mesh100, MeshPan, AppDens, Res8, Res10, Res12, Res14, Res16, Res20, Res30, Res40, Res50, Res60, Res70, Res100, ResPan, PS8, PS10, PS12, PS14, PS16, PS20, PS30, PS40, PS50, PS60, PS70, PS100, PSPan, PassFail) " & _
" VALUES(" & Me.txtDatetested & ",'" & Me.txtSamplename & "','" & Me.txtTotalvol & "','" & Me.txtTotalmass & "','" & Me.txt8mass & "','" & Me.txt10mass & "','" & Me.txt12mass & "','" & Me.txt14mass & "','" & Me.txt16mass & "','" & Me.txt20mass & "','" & Me.txt30mass & "','" & Me.txt40mass & "','" & Me.txt50mass & "','" & Me.txt60mass & "','" & Me.txt70mass & "','" & Me.txt100mass & "','" & Me.txtPanmass & "','" & Form.Recordset.Fields("txtDens") & "','" & Form.Recordset.Fields("txt8results") & "','" & Me.txt10results & "','" & Me.txt12results & "','" & Me.txt14results & "','" & Me.txt16results & "','" & Me.txt20results & "','" _
& Me.txt30results & "','" & Me.txt40results & "','" & Me.txt50results & "','" & Me.txt60results & "','" & Me.txt70results & "','" & Me.txt100results & "','" & Me.txtPanresults & "','" & Form.Recordset.Fields("txtPassfail") & "','" & Form.Recordset.Fields("txtPS8") & "','" & Me.txtPS10 & "','" & Me.txtPS12 & "','" & Me.txtPS14 & "','" & Me.txtPS16 & "','" & Me.txtPS20 & "','" & Me.txtPS30 & "','" & Me.txtPS40 & "','" & Me.txtPS50 & "','" & Me.txtPS60 & "','" & Me.txtPS70 & "','" & Me.txtPS100 & "','" & Me.txtPSPan & "')"
End Sub