进销存三表联合查询问题求助

先生，别跑

结存ACCESS不久，菜鸟一个。求助大神帮忙解决，谢谢您。
现有信息表，进、出共三个表。进出表格式相同。信息表单独格式。想联合查询后直接算出库存。联合查询SQL怎么写。谢谢!
1、一个编码要对应两种状态。2、数据关系类型用那种关系连接。

siliconxu

你需要先回答一个问题：入库和出库之间的唯一的对应字段（或者是多个字段）是什么？

先生，别跑

siliconxu 发表于 2018-6-7 21:34
你需要先回答一个问题：入库和出库之间的唯一的对应字段（或者是多个字段）是什么？

您好，出入库之间唯一的字段是料号。一个料号需要对应新旧两种状态。只有料号是唯一的。谢谢！

siliconxu

你可以先把入库和出库的表各自进行汇总，然后使用料号把汇总后的两个表连接起来，再增加一列计算库存的字段；或者直接用DSum计算入库和出库的数量（条件使用料号），再相减。
还有一个方法是，把入库和出库设计成一个表就行了，然后增加一个字段来判断是出库还是入库。

先生，别跑

siliconxu 发表于 2018-6-8 10:33
你可以先把入库和出库的表各自进行汇总，然后使用料号把汇总后的两个表连接起来，再增加一列计算库存的字段 ...

您好，这个问题已经按你的思路解决了，谢谢！
另外有个问题帮忙看下怎么处理。1、现在是一个料号有两种状态，在出库窗体上显示各状态库存数，在出库的时候比对库存数量，目前只能比对新料库存，不知道怎么读取植球库存。2、有些物料只有新料，没有植球。这个怎么处理。3、或着是输入料号后，选择新料就比对新料库存，选择植球就比对植球库存。
库存比对：=DLookUp("库存","查询2","料号='" & [料号] & "'")
不知道怎么做。能否帮忙看下怎么做。谢谢！

siliconxu

假设你“料号”的文本控件名称是txt料号，你可以这么查询库存：
新料库存：=DLookUp("库存","查询2","料号='" & txt料号 & "' AND 状态='新料'")
植球库存：=DLookUp("库存","查询2","料号='" & txt料号 & "' AND 状态='植球'")

先生，别跑

siliconxu 发表于 2018-6-15 11:36
假设你“料号”的文本控件名称是txt料号，你可以这么查询库存：
新料库存：=DLookUp("库存","查询2","料号 ...

您好，感谢您的解答，问题已经解决了。

先生，别跑

siliconxu 发表于 2018-6-15 11:36
假设你“料号”的文本控件名称是txt料号，你可以这么查询库存：
新料库存：=DLookUp("库存","查询2","料号 ...

您好，再请教你2个问题，
1、当一个料号只有一种状态的时候显示为空，想设置显示为0，附件的写法是可以实现，但不知道能不能这样写。
2、想在数量里写个时间，在出库时选择新料，出库数量就比对新料。选择旧料出库数就比对旧料。现在写的只比对新料，不比对旧料。能否帮忙看下是哪里问题更正下。谢谢！

siliconxu

1. 我不知道你说的是写在哪里的？是代码？还是窗体控件？
2. 同样不知道你说的是哪里。请指出是哪个窗体的哪个控件的哪个事件的代码

先生，别跑

siliconxu 发表于 2018-6-19 17:47
1. 我不知道你说的是写在哪里的？是代码？还是窗体控件？
2. 同样不知道你说的是哪里。请指出是哪个窗体的 ...

您好，没描述清楚，不好意思。
1、目前有个别料号只有一种状态，新料或植球。想在出库窗体上料号文本框写个更新后事件，当输入料号后库存为空的显示为0，图1
以下写的是在窗体料号更新后事件。不知道这样写是否正确。目前使用没问题，
Private Sub 料号_AfterUpdate()
If Len(Me.料号.Text) <> 13 Then
        Cancel = True
        MsgBox "请输入13位数的正确料号！"
        Me.料号 = Null
         Me.料号.SetFocus
    End If
    If IsNull(Me.料号) Then
   Me.新料 = Null
   Me.植球 = Null
   Else
   Me.新料 = DLookup("库存", "查询2", "料号='" & [料号] & "' AND 状态='新料'")
    If IsNull(Me.新料) Then
   Me.新料 = 0
    End If
   Me.植球 = DLookup("库存", "查询2", "料号='" & [料号] & "' AND 状态='植球'")
    If IsNull(Me.新料) Then
   Me.新料 = 0
   End If
   End If
End Sub

2、想在出库窗体 数量 文本框写个更新后事件，在出库窗体上选择新料的时候出库数量与新料库存比对，选择植球时出库数量与植球库存比对。图2  、图3
以下写的都不对，出库数小于库存数也提示库存不足。不知道怎么写。麻烦帮忙更正或另外写个代码，谢谢
Private Sub 数量_AfterUpdate()
If IsNull(Me.数量) Then
Me.数量 = Null

Else

Val (Me.数量) > Me.新料
MsgBox "此物料库存不足。请重新输入数量！"
End If

If IsNull(Me.数量) Then
Me.数量 = Null

Else

  Val (Me.数量) > Me.植球
MsgBox "此物料库存不足。请重新输入数量！"
Me.数量 = Null
End If
End Sub