Public Function CompleteTransactionsMOD()
Dim bSuccess As Boolean
Dim iCounter As Integer
Do While bSuccess = False And iCounter < 3
Debug.Print "Loop " & iCounter
bSuccess = CompleteTransactionsMOD_Loop()
iCounter = iCounter + 1
Loop
If bSuccess Then
MsgBox "Transactions completed successfully"
Else
MsgBox "Transactions failed to complete after repeated attempts"
End If
End Function
Private Function CompleteTransactionsMOD_Loop() As Boolean
DBEngine.BeginTrans
On Error GoTo CompleteTransactionsMOD_Loop_Err
With CurrentDb
.QueryDefs("UpdateInOutTrantblQRY").Execute dbFailOnError
.QueryDefs("UpdateTranTypeQRY").Execute dbFailOnError
.QueryDefs("PullToShipTransHandlingQRY").Execute dbFailOnError
.QueryDefs("TransreadyInDupLocQRY").Execute dbFailOnError
.QueryDefs("TransreadyOutDupLocQRY").Execute dbFailOnError
.QueryDefs("AppendNewLocToInvInQry").Execute dbFailOnError
.QueryDefs("UpdateNewLocToInvNegQRY").Execute dbFailOnError
.QueryDefs("TrancomplastQRY").Execute dbFailOnError
.QueryDefs("InvLocFindNegQRY").Execute dbFailOnError
.QueryDefs("DelZeroQInvLocQRY").Execute dbFailOnError
End With
DBEngine.CommitTrans
CompleteTransactionsMOD_Loop = True
CompleteTransactionsMOD_Loop_Exit:
Exit Function
CompleteTransactionsMOD_Loop_Err:
DBEngine.Rollback
Debug.Print Err.Description
CompleteTransactionsMOD_Loop = False
Resume CompleteTransactionsMOD_Loop_Exit
End Function