miércoles, 15 de enero de 2014

martes, 3 de diciembre de 2013

SQL Server: Agregar un valor predeterminado a una columna

ALTER TABLE AML
ADD CONSTRAINT [DF_Detalle_Trabajos]
DEFAULT (N'Inspección por adaptación al mercado') FOR [Detalle de Trabajos]
GO

SQL Server: agregar una columna como clave foránea

ALTER TABLE AML
ADD [ID Empresa] [int] NULL
GO
ALTER TABLE AML
WITH CHECK ADD  CONSTRAINT [FK_AML_Solicitantes]
FOREIGN KEY([ID Empresa])
REFERENCES Solicitantes ([ID])
GO
ALTER TABLE AML
CHECK CONSTRAINT [FK_AML_Solicitantes]
GO

jueves, 31 de octubre de 2013

¿Cómo detectar si un campo cambió?

Supongamos que queremos ejecutar una acción en Microsoft Access sólo si un campo cambió su valor. Para manejar esta situación, podemos comparar el valor actual con el anterior así:

 If ComboNorma.Value <> ComboNorma.OldValue Then
    i = MsgBox("Algo cambió, ¿desea continuar?", vbYesNo + vbExclamation, "Info")
                If i = vbYes Then
                    ComboSubRubro.Value = ComboNorma.Column(2)
                End If
   End If

lunes, 14 de octubre de 2013

Problemas de casillas de verificación en filtros de hojas de datos

Si estás trabajando en Access, es posible que te encuentres en una vista Hoja de Datos en donde no aparezcan los filtros como casillas de verificación, tal como se ven en la siguiente imagen.



La solución es sencilla. Se configura desde las siguientes opciones:

  • Opciones
  • Current DataBase
  • Filter loockup options for *** Database
  • ODBC fields

lunes, 23 de septiembre de 2013

¿Cómo recorrer controles en Access?

Supongamos que queremos recorrer controles de una pantalla o de un control para realizar una tarea. Por ejemplo inhabilitar los controles de un determinado tipo. Esto se puede hacer con el siguiente código:

        For Each ctrl In [Form_Certificados_Editor]!Page63.Controls
            If ctrl.ControlType = acCheckBox Or ctrl.ControlType = acComboBox Or ctrl.ControlType = acTextBox Or ctrl.ControlType = acSubform Then
                ctrl.Enabled = False
            End If
        Next