Running 3 queries one by one and cancel (1 Viewer)

jaryszek · Jan 18, 2019

Hi,

Code:

Private Sub CmdDataCenter_Click()

Dim QryName As String

    For i = 1 To 4
    
    QryName = "qryIm_DataCenterServer" & i
    
        If i = 3 Then
        
        ElseIf i = 1 Then  ''part for servers
            Me.TxbNewServers = CheckRecords(QryName)
            DoCmd.OpenQuery QryName
        ElseIf i = 2 Then  ''part for datacenters
            Me.TxbNewDataCenters = CheckRecords(QryName)
            DoCmd.OpenQuery QryName
        ElseIf i = 4 Then
            Me.TxbDataCenterSevers = CheckRecords(QryName)
            DoCmd.OpenQuery QryName
        End If
    
    Next i

End Sub

i am running 3 queries one by one in one button and those are Append queiries. sometimes i want to cancel first one and apply second one but if i am cancelling first one i have vba error:

How to solve the issue?

Best,
Jacek

isladogs · Jan 18, 2019

You can use error handling to disregard errors you aren't worried about
For example

Code:

Private Sub CmdDataCenter_Click()

Dim QryName As String

On Error GoTo Err_Handler

    For i = 1 To 4
    
    QryName = "qryIm_DataCenterServer" & i
    
        If i = 3 Then
        
        ElseIf i = 1 Then  ''part for servers
            Me.TxbNewServers = CheckRecords(QryName)
            DoCmd.OpenQuery QryName
        ElseIf i = 2 Then  ''part for datacenters
            Me.TxbNewDataCenters = CheckRecords(QryName)
            DoCmd.OpenQuery QryName
        ElseIf i = 4 Then
            Me.TxbDataCenterSevers = CheckRecords(QryName)
            DoCmd.OpenQuery QryName
        End If
    
    Next i

Exit_Handler:
    Exit Sub

Err_Handler:
    If err=2501 Then Resume Next
    MsgBox "Error " & err,number & " in CmdDataCenter_Click procedure: " & err.description
    Resume_Exit_Handler

End Sub

Running 3 queries one by one and cancel (1 Viewer)

jaryszek

Registered User.

Attachments

isladogs

MVP / VIP

Similar threads

Users who are viewing this thread