[求助]求助有关数据输入

haoooooooo

help, 小弟我是个不太会用access的，最近公司布置任务要做一个库存的数据库。目前遇到一个问题。具体如下：

我想做一个输入窗体，就是在窗体上设置了几个字段（控件），输入数据后按“save”按钮，将该数据输入到一个表中相应的字段中。目前遇到的问题是在写赋值语句的时候总是出错，难道是语句出了什么问题吗？

table![ISSUESP]![SPNO]=me.spno

这样的语句有错吗？

上传屏幕截图，希望各位高手能够给予帮助

haoooooooo

我还想到可以用更新查询来做,我做了3个更新查询可以达到功能要求,但是无法触发更新查询.

郁闷啊,还有什么办法吗?

haoooooooo

我想到一个"update"的命令,可以实现吗?

这个语言该怎么写啊?

haoooooooo

不解，能说具体点吗？

fan0217

库存不需要记录在表中，通过查询计算即时得到。

haoooooooo

非常感谢楼上那位兄弟，我研究一下。

你用的方法我能理解，但是有些语句还是看不懂，我在研究研究

还有就是，这段程序里，没有涉及到库存数量的变化。

9楼的兄弟言之有理，但是我如何来实现呢？我怎么在备件列表中绑定库存量呢？动态绑定？

fan0217

以下是引用haoooooooo在2006-1-24 13:56:00的发言：


[解释一下：

在窗体中ISSUESP input是我想用来完成输入数据的窗体。意向中是要每一个控件都是未绑定的，在输入信息后按按钮save把数据输入到表ISSUESP相应的字段中去，同时根据领料/退料/收货来更新表INVENTORY中相应备件的数量。

由于现在不能传附件了，所以将代码写在下面，把代码添加到保存按钮，同时去除窗体的记录源和文本框和组合框的控件来源属性，把窗体改为运行编辑。采用的是ADO，其它的东西可以依照这个来做。有些代码可能还需要些修改，但主要的是掌握方法。


Private Sub 保存记录_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset


If IsNull(Me![SERINUM]) Then
    MsgBox "请输入SERINUM"
    Exit Sub
ElseIf IsNull(Me![SP No]) Then
    MsgBox "请输入SP No"
    Exit Sub
ElseIf IsNull(Me![REASON]) Then
    MsgBox "请输入REASON"
    Exit Sub
ElseIf IsNull(Me![QUANTITY]) Then
    MsgBox "请输入QUANTITY"
    Exit Sub
ElseIf IsNull(Me![ISSUEDATE]) Then
    MsgBox "请输入ISSUEDATE"
    Exit Sub
ElseIf IsNull(Me![ISSUETIME]) Then
    MsgBox "请输入ISSUETIME"
    Exit Sub
ElseIf IsNull(Me![SSO]) Then
    MsgBox "请输入SSO"
    Exit Sub
End If


Set cn = CurrentProject.Connection


rs.Open "ISSUESP", cn, adOpenKeyset, adLockPessimistic


With rs

    .AddNew
        .Fields("SERINUM") = Me![SERINUM]
        .Fields("SP NO") = Me![SP No]
        .Fields("REASON") = Me![REASON]
        .Fields("QUANTITY") = Me![QUANTITY]
        .Fields("ISSUEDATE") = Me![ISSUEDATE]
        .Fields("ISSUETIME") = Me![ISSUETIME]
        .Fields("SSO") = Me![SSO]
    .Update
End With


rs.Close


MsgBox "保存成功！"

    Me![SERINUM] = Null
    Me![SP No] = Null
    Me![REASON] = Null
    Me![QUANTITY] = Null
    Me![ISSUEDATE] = Null
    Me![ISSUETIME] = Null
    Me![SSO] = Null


End Sub

[此贴子已经被作者于2006-1-24 15:10:09编辑过]

情比金坚

不好意思，没有看你的附件，但根据你的描述，我说一点点，一个是access本来就是一个平民化的软件，他不需要很高的编程水平，不用ado或dao也能完成，比如用：forms![这个窗体]![这个文本框]=forms![那个窗体]![那个文本框]就行了嘛。另外，库存不应该用更新的，如果你以前做手帐就明白，难道有涂改帐目么？所以有新库存就添加一条记录，记录这个时间的库存是这个数，而以前日期的库存也保存以备查。数据库的设计规划占了80%的分量，一个好规划很快就能设计出好数据库的。

haoooooooo

附件中的是我做的库存管理的数据库，还没有完全完成，而且因为水平有限，所以大家见笑了。

解释一下：

在窗体中ISSUESP input是我想用来完成输入数据的窗体。意向中是要每一个控件都是未绑定的，在输入信息后按按钮save把数据输入到表ISSUESP相应的字段中去，同时根据领料/退料/收货来更新表INVENTORY中相应备件的数量。（因为自己无法实现意向中的功能，所以附件中的窗体有些改动，但根本目的是一样的）

另外在表INVENTORY中有一个字段ordering，这个字段是为了表明部分备件有可能是在购买过程中，于是在该情况下，备件的数量及是小于最低库存也不会报警。如果买东西，这个字段将被值为是，如果“收货”这个备件的这个字段将被值为“否”

看来我的问题还是比较多的，谢谢各位大哥帮忙了。

fan0217

table![ISSUESP]![SPNO]=me.spno 这句话是什么意思？

不能使用这种方法赋值。

把你的库传上来，好跟你解释。