On Error Resume Next
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Odb_Production_Operations_Schedule ( Odb_Product_Codeb, Odb_Product_Namec, Odb_Product_Unetd, Odb_Product_Qtye ) " & vbCrLf & _
"SELECT Odb_Descrptionxy_Prim.Odb_ItemCode, Odb_Descrptionxy_Prim.Odb_ItemName, Odb_Descrptionxy_Prim.Odb_Unet, Odb_Descrptionxy_Prim.Odb_Qty " & vbCrLf & _
"FROM Odb_Descrptionxy_Prim " & vbCrLf & _
"WHERE (((Odb_Extch_Ex.Odb_RawCode)=[Forms]![Form]![Odb_ItemCode])) AND (((Odb_Extch_Ex.Odb_NameRaw)AND (((Odb_Extch_Ex.Odb_Unet)AND (((Odb_Extch_Ex.Odb_Praic)AND (((Odb_Extch_Ex.Odb_Qty) Not In (SELECT [Odb_Production_Operations_Schedule].[Odb_Product_Codeb] " & vbCrLf & _
"FROM [Odb_Production_Operations_Exch]; " & vbCrLf & _
")));"
DoCmd.SetWarnings True
DoCmd.Requery
حولت تفعيل هذا الكود ولم يفلح معي هل الكود هذا فيه خطاء
ارجو المساعده