Dar formato a campos Access 97

Sres. T. E.
La presente es para solicitarles, como crear CAMPOS en una tabla access 97, lo cual no logro ingresarle la Descripción, Formato, Máscara de Entrada, Titulo, Valor Predeterminado etc. Solo logro ingresar Nombre del Campo Tipo de Datos y Tamaño del Campo.
Anexo parte del Código.
Programado este con Visual Basic V5
Sub CreaHistory() 'Crea la Tabla para la Nómina y a su vez para la Historia
Set bdNòm_e_Hist = OpenDatabase("C:\Sist-EDVComputer\NóminaLechera\MtroGand\bdNòm_e_Hist.mdb")
' Crea la tabla Nomina Ganaderos e Histórico "bdNòm_e_Hist".
bdNòm_e_Hist.Execute "CREATE TABLE bdNòm_e_Hist " _
& "(SemCod TEXT (6), NombProv TEXT (25), ApeProv TEXT (25), " _
& "Fcha1 DATETIME, Lts1 INTEGER, Pcio1 DOUBLE, " _
& "Fcha2 DATETIME, Lts2 INTEGER, Pcio2 DOUBLE, " _
& "Fcha3 DATETIME, Lts3 INTEGER, Pcio3 DOUBLE, " _
& "Fcha4 DATETIME, Lts4 INTEGER, Pcio4 DOUBLE, " _
& "Fcha5 DATETIME, Lts5 INTEGER, Pcio5 DOUBLE, " _
& "Fcha6 DATETIME, Lts6 INTEGER, Pcio6 DOUBLE, " _
& "Fcha7 DATETIME, Lts7 INTEGER, Pcio7 DOUBLE, " _
& "CodCpto TEXT (7), DescpCpto TEXT (50), " _
& "Cant DOUBLE, Pcio DOUBLE, Monto CURRENCY );"
' Crea el índice IndSemCod en la tabla bdNòm_e_Hist.
bdNòm_e_Hist.Execute "CREATE INDEX IndSemCod ON bdNòm_e_Hist " _
& "(SemCod);"
bdNòm_e_Hist.Close
End Sub

Saludos

Añade tu respuesta

Haz clic para o