RE:Consulta de Creacion de tabla
Function CreaTabla()
Dim base As Database
Dim tdfNou As TableDef
Set base = CurrentDb
Set tdfNou = base.CreateTableDef(me.campo_form.name)
With tdfNou
.Fields.Append .CreateField("idalbaran", dbInteger)
.Fields.Append .CreateField("idproducto", dbInteger)
.Fields.Append .CreateField("descripción", dbText, 80)
.Fields.Append .CreateField("precio", dbLong)
.Fields.Append .CreateField("cantidad", dbInteger)
.Fields.Append .CreateField("descuento", dbInteger)
'etc,etc,etc...
base.TableDefs.Append tdfNou
End With
Set base = Nothing
End Function