1.标签为“商品货号”的文本框数据更新事件处 在“商品上柜数据录入”窗体设计视图中 选定标签为“商品货号”的文本框,假定该 文本框控件“名称”属性值为“Text19 调出属性对话框,选定“事件”卡,在“更 新后”事件行右侧单击“生成器”按钮。在 随即出现的“选择生成器”对话框中,选中 “代码生成器”选项,然后单击“确定”按 钮,进入VBE编程环境,如图6-3所示 然后,应该在代码窗口中输入如下程序代码, 编写完成后关闭ⅤBE,返回窗体设计视图
1．标签为“商品货号”的文本框数据更新事件处 理 在“商品上柜数据录入”窗体设计视图中， 选定标签为“商品货号”的文本框，假定该 文本框控件“名称”属性值为“Text19”。 调出属性对话框，选定“事件”卡，在“更 新后”事件行右侧单击“生成器”按钮。在 随即出现的“选择生成器”对话框中，选中 “代码生成器”选项，然后单击“确定”按 钮，进入VBE编程环境，如图6-3所示。 然后，应该在代码窗口中输入如下程序代码， 编写完成后关闭VBE，返回窗体设计视图
Private Sub Text19 AfterUpdateO Me[货号] Setfocus DoCmd FindRecord Me![Text19], True,, True IfMe![货号]心Me![Text19Then If Msg Box("货号输入错误!", vbOK Cancel,"错误!")= vboK Then Me! [Text19. SetFocus Else Me![Text19. SetFocus End if Else Me![Text2l]=Me[货名 Me[ext25]=Me进货单价 Me![Text27=0 Me. refresh ●Me柜存数据记录子窗体] SetFocus DoCmd Find Record Me! [Text19],,True,,True Me![Text27]SetFocus End If ◆ End sub
Private Sub Text19_AfterUpdate() Me![货号].SetFocus DoCmd.FindRecord Me![Text19], , True, , True If Me![货号] <> Me![Text19] Then If MsgBox("货号输入错误！", vbOKCancel, "错误！") = vbOK Then Me![Text19].SetFocus Else Me![Text19].SetFocus End If Else Me![Text21] = Me![货名] Me![Text25] = Me![进货单价] Me![Text27] = 0 Me.Refresh Me![柜存数据记录子窗体].SetFocus DoCmd.FindRecord Me![Text19], , True, , True Me![Text27].SetFocus End If End Sub