[5分]acCmdRecordsGoToNew 使用中的错误

问题解决了。加了条判断语句。表中没有数据的时候，不进行添加记录的操作。

Private Sub 条形码_AfterUpdate()
If CheckRecords("POS") = True Then
   With Me.POS_CHILD
.SetFocus
        DoCmd.RunCommand acCmdRecordsGoToNew
        !TiaoXingMa = Me.条形码
        !bianma = Me.条形码.Column(1)
        !MingCheng = Me.条形码.Column(2)
        !XingHao = Me.条形码.Column(3)
        !JiLiangDanWei = Me.条形码.Column(4)
        !DanJia = Me.条形码.Column(5)
        DoCmd.RunCommand acCmdSaveRecord
    End With
   Else
    With Me.POS_CHILD
.SetFocus
      
        !TiaoXingMa = Me.条形码
        !bianma = Me.条形码.Column(1)
        !MingCheng = Me.条形码.Column(2)
        !XingHao = Me.条形码.Column(3)
        !JiLiangDanWei = Me.条形码.Column(4)
        !DanJia = Me.条形码.Column(5)
        DoCmd.RunCommand acCmdSaveRecord
    End With
End If

   
    Me.条形码.SetFocus
    Me.条形码 = ""
End Sub