VBA和Access 2007数据验证，登录麻烦

Question

请忍受我是VBA的一个完全菜鸟，我无意编写代码，但无论如何我最终还是这样做了，因为如果没有它，我将看不到如何实现我想要的东西。 我一直在互联网上搜索3天，每天10小时，运气不佳。 我有一个要保护的Access数据库。 让我解释一下我要首先实现的目标：

1）我有一个组合框，它的形式是查找表中的值，即项目的项目代码。 这基本上是库存的东西。 我有一个具有计算字段的查询，该查询返回每个项目的剩余库存。 我有另一个查询，该查询将物料代码作为参数，并返回该特定物料代码的剩余库存。

我想做的是检查剩余库存是否为0，如果剩余，则从组合框列表中选择此项目代码，然后在msgbox上显示一条消息，指出该项目没有库存，因此无法发出，并重置组合框（即好像没有进行选择一样）

这是我的代码； 组合框的afterUpdate事件：

Private Sub Item_Code_AfterUpdate()

Dim dbMyDatabase As DAO.Database

Dim rsMyRecords As DAO.Recordset

Dim strQuery As String

strQuery = "SELECT [Store_Items].[Item Code], Store_Items.[Opening Stock], IIf((Nz([Opening Stock],0)+Nz([Quantity Purchased],0)-Nz([Quantity Issued],0)<0),0,(Nz([Opening Stock],0)+Nz([Quantity Purchased],0)-Nz([Quantity Issued],0))) AS [Remaining Stock] FROM (Purchases RIGHT JOIN Store_Items ON Purchases.[Item Code] = Store_Items.[Item Code]) LEFT JOIN Issuances ON Store_Items.[Item Code] = Issuances.[Item Code] WHERE (((Store_Items.[Item Code])=[Forms]![Issuances]![Item Code]));"

Set dbMyDatabase = CurrentDb

Set rsMyRecords = dbMyDatabase.OpenRecordset(strQuery)

Dim Msg, Style, Title, Response

Msg = "This Item is out of Stock! You Cannot Issue this item!"
Style = vbOK
Title = "Warning!"

If rsMyRecords![Item Code] <= 0 Then
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then Me![Item Code].Requery

End Sub 

2）Ive制作了两个版本的导航面板。 其中一个可以访问所有表单，而另一个可以访问。 这由登录类型决定。 现在，唯一起作用的是第一个，我不明白为什么ElseIfs不起作用。 当我尝试使用其他类型登录时，单击登录按钮后，什么都没有发生。

我还想隐藏导航窗格并访问默认菜单，这些菜单允许数据库设计编辑以及根据登录类型查看设计视图中的表格和表单，但是我不知道如何实现。

Private Sub LoginBUtton_Click()

'Check to see if data is entered into the UserName combo box

    If IsNull(Me.CBOLogin) Or Me.CBOLogin = "" Then
      MsgBox "You must select a user type.", vbOKOnly, "No User name"
        Me.CBOLogin.SetFocus
        Exit Sub
    End If

    'Check to see if data is entered into the password box

    If IsNull(Me.TextPass) Or Me.TextPass = "" Then
      MsgBox "No Password Entered, Enter a password.", vbOKOnly, "No Password"
        Me.TextPass.SetFocus
        Exit Sub
    End If

    'Check value of password in Users to see if this
    'matches value chosen in combo box

    If Me.TextPass.Value = DLookup("Password", "Users", _
            "[UserID]=" & Me.CBOLogin.Value) Then



    ElseIf (Me.CBOLogin.Value = "Developer") Then
    DoCmd.Close acForm, "LoginForm", acSaveNo
    DoCmd.OpenForm "FullAccessNav"


    ElseIf (Me.CBOLogin.Value = "Office") Then
    DoCmd.Close acForm, "LoginForm", acSaveNo
    DoCmd.OpenForm "LimitedAccessNav"


    ElseIf (Me.CBOLogin.Value = "Store") Then
    DoCmd.Close acForm, "loginForm", acSaveNo
    DoCmd.OpenForm "LimitedAccessNav"

    Else
            MsgBox "Password Invalid. Please Try Again", vbOKOnly, _
            "Invalid Entry!"
            Me.TextPass.SetFocus

    End If

    'If User Enters incorrect password 3 times database will shutdown

    intLogonAttempts = intLogonAttempts + 1

    If intLogonAttempts > 3 Then
      MsgBox "You do not have access to this database.Please contact admin.", _
               vbCritical, "Restricted Access!"
        Application.Quit
    End If

End Sub

请帮助？ ：S

Answer 1

好了，我设法解决了登录问题，但是我仍然对数据验证位感到困惑。 单击组合框中列表中的项目代码时，出现运行时错误3421。

当我从组合框中选择一个物料代码时，这就是我要发生的事情。 我想从该项目代码的查询中获取计算字段，（该计算字段具有项目的已计算剩余库存）如果为0，那么我想显示一个味精，并防止用户输入该记录，因此我想重置组合框会做什么？

如果股票处于一定水平，我只想显示一个消息框，仅此而已，通常让用户输入记录，否则，用户只需正常输入记录即可。

我在这行收到运行时错误3421“数据类型转换错误”：

设置rs = db.OpenRecordset（“从[InventoryStatusSpecificItem]中选择[剩余库存]，其中[项目代码] = [表格]！[问题]！[ItemCBO]”，Dynaset）

Private Sub ItemCBO_AfterUpdate()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb()


    Set rs = db.OpenRecordset("SELECT [Remaining Stock] FROM [InventoryStatusSpecificItem] WHERE [Item Code] = [Forms]![Issuances]![ItemCBO]", Dynaset)



    If rs.Fields([Remaining Stock]) = "0" Then
    MsgBox "This item is out of stock! Cannot Issue!", vbExclamation + vbOKOnly, "Attention!", vbExclamation
    Me!ItemCBO = Null

    ElseIf rs.Fields("Stock Status") = "Order Now!" Then
    MsgBox "This item has reached its minimum quantity level. Only " + StrRemainingStock + " remains. Quantity Measured as " + StrMeasuredIn, vbExclamation + vbOKOnly, "Attention!"

    Else
    Me!ItemCBO.Requery

    End If

    'close recordset
    rs.Close
    Set db = Nothing