Private Sub 导入_Click()
Dim sql As String
DoCmd.SetWarnings no
sql = "INSERT INTO 药品入库明细表 ( 入库日期, 供货公司, 入库单号, 货位编号 ) "
sql = sql + "SELECT [Forms]![药品入库表]![入库日期] AS 入库日期, [Forms]![药品入库表]![供货公司] AS 供货公司, [Forms]![药品入库表]![入库单号] AS 入库单号, [Forms]![药品入库表]![货位编号] AS 货位编号 "
DoCmd.RunSQL sql
Me.药品入库明细表_子窗体.Form.Requery
End Sub