Acchelp_StrDataIsExist中出现的问题？

平民百姓　发表于：2009-12-09 12:09:56 　

If Acchelp_StrDataIsExist("pos", "tiaoxingma", Me.条形码) = True Then
gxsl = "UPDATE pos SET pos.shuliang = pos.shuliang+1 where pos.tiaoxingma= '" & Me.条形码 & "'"
DoCmd.RunSQL gxsl

Me.Requery
Else

...........

endif

表中的条形码（tiaoxingma）是文本格式的，主窗体中的“条形码”是列表框的形式（SELECT qrySpinfo.条形码, qrySpinfo.店内编码, qrySpinfo.商品名称, qrySpinfo.xinghao, qrySpinfo.jiliangdanwei, qrySpinfo.cankaoshoujia FROM qrySpinfo;），我的目的是通过Acchelp_StrDataIsExist来检测如果POS表中，存在着相同的条形码，则执行更新查询，通过更新查询来累加数量，不用新增记录。

现在的问题是：我输入一个表中有的条码，但是Acchelp_StrDataIsExist函数检测不到。所以我想问这个是不是我的Acchelp_StrDataIsExist函数使用中有什么问题啊？

请各位大哥赐教！！万分感谢！

Top

钱玉炜发表于：2009-12-09 12:25:26

可以把上面的代码写到你的条码控件的更新后事件里面

如果你是按照教程，那是在保存的时候才提醒

Top

Fromaer 发表于：2009-12-09 13:23:35

很多时候我们是要检测两个或者更多字段同时出现重复的数据，Acchelp_StrDataIsExist就不能用了，我曾经把几个字段通过查询合并，但是Acchelp_StrDataIsExist好像不支持检查查询。我现在是通过自己编程检查的。

Top

平民百姓发表于：2009-12-09 18:21:47

我把代码放在更新事件中的,而且里面也不出现两个或者更多的字段数据.

Top

平民百姓发表于：2009-12-09 21:29:38

Private Sub 条形码_AfterUpdate()
Me.tm = Me.条形码.Column(0)
If CheckRecords("POS") = True Then
    If Acchelp_StrDataIsExist("pos", "tiaoxingma", Me.条形码.column(0)) = True Then
gxsl = "UPDATE pos SET pos.shuliang = pos.shuliang+1 where pos.tiaoxingma= '" & Me.条形码.Column(0) & "'"
DoCmd.RunSQL gxslMe.Requery
Else
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
End If

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.POS_CHILD!JinE = Me.POS_CHILD!ShuLiang * Me.POS_CHILD!DanJia
    Me.条形码.SetFocus
   ' Me.条形码 = ""
End Sub

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

[5分]Acchelp_StrDataIsExist中出现的问题？