Question

我确信这很容易，但我似乎无法在网上找到除GoTo Record之外的答案，这不是我想要的。

基本上我的VBA检查是否存在该唯一密钥，如果是，则显示一个消息框，然后我希望它跳到代码的底部。现在它只是进入下一行开始添加记录。

这就是我现在拥有的地方：

With myR

    .FindFirst ("Username = '" & Me.UID & "'")

    If .NoMatch Then

    Else

        MsgBox "That username is already in the system."

        'Add skip to bottom code here 

    End If

End With

提前致谢

Answer 1

继续我的评论

Sub Main()

    isA1Empty

End Sub


Private Function isA1Empty()
    With Sheets(1)
        If IsEmpty(.Range("A1")) Then
            MsgBox "empty"
            Exit Function
            Debug.Print "this will not be printed"
        End If
    End With
End Function

试图在VBA中跳转/转到代码的不同部分

1 个答案: