急急急!!!怎样解决这个问题?

大云

我想让一个凭证只能对应多个入库或一个凭证对应多个出库,但是一个凭证不能即对应入库又对应出库,这种关系怎样设,需要怎样做?请大侠指教!!



[em06][em06][em06]

CHENZHIRONG

这种关系在数据库中是没办法设的了,只能自己在UPDATE数据库时编写代码检查,防止出错.

大云

不知道怎样编写这个代码呢?能做一下吗?

CHENZHIRONG

在各自的子窗体的beforeupdate中检查对应的表中这个ID是否已经用过了.

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim vReturn As Variant

  vReturn = DLookup("凭证id", "入", "凭证id=" & Me.凭证id)

  If Not IsNull(vReturn) Then

    MsgBox "凭证id 已经使用!", vbCritical

    Cancel = True

  End If

End Sub

大云

非常感谢您的帮助,如果在凭证和入中间增加合同表,在凭证和出之间增加工程表,代码该怎样写呢?

CHENZHIRONG

同样的道理, 先查工程ID, 再根据工程ID查凭证,用两次DLOOKUP.

大云

不行啊,我试了还是做不出来,搞的我头晕了[em06][em06][em06][em06]

CHENZHIRONG

只在出中做了检查,你套用在入中做检查就行了.

大云

情比金坚

虽然技术上可以解决，但还是建议从规划上解决：你的出、入单号分开：比如：出叫OU00001，入叫IN00001，这样不就不用查来查去？相关文章可以看一下HI-WZJ的专栏。（最好去买本站长的《200问》来学学。）