Question

任何人都可以告诉我为什么会出现编译错误，我真的无法解决。

我正在MS Access中进行注册表单。

Option Compare Database

Private Sub Command61_Click()
On Error GoTo ErrHandler:
If IsNull(UserID) Then
    MsgBox "You have not entered information", , "Error"
ElseIf IsNull(UserName) Or IsNull(Password) Then
    MsgBox "The user name and password fields are requiered", , "Error"
Else
    msg = "Do you want to sumbit your information"
    Style = vbYesNo + vbCritical
    Title = "Registration Confirmed"
    response = MsgBox(msg, Style, Title)
    If response = vbYes Then
        DoCmd.Close
        Exit Sub
    End If
    If response = vbNo Then
        Me.Undo
        DoCmd.Close
        Exit Sub
    End If
End If
Exit_ErrHandlers:
Exit Sub
ErrHandlers:
    MsgBox Err.Description, vbCritical
    Err.Clear
End Sub

Private Sub Command62_Click()
Me.Undo
DoCmd.Close
End Sub

我希望有人会帮助我。

感谢。

Answer 1

您的陈述说明了这一点：openPage(navCtrl, page, params, setActive = true) { this.showLoading(); if (setActive) { this.currentActive = { root: page, params: params }; } else { this.currentActive = { root: 'HomePage', params: null }; } navCtrl.setRoot(page, params).then(res => { if (!res) { this.showError('Please login to view page!'); navCtrl.setRoot('LoginPage', { activePage: this.currentActive.root }).then(res => { this.hideLoading(); }).catch(err => { this.hideLoading(); }); } this.hideLoading(); }).catch(error => { this.hideLoading(); }); }但您使用＆＃34; s＆＃34;来定义错误处理程序。 - On Error GoTo ErrHandler

如果您有这样的问题，请务必发布确切的错误消息。这将有很大帮助。

MS Access“编译错误：标签未定义” - 注册表单

1 个答案: