vba窗体无法修改数据库的数值

王先生　发表于：2010-04-24 09:51:35 　

Private Sub Toggle1_Click()
Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("活期帐户")

Set ye_hqzh = rs("余额")
Set jx_hqzh = rs("积数")

Dim tianshu As Integer
tianshu = Me.Text3
Do While Not rs.EOF
rs.Edit
jx_hqzh = ye_hqzh * tianshu
MsgBox jx_hqzh

rs.Update
rs.MoveNext
Loop
MsgBox "hao"
db.Close

End Sub

Top

咱家是猫发表于：2010-04-24 11:33:15

请上传问题库

Top

王先生发表于：2010-04-24 12:04:14

点击下载此附件

Top

咱家是猫发表于：2010-04-24 12:33:23

Private Sub 计算上月余额积数_Click()

    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("活期帐户")
    Do While Not rs.EOF
        rs.Edit
        rs("积数") = rs("余额") * Me.Text3
        rs.Update
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    MsgBox "hao"

End Sub

Top

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

Access交流中心

vba窗体无法修改数据库的数值