مشكله عمل insert في جدولين بنفس الوقت

@ClientNo dt_num,
@Realestatetype dt_spcification,
@Realestatelifetime dt_spcification,
@City dt_spcification,
@Location dt_spcification,
@Neighborhood dt_spcification,
@Northernfacade bit,
@Southernfacade bit,
@Westernfacade bit,
@Easternfacade bit,
@Area dt_spcification,
@Realestatecondition dt_spcification,
@Realstateactivity dt_spcification,
@Price money,
@Realestatephoto image,
@Others dt_other,
@roomsno dt_num,
@kitchensno dt_num,
@bathroomsno dt_num,
@floorno dt_num
as
if @ClientNo is null or @Realestatetype is null or @Realestatelifetime is null or @City is null or @Location is null or @Neighborhood is null or @Area is null or @Price is null or @roomsno is null or @kitchensno is null or @bathroomsno is null or @floorno is null
begin
Raiserror ('ادخل جميع بيانات الحقول',16,1)
return
end

begin tran
INSERT [Real estate] (ClientNo,Realestatetype,Realestatelifetime,City,Location,Neighborhood,Northernfacade,Southernfacade,Westernfacade,Easternfacade,Area,Realestatecondition,Realstateactivity,Price,Realestatephoto,Others)
VALUES(@ClientNo,@Realestatetype,@Realestatelifetime,@City,@Location,@Neighborhood,@Northernfacade,@Southernfacade,@Westernfacade,@Easternfacade,@Area,@Realestatecondition,@Realstateactivity,@Price,@Realestatephoto,@Others)
if @@error <> 0
begin
rollback
return
end

INSERT Apartment(roomsno,kitchensno,bathroomsno,floorno)
VALUES (@roomsno,@kitchensno,@bathroomsno,@floorno)
if @@error <>0
begin
rollback return
end

alter  proc  insRealestate