代码错误

感恩　发表于：2013-06-19 13:37:20 　

请指点：这段代码不管“保存”是真或假都打开了“常用工具”窗体？应该是真才打开，是假不能打开。请问错在哪里？

Dim I, J As Integer
Dim StrTemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
    StrTemp = "Select * From 用户表"
   rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While J < rs.RecordCount - 1 'RecordCount记算记录-1

                If rs("用户ID") = [Forms]![主控面板]![Text用户ID] And rs("保存") = False Then

              MsgBox "你没有使用权限,请与系统管理员联系!", vbCritical, "提示"
    Exit Sub
         Else
              rs.MoveNext '移动下一个
                End If
               J = J + 1
              Loop
       DoCmd.OpenForm "常用工具"

-------------------------------------------------------------------------------------------------------------------------------

Top

煮江品茶发表于：2013-06-19 13:59:18

DoCmd.OpenForm "常用工具" 不在if语句结构中当然无条件执行。

Top

感恩发表于：2013-06-19 14:09:36

请煮江品茶老师指点！将非常感谢！！上面的代码该如何写？还有就是下面的代码怎么又能执行下面的程序呢？

Do While S < rs.RecordCount - 1 'RecordCount记算记录-1

                'If rs("库存数量") < 0 Then

              'MsgBox rs("产品编码") & "   " & rs("产品名称") & "   " & rs("规格") & " 库存 = " & rs("库存数量") & "   不能出库!", vbCritical, "库存不足"
    'Exit Sub
         'Else
              'rs.MoveNext '移动下一个
                'End If
              ' S = S + 1
              'Loop

可以执行下面的程序。。。。。。。

Top

煮江品茶发表于：2013-06-19 14:37:41

循环语句执行完毕后，自然会执行下面的语句，这不是什么问题吧？

Top

感恩发表于：2013-06-19 15:28:12

非常感谢煮江品茶老师指点!!

Top

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

Access交流中心

代码错误