DoCmd.SetWarnings False
Dim strSQL As String

'SQL Code
strSQL = "INSERT INTO Add_tbl ( DrawingNo, Parts, Model, [For], Material ) " & _
"SELECT Drawing_tbl.Drawing_no, Drawing_tbl.Parts, Drawing_tbl.Model, Drawing_tbl.For, Drawing_tbl.Material " & _
"FROM Drawing_tbl " & _
"WHERE (((Drawing_tbl.Model)=[Add all Receod for Model is]));"

DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

MsgBox "Add Drawing Success!", vbInformation



ต้องการใส่เงื่อนไขตอนรันพารามิเตอร์ว่า ถ้าค่าที่กรอกไม่มีอยู่ในฟิลด์Model ของตาราง Drawing_tbl ให้Msg Box แจ้งเตือนค่ะ