'stDocName = "qrdVINP_T" 'clear tblVINP
'DoCmd.OpenQuery stDocName, acViewNormal, acEdit
CurrentDb.Execute "Delete tblVINP.VINP FROM tblVINP;", dbFailOnError
'stDocName = "qrdEMTYPE" 'clear tblEMTYPE
'DoCmd.OpenQuery stDocName, acViewNormal, acEdit
CurrentDb.Execute "Delete tblEMTYPE.EMTYPE FROM tblEMTYPE;", dbFailOnError
'stDocName = "qra1VINP_T" 'Append VIN1: Mid([VIN],5,1) to tblVINP
'DoCmd.OpenQuery stDocName, acViewNormal, acEdit
CurrentDb.Execute "INSERT INTO [tblVINP] (VINP) VALUES ('" & Mid(Me.VIN, 5, 1) & "')", dbFailOnError
'stDocName = "qra2VINP_T" 'Append VIN10: Left([VIN],8) & " " & Mid([VIN],10,2) to tblVINP
'DoCmd.OpenQuery stDocName, acViewNormal, acEdit
CurrentDb.Execute "INSERT INTO [tblVINP] (VINP) VALUES ('" & Left(Me.VIN, 8) & " " & Mid(Me.VIN, 10, 2) & "')", dbFailOnError
stDocName = "qra3VINP_T" 'Append VIN2C: Mid([VIN],4,2) tp tblVINP
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
stDocName = "qra4VINP_T" 'Append VIN3: Mid([VIN],5,3) to tblVINP
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
stDocName = "qra5VINP_T" 'VIN3C: Mid([VIN],4,3) to tblVINP
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
stDocName = "qra6VINP_T" 'Append VIN4: Mid([VIN],4,4) to tblVINP
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
stDocName = "qra7VINP_T" 'Append VIN4C: Mid([VIN],4,2) & " " & Mid([VIN],10,2)
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
stDocName = "qra8VINP_T" 'Append VIN5A: Left([VIN],5) to tblVINP
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
stDocName = "qra9VINP_T" 'Append VIN5: Left([VIN],4) & " " & Mid([VIN],6,1)
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
stDocName = "qra10VINP_T" 'Append VIN6: Left([VIN],1) & " " & Mid([VIN],5,2)
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
stDocName = "qra11VINP_T" 'Append VIN9: Left([VIN],7) & " " & Mid([VIN],10,2)
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
stDocName = "qra12VINP_T" 'Append VIN10: Left([VIN],8) & " " & Mid([VIN],10,2)
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
stDocName = "qra13VINP_T" 'Append VIN11: Left([VIN],11) to tblVINP
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
stDocName = "qra14VINP_T" 'Append VIN12: "-" to tblVINP
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
stDocName = "qraEMTYPE" 'Append Emmision to EMTYPE in tblEMTYPE
DoCmd.OpenQuery stDocName, acViewNormal, acEdit