Visual Basic para Aplicaciones - Modificar propiedades de Tabla mediante VBA

Life is soft - evento anual de software empresarial
   
Vista:

Modificar propiedades de Tabla mediante VBA

Publicado por Christian (2 intervenciones) el 31/07/2017 22:01:40
En un sistema que es dinámico, crea mes a mes la tabla donde se registraran las descargas con este código

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Tabla = "tblCarga_" & Format(Date, "mmmyy")
Set Adox_Tabla = New ADOX.Table
With Adox_Tabla
	.Name = Tabla
	'Agrega campos
	.Columns.Append "IdMensajero", adInteger
	.Columns.Append "Mensajero", adVarWChar, 50
	.Columns.Append "FechaCarga", adDate
	.Columns.Append "CodBarra", adVarWChar, 13
	.Columns.Append "Estado", adVarWChar, 15
	.Columns.Append "FechaDescarga", adDate
End With
 
' -- Crea la tabla
Adox_Cat.Tables.Append Adox_Tabla

Hasta aquí, todo perfecto, me crea la tabla sin ningún problema.

El único inconveniente es que necesito que el campo "FechaDescarga" no sea requerido y por defecto lo crea como "Requerido"... Se puede cambiar esta propiedad por medio de código? Necesito que así sea para que nadie deba manipular el diseño de las tablas
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Modificar propiedades de Tabla mediante VBA

Publicado por Christian (2 intervenciones) el 01/08/2017 21:17:49
Finalmente logré dar con el código

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Tabla = "tblCarga_" & Format(Date, "mmmyy")
Set Adox_Tabla = New ADOX.Table
With Adox_Tabla
	.Name = Tabla
	'Agrega campos
	.Columns.Append "IdMensajero", adInteger
	.Columns.Append "Mensajero", adVarWChar, 50
	.Columns.Append "FechaCarga", adDate
	.Columns.Append "CodBarra", adVarWChar, 13
	.Columns.Append "Estado", adVarWChar, 15
	.Columns.Append "FechaDescarga", adDate
End With
 
 
'Acá es donde se asignan las propiedades que andaba buscando
 
    With Adox_Tabla.Columns.Item("IdMensajero")
        Set .ParentCatalog = Adox_Cat
        .Properties("Nullable") = True
    End With
 
    With Adox_Tabla.Columns.Item("FechaDescarga")
        Set .ParentCatalog = Adox_Cat
        .Properties("Nullable") = True
    End With
 
' -- Crea la tabla
Adox_Cat.Tables.Append Adox_Tabla
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad