Private Sub Text19 After Update( Ne号] Setfocus DoCmd Find Record Me![Text191, True,,True e[货号]Mel![Text19]Then Isg Box("增加一种新商品?", vboK Cancel,"请确定!")= vboK Then DoCmd Go ToRecord,, acNewRec Me[货号]= Me![TextI9 M[库存数量]=0 Else Exit Sub End If End If Me!rext21]=Me!货名 Mel! Itext78]=Me![规格] Me![text80]=Me!计量单位] Me![Text25]=Me!进货单价] Me! [Text27=0 Me. Refresh End subPrivate Sub Text19_AfterUpdate() Me![货号].SetFocus DoCmd.FindRecord Me![Text19], , True, , True If Me![货号] <> Me![Text19] Then If MsgBox("增加一种新商品？", vbOKCancel, "请确定！") = vbOK Then DoCmd.GoToRecord , , acNewRec Me![货号] = Me![Text19] Me![库存数量] = 0 Else Exit Sub End If End If Me![Text21] = Me![货名] Me![text78] = Me![规格] Me![text80] = Me![计量单位] Me![Text25] = Me![进货单价] Me![Text27] = 0 Me.Refresh End Sub