Formulario basado en una consulta
Hola Mayker.
Tengo un problema al intentar añadir un campo en un formulario ya creado. Este campo debe tener su Origen en una consulta que, a su vez, depende del valor introducido en otros campos de ese mismo formulario(a través de un cuadro combinado). Todo funciona correctamente (las consultas funcionan, etc) pero al añadir esta consulta en la opción "origen del registro" del formulario. Ya no me sale ningún valor, en el formulario, ni siquiera salen los campos, ni uno solo. ¿Qué estoy haciendo mal? ¿Puedes ayudarme? Gracias por adelantado.
Tengo un problema al intentar añadir un campo en un formulario ya creado. Este campo debe tener su Origen en una consulta que, a su vez, depende del valor introducido en otros campos de ese mismo formulario(a través de un cuadro combinado). Todo funciona correctamente (las consultas funcionan, etc) pero al añadir esta consulta en la opción "origen del registro" del formulario. Ya no me sale ningún valor, en el formulario, ni siquiera salen los campos, ni uno solo. ¿Qué estoy haciendo mal? ¿Puedes ayudarme? Gracias por adelantado.
Respuesta de mayker
1
Set tdfNuevo = BaseDatos.CreateTableDef("Polizas_Temp")
' SE INSERTAN LOS CAMPOS Y SUS DEFINICIONES
With tdfNuevo
.Fields.Append .CreateField("cod_poliza", dbText, 15)
.Fields.Append .CreateField("direccion", dbMemo)
.Fields.Append .CreateField("cod_moneda", dbInteger)
.Fields.Append .CreateField("tipo_dato_particular", dbInteger)
.Fields.Append .CreateField("suma_asegurada", dbDouble)
.Fields.Append .CreateField("prima_asegurada", dbDouble)
.Fields.Append .CreateField("fecha_inicio", dbDate)
.Fields.Append .CreateField("fecha_vencimiento", dbDate)
.Fields.Append .CreateField("observaciones", dbText, 150)
.Fields.Append .CreateField("cobertura_adicional", dbText, 100)
.Fields.Append .CreateField("deducible", dbText, 100)
.Fields.Append .CreateField("activo_poliza", dbInteger)
.Fields.Append .CreateField("autoincrementa", dbLong)
.Fields.Append .CreateField("cod_ejecutivo", dbInteger)
.Fields.Append .CreateField("comision_ejecutivo", dbDouble)
.Fields.Append .CreateField("Nombre_Cliente", dbText, 100)
.Fields.Append .CreateField("Nombre_Ramo", dbText, 100)
.Fields.Append .CreateField("Nombre_Compania", dbText, 100)
.Fields.Append .CreateField("Nombre_Ejecutivo", dbText, 100)
.Fields.Append .CreateField("Nombre_Moneda", dbText, 50)
.Fields.Append .CreateField("Id_direccion", dbInteger)
BaseDatos. TableDefs. Append tdfNuevo
End With
Asi lo hago yo...
' SE INSERTAN LOS CAMPOS Y SUS DEFINICIONES
With tdfNuevo
.Fields.Append .CreateField("cod_poliza", dbText, 15)
.Fields.Append .CreateField("direccion", dbMemo)
.Fields.Append .CreateField("cod_moneda", dbInteger)
.Fields.Append .CreateField("tipo_dato_particular", dbInteger)
.Fields.Append .CreateField("suma_asegurada", dbDouble)
.Fields.Append .CreateField("prima_asegurada", dbDouble)
.Fields.Append .CreateField("fecha_inicio", dbDate)
.Fields.Append .CreateField("fecha_vencimiento", dbDate)
.Fields.Append .CreateField("observaciones", dbText, 150)
.Fields.Append .CreateField("cobertura_adicional", dbText, 100)
.Fields.Append .CreateField("deducible", dbText, 100)
.Fields.Append .CreateField("activo_poliza", dbInteger)
.Fields.Append .CreateField("autoincrementa", dbLong)
.Fields.Append .CreateField("cod_ejecutivo", dbInteger)
.Fields.Append .CreateField("comision_ejecutivo", dbDouble)
.Fields.Append .CreateField("Nombre_Cliente", dbText, 100)
.Fields.Append .CreateField("Nombre_Ramo", dbText, 100)
.Fields.Append .CreateField("Nombre_Compania", dbText, 100)
.Fields.Append .CreateField("Nombre_Ejecutivo", dbText, 100)
.Fields.Append .CreateField("Nombre_Moneda", dbText, 50)
.Fields.Append .CreateField("Id_direccion", dbInteger)
BaseDatos. TableDefs. Append tdfNuevo
End With
Asi lo hago yo...
