T raer datos de tabla a frm y subfrm para Jacinto Trillo

Este es el recordset

Private Sub Traerdatos_Click()

Dim rst As DAO.Recordset

Dim SQL As String

Dim miBd As DAO.Database

On Error GoTo ManipularError

SQL = "SELECT tabla1.*, tabla2.* FROM tabla1, tabla2;"
Set rst = CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly)

With rst
me.nombretexboxformulario = .Fields("nombre del campo de la tabla")
me.nombretexboxformulario2= .Fields("nombre del campo de la tabla")

.

.

.
Forms![Formulario]![Subformulario]![nombretexboxsubformulario] = .Fields("nombre del campo de la tabla")
Forms![Formulario]![Subformulario]![nombretexboxsubformulario] = .Fields("nombre del campo de la tabla")

.

.

.
End With

miRs.Close: Set rst = Nothing
miBd.Close: Set miBd = Nothing

ManipularError:
If Not miRs Is Nothing Then miRs.Close: Set miRs = Nothing
MsgBox Err.Description, vbCritical, "Atención"

end sub

El manipular este el primero que puse no

ManipularError:
If Not rst Is Nothing Then rst.Close: Set rst = Nothing
MsgBox Err.Description, vbCritical, "Atención"

Hola Antonio Cuellar

Buenos Días
Gracias por contestar.
Te comento que:
*Las Tablas AuXvVenta y , AuxVdetalle no tienen formulario
*Las Tablas vVenta y Vdetalle tienen formulario
---------------

Igual probé poniéndole formulario a las tablas AuXvVenta y , AuxVdetalle.
Probé el código que me enviaste y me da error.

tu código
'SQL = "SELECT tabla1.*, tabla2.* FROM tabla1, tabla2;"

tu código adaptado
SQL = "SELECT vVenta .*, Vdetalle.* FROM AuXvVenta, AuxVdetalle;"
error 3070
no reconoce venta.* como nombre de campo o expresión validos

Saludos

Richard: Acabo de ver ésta petición y la verdad es que no acabo de ver la necesidad de Recorsets para alimentar un Formulario/Subformulario.

Poniendo el Origen de datos en uno y otro y vinculando por un Campo que tengan en comun, a mi modo de ver bastaría.

No obstante, ya veo que Antonio te cita con acierto la forma dellenar un Recordset.

Veo también que le comentas un Error.

El te cita >>

'SQL = "SELECT tabla1.*, tabla2.* FROM tabla1, tabla2;"

Le contestas >> tu código adaptado
SQL = "SELECT vVenta .*, Vdetalle.* FROM AuXvVenta, AuxVdetalle;"

Si observas en su construcción repite las Tablas en El SELEC y en el FROM y tu las pones distintas.

Describes muy bien los objetos que tienes, pero ¿Qué quieres mostrar en el Formulario y qué otras cosas en el Subformulario.

En cualquier caso si ya tienes adelantado el boceto de la solución con lo Antonio te comenta, estupendo, y de otra manera si necesitas algo más me comentas. Un saludo >> Jacinto

Buenas Tardes Jacinto Trillo, Antonio Cuellar

Gracias por ayudar.

Serian tan amables de explicarme como funciona la sql (que es lo que hace) paso a paso porque no entiendo?

SQL = "SELECT tabla1.*, tabla2.* FROM tabla1, tabla2;"

Saludos.

Richard: Con esa instrucción le dices >> Selecciona todos los campo de Tabla1, todos los campos de la Tabla2 y has de decirle desde donde, que en éste caso es Tabla1 y Tabla2. Saludos >> Jacinto

Se agradece la participación y ayuda de los dos.