c. At the front-end, MS Access, captured the error code and error message
using variant variables
This is the general overview of the things I did to make it work.
Below are the scripts:
[INSERT TRIGER SCRIPT]
----------------------------------------
CREATE TRIGGER [trTrackInsert]
ON [dbo].[Customers]
AFTER INSERT
AS
BEGIN
SET NOCOUNT ON;
DECLARE [at] recordCount int;
DECLARE [at] userName nvarchar(200);
SET [at] recordCount = 0;
SET [at] userName = '';
SET [at] recordCount = (SELECT count(*) FROM dbo.NewCustTracker);
BEGIN TRANSACTION insertIntoNewCustTracker
IF ( [at] recordCount > 0)
BEGIN
SET [at] userName = (SELECT UserName FROM dbo.NewCustTracker);
RAISERROR(70000,16,1, [at] userName) WITH SETERROR;
END
ELSE
BEGIN
INSERT INTO dbo.NewCustTracker(CustNum, UserName)
SELECT [Customer Number], user_name() FROM inserted;
IF [at] [at] TranCount > 0
COMMIT TRANSACTION insertIntoNewCustTracker;
END
END
[UPDATE TRIGGER SCRIPT]
--------------------------------------------
CREATE TRIGGER [trUpdateCustomer]
ON [dbo].[Customers]
AFTER UPDATE
AS
BEGIN
SET NOCOUNT ON;
DECLARE [at] custNumber nvarchar(15);
DECLARE [at] recCount int;
DECLARE [at] lastName nvarchar(50);
DECLARE [at] company nvarchar(34);
SET [at] custNumber = (SELECT [Customer Number] FROM deleted)
SET [at] recCount = (SELECT count(*) FROM dbo.NewCustTracker WHERE [CustNum] =
[at] custNumber)
IF ( [at] recCount > 0)
BEGIN
IF (UPDATE([Last Name]) OR UPDATE(Company))
DELETE FROM dbo.NewCustTracker;
END
END
[STORED PROCEDURE SCRIPT]
--------------------------------------------------
CREATE PROCEDURE [dbo].[sp_InsertNewCustomer]
[at] NewCustomerID nvarchar(15),
[at] ErrNum int OUTPUT,
[at] ErrMsg nvarchar(4000) OUTPUT
AS
BEGIN TRY
INSERT INTO Customers ([Customer Number], Active, [Customer Record Type])
VALUES ( [at] NewCustomerID, 1, 'Both')
END TRY
BEGIN CATCH
SELECT [at] ErrNum = ERROR_NUMBER(), [at] ErrMsg = ERROR_MESSAGE();
END CATCH
[MS ACCESS FRONT-END SCRIPT]
-----------------------------------------------------
....
....
Dim errorNumber As Variant, errorMessage As Variant
Dim errMsgNum As String
....
....
Set com = New ADODB.Command
With com
.ActiveConnection = <your connection string here...>
.CommandText = "sp_InsertNewCustomer"
.CommandType = adCmdStoredProc
.Parameters.Refresh
.Parameters(" [at] NewCustomerID") = NextCustID
.Execute
End With
errorNumber = 0
If Not IsNull(com.Parameters.Item(2).Value) Then
errorNumber = com.Parameters.Item(2).Value
errMsgNum = Str(errorNumber)
errorMessage = com.Parameters.Item(3).Value
Set com = Nothing
'Check if there is an error returned from the addition of a new
customer...
If errorNumber <> 0 Then
MsgBox "Encountered error: " + errMsgNum + ". " + errorMessage,
_
vbOKOnly, "New Customer Warning!"
End If
End If
....
....
....
As we all know, there are other ways to solve the task even better ways.
But this serves my own purpose.
"Ben" <pillars4 [at] sbcglobal.net> wrote in message
news:0RaMj.951$FF6.571 [at] newssvr29.news.prodigy.net...
> Hi!
>
> I have a trigger created for Customer table. My front-end is access.
> What is the best approach to handle a trigger result when adding a new
> customer record?
>
> Below is the trigger script:
> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> - - - - - - - - - - -
>
> CREATE TRIGGER dbo.trTrackInsert
>
> ON dbo.Customers
>
> FOR INSERT
>
> AS
>
> BEGIN
>
> -- SET NOCOUNT ON added to prevent extra result sets from
>
> -- interfering with SELECT statements.
>
> SET NOCOUNT ON;
>
> -- Validate the new record.
>
> -- Criteria:
>
> -- 1. Check if there is already a record in the NewCustTracker
>
> -- 1.1. If no record add to the table and record the user info
>
> -- 1.2. If there is record
>
> -- 1.2.1 Inform user that there is pending new record to be completed
>
> -- 1.2.2 Perform roll back of the insert in the Customers table
>
> -- Initialize variables to use in getting some info in the NewCustTracker
> and Customer
>
> -- tables.
>
> DECLARE [at] recordCount int;
>
> DECLARE [at] userName nvarchar(200);
>
> SET [at] recordCount = 0;
>
> SET [at] userName = '';
>
> -- get the record count in the dbo.NewCustTracker table
>
> SET [at] recordCount = (SELECT count(*) FROM dbo.NewCustTracker);
>
> BEGIN TRANSACTION insertIntoNewCustTracker
>
> IF ( [at] recordCount > 0)
>
> BEGIN
>
> -- get the info in the NewCustTracker table...
>
> SET [at] userName = (SELECT UserName FROM dbo.NewCustTracker);
>
> RAISERROR(N'There is a pending new customer record to be completed by %s.
> Please recheck in a couple of minutes.',16,1, [at] userName);
>
> ROLLBACK TRANSACTION insertIntoNewCustTracker;
>
> END
>
> ELSE
>
> BEGIN
>
> -- record the new customer record in the NewCustTracker table for next
> validation...
>
> INSERT INTO dbo.NewCustTracker(CustNum, UserName)
>
> SELECT [Customer Number], user_name() FROM inserted;
>
> IF [at] [at] TranCount > 0
>
> COMMIT TRANSACTION insertIntoNewCustTracker;
>
> END
>
> END
>
> GO
>
> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> - - - - - - - - - - -
>
> Any ideas/suggestions are appreciated.
>
>
>
>
>
> Thanks,
>
> Ben
>
>
>
>
>
>
