ALTER TABLE Rubros
ALTER COLUMN
[Código de Sub Rubro] nvarchar(8) NOT NULL
GO
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
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
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
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:
La solución es sencilla. Se configura desde las siguientes opciones:
- Opciones
- Current DataBase
- Filter loockup options for *** Database
- ODBC fields
jueves, 3 de octubre de 2013
¿Cómo forzar la grabación de un registro en Access desde VBA?
If Me.Dirty Then Me.Dirty = False
Fuente: http://www.techrepublic.com/blog/msoffice/quickly-save-the-current-record-in-access-using-code/
Fuente: http://www.techrepublic.com/blog/msoffice/quickly-save-the-current-record-in-access-using-code/
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
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
Suscribirse a:
Entradas (Atom)