Ingeniero

ComboBox

Hola de nuevo, agradezco de antemano su ayuda, tengo una base de datos con varias tablas, una llamada nombres y una llamada reportes, en el formulario de reportes tengo un combobox llamado nombres, quiero que en el combobox me aparezcan los datos que tengo en la ta bla nombres, esta tabla solo tiene un dato(nombre) y que este dato se guarde con la actualización del formulario.Gracias

Experto
Hola, si lo que quieres es cargar los datos que tienescen una tabla en un combo haz lo siguiente:

Crea: un control data y un combo, luego coloca este código en el load del formulario:

Data1.DatabaseName = App.Path & "\bd.mdb"
Data1.RecordSource = "tabla"
Data1.Refresh

With Combo1
.Clear
Data1.Refresh
While Not Data1.Recordset.EOF
.AddItem Data1.Recordset!nombreData1.Recordset.MoveNext
Wend
End With

Con esto llenas el combo con los nombres que tienes almacenados en la tabla..
Ahora bien cuando dices que quieres guardar los datos del formulario reporte, eso dependerá de que datos quieres guardar...

Saludos, y espero te sirva la ayuda..

Usuario
Ya tengo un control data, este hace referencia a la tabla reportes, cree otro formulario con un controldata para aplicar tu código me da run time error en la tercer linea Data1.Refresh.
El formulario original es para llenar la tabla reportes, quiero seleccionar los nombres a ingresar en un combobox que me muestre los nombres de una tabla llamada nombres y que lo almacene en la tabla llamada reportes junto con el resto de la captura.
Gracias por tu apoyo

Experto
Me parece raro que te de eseerror porque lo probé y funciona bien, a menos que:
a)No tengas bien instalado el visual
b)ó sea otra version (este ejemplo es con vb 6.0)

De todas formas intenta nuevamente con:

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\bd2.mdb" ' nombre de la base de datos
Data1.RecordSource = "nombres" ' nombre de la tabla donde tienes los datos requeridos
Data1.Refresh' actualiza losdatos del control data para poder utulizarlos

With Combo1
.Clear
Data1.Refresh
While Not Data1.Recordset.EOF
.AddItem Data1. Recordset! Nombre ' nombre del campo de la tabla que tiene en la base de datos
Data1.Recordset.MoveNext
Wend
End With
End Sub

Ahora bien no entiendo bien cuando dices que: quiero seleccionar los nombres a ingresar en un combobox; entonces:

1) El ejemplo sirvepara llenar el combo con todos los nombres que tienes guardados en la tabla nombres y luego almacenarlos en la tabla reportes puedes crear un botón y haces larutina de guardado en en botón

2) Lo que necesitas es seleccionar unos determinados nombres (basados en unos criterios)de la tabla nombres para luego guardarlos en la tabla reporte.

Si quieres especifícame bien tus necesidades y quedeseas hacer para tratar de ayudarte mejor.. Estoy a la orden

CON ESTE MANUAL USTED SERÁ CAPAZ DE CREAR UNA APLICACIÓN EN VISUAL BASIC QUE CONTENGA:
a) Base de datos en ACCESS 2003
a) conexión a datos por medio de DATAENVIRONMENT
b) crear DATAREPORT con DATAENVIRPNMENT
c) Botones de mantenimiento de registros como nuevo, modificar, guardar y eliminar
d) Botones de navegación de registros comoúltimo, siguiente, anterior y primero

CONSIDERACIONES:
Para el desarrollo de conexiones a visual Basic 6.0 con Access se recomienda guardar todo lo que se desarrollara en una sola carpeta, la cuál al poner en ejecución la aplicación en Visual Basic tendrá que tener la misma ruta siempre lo ejecute donde lo ejecute.
CREACION DE UNA BASE DE DATOS CON MICROSOFT ACCESS 2003
Para tal fin deberealizar lo siguiente:
• Arrancar Microsoft Access 2000.
• Seleccionar la orden Nueva. . . del Menú Archivo.
• Dentro del cuadro de diálogo Nueva, en la ficha General, seleccionar Base de datos y hacer clic en el botón Aceptar.
• Ingresar un nombre para la base de datos. En seguida se mostrará una ventana similar a la siguiente:
[pic]
• Enseguida cree una nueva tabla....