viernes, 6 de enero de 2017

MS Access: The expression On Current you entered as the event property setting produced the following error

En caso de obtener el siguiente error:

"The expression On Current you entered as the event property setting produced the following error"



Pueden intentar resolverlo utilizando:

"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" /decompile 

lunes, 31 de octubre de 2016

MS Access: Cannot perform join, group, sort, or indexed restriction. A value being searched or sorted on is too long

Me he encontrado con este problema en Access:

Cannot perform join, group, sort, or indexed restriction. A value being searched or sorted on is too long.



Si bien las causas pueden ser varias, en mi caso el problema fue vincular una tabla de SQL Server y seleccionar como clave primaria un campo que poseía valores mayores a 255 caracteres.

jueves, 27 de octubre de 2016

¿Cómo pasar un argumento al abrir un formulario en MSAccess?

El último argumento al abrir un formulario permite pasar parámetros:

    DoCmd.OpenForm "Certificados_Revision", acNormal, , , , , "M"

Luego en la apertura del formulario:

Private Sub Form_Open(Cancel As Integer)

    If Me.OpenArgs = "M" Then
        MsgBox Me.OpenArgs
    Else

viernes, 21 de octubre de 2016

SQL Server - Cannot resolve the collation conflict between

Al intentar crear una vista, se obtiene el siguiente error:

Msg 468, Level 16, State 9, Procedure V_Monitor_Emails_Detalle, Line 3
Cannot resolve the collation conflict between "SQL_Latin1_General_CP1_CI_AS" and "Modern_Spanish_CI_AS" in the UNION operation.

Contexto:
  • La vista es UNION entre una tabla y una vista
  • La tabla ha sido creada por el usuario
  • La vista es una vista sobre otra vista nativa de SQL Server
El problema es que algunas columnas tienen distintas "collation" que otras y esto es verificado por SQL Server, por cada columna al momento de hacer la UNION. En este caso la causa del problema es que una es una vista nativa y la otra es una tabla creada por el usuario.

Accediendo a las propiedades de cada columna, se puede ver el detalle:



La forma de resolverlo es agregando COLLATE DATABASE_DEFAULT en las columnas que correspondan, por ejemplo:

(...)

      ,[Enviado]
      ,[Error]
      ,[Cuenta]
FROM 
Correos C
UNION
SELECT Year(Fecha) As Anio, Month(Fecha) AS Mes, Day(Fecha) AS Dia, DATEPART(HOUR,Fecha) AS Hora,
      null AS [ID]
      ,null AS [Estado]
      ,null AS [Reintentos]
      ,null AS [Último reintento]
      ,[Fecha]
      ,'ND' AS [Para]
      ,null AS [CC]
      ,null AS [CO]
      ,Titulo COLLATE DATABASE_DEFAULT AS [Asunto]
      ,Adicional COLLATE DATABASE_DEFAULT AS [Cuerpo] 
      ,null AS [Adjuntos]
      ,null AS [Formato]

jueves, 20 de octubre de 2016

¿Cómo ejecutar un Stored Procedure de SQL Server desde MS Access que retorne un valor STRING?

Anteriormente explicamos cómo ejecutar un procedimiento de SQL Server. Pueden consultarlo en este enlace:


En esta oportunidad explicaremos cómo ejecutar un procedimiento que retorne un valor como el siguiente:

CREATE PROCEDURE dbo.CerrarProceso 
@proceso INT
AS
    SELECT 'resultado'
GO

La forma de ejecutar el procedimiento desde SQL sería:

EXECUTE CerrarProceso 286

La forma de ejecutarlo desde MS Access sería:

    Dim qdef As DAO.QueryDef
    Dim rs As Recordset
    Set qdef = CurrentDb.CreateQueryDef("")
    qdef.ReturnsRecords = True
    qdef.Connect = CurrentDb.TableDefs("[dbo_Estados]").Connect
    Dim sql As String
    sql = "EXEC CerrarProceso " & Proceso
    qdef.sql = sql
    Set rs = qdef.OpenRecordset()
    MsgBox (rs.Fields(0))

martes, 11 de octubre de 2016

SQL Server - Como copiar datos entre tablas manteniendo el ID con Identitty

Escenario:
  • Queremos copiar datos de una tabla de una base de datos hacia otra tabla similar en otra base de datos
  • La tabla posea una columna que utiliza IDENTITY
  • Queremos usar el mismo ID que en la base origen
Para ello utilizamos la opción identity_insert :

set identity_insert basedestino.dbo.Propuestas_Opciones on

insert into basedestino.dbo.Propuestas_Opciones (ID,Campo,Valor) select ID,Campo,Valor from baseorigen.dbo.Propuestas_Opciones

set identity_insert basedestino.dbo.Propuestas_Opciones off

lunes, 8 de agosto de 2016

SQL Server: eliminar clave foránea si existe

IF EXISTS (SELECT * 
  FROM sys.foreign_keys 
   WHERE object_id = OBJECT_ID(N'dbo.FK_Vigilancias_Normas_Adicionales_Normas')
   AND parent_object_id = OBJECT_ID(N'dbo.Vigilancias_Normas_Adicionales')
)
  ALTER TABLE Vigilancias_Normas_Adicionales DROP CONSTRAINT FK_Vigilancias_Normas_Adicionales_Normas

IF EXISTS (
SELECT * 
FROM sys.columns 
WHERE  object_id = OBJECT_ID(N'[dbo].[Vigilancias_Normas_Adicionales]') 
AND name = 'ID Norma'
)
BEGIN
ALTER TABLE [dbo].[Vigilancias_Normas_Adicionales] DROP COLUMN [ID Norma]
END