Imprimir página | Cerrar ventana

Mostrar select en pantalla

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85293
Fecha de impresión: 01/Junio/2020 a las 15:06


Tema: Mostrar select en pantalla
Publicado por: Erick Gamer
Asunto: Mostrar select en pantalla
Fecha de publicación: 21/Mayo/2020 a las 22:21
Hola a todos,

Tengo una duda, es posible mostrar una consulta de seleccion en pantalla desde vba?
Es decir no tener la consulta generada y tampoco mostrarla en un formulario.

Estoy intentando con un record set si no esta vacio entonces invoco el SQL para mostrar mi consulta per me tira el error 2342 en tiempo ejecucion.

Una accion RunSQL requiere argumentos consistentes de un sentencia SQL.

'Validacion de cables sin cable code
Dim rs As DAO.Recordset
Dim SQL As String

Set rs = CurrentDb.OpenRecordset("SELECT * FROM [MASTER] WHERE ([MASTER].Type)=""Without GCC""")
If rs.RecordCount > 0 Then
    MsgBox "Existe información sin GCC....!" & vbCrLf & "Alerta!!!!", vbCritical, "Vea la información"
    SQL = "SELECT Wire,Name,Type FROM [MASTER] WHERE [MASTER].Type='Without GCC'"
    Debug.Print SQL
    .RunSQL SQL
    End If

Se que lo puedo solucionar almacenando la consulta en la base de datos, pero tengo la inquietud de ver si es posible mostrarla desde VBA.

Saludos

Erick Gamer


-------------
Aprendiz de todos, maestro de nadie.



Respuestas:
Publicado por: Dabellaso
Fecha de publicación: 21/Mayo/2020 a las 22:28
Hasta donde yo sé, con una consulta como tal no se puede. Lo que si puedes hacer es recorrer el recordset que creaste y usar el Debug.Print en cada registro que exista para mostrar los datos que quieras en la ventana de inmediato de VBA


-------------
El saber no ocupa lugar, sólo tiempo


Publicado por: Erick Gamer
Fecha de publicación: 21/Mayo/2020 a las 22:42
Pero servira igual para verlo en pantalla, para el usuario?
Vamos a ver


-------------
Aprendiz de todos, maestro de nadie.


Publicado por: mounir
Fecha de publicación: 21/Mayo/2020 a las 22:50
Hola!

Has probado ver en un MsgBox?

-------------
Un Saludo.


Publicado por: Dabellaso
Fecha de publicación: 21/Mayo/2020 a las 22:51
Para el usuario no, el debug.print es para el programador.

Si quieres mostrar los datos al usuario, si son pocos puedes usar un msgbox, si no sabes cuantos serán , o sabes que serán muchos, podrías generar un archivo .txt con los datos y abrirlo para que el usuario los pueda ver a través el bloc de notas.

Otras opciones son tener un formulario (Ya sea de Access o de MsForms) exclusivo para esa situación que contenga un control de lista que te muestre los registros de la consulta



-------------
El saber no ocupa lugar, sólo tiempo


Publicado por: Erick Gamer
Fecha de publicación: 21/Mayo/2020 a las 23:26
He tratado de mostrarlo en un MsgBOX, pero me muestra la sentencia SQL, no me muestra los datos.

SELECT Wire,Name,ype FROM [MASTER] WHERE [MASTER].Type='Without GCC'

Las opciones que comentas Dabellaso, si las he visto pero mas que nada es una inquietud, el saber si puede mostrarse en pantalla  como una consulta de seleccion pero desde el VBA.




-------------
Aprendiz de todos, maestro de nadie.


Publicado por: xavi
Fecha de publicación: 21/Mayo/2020 a las 23:49
Tal como estás pidiendo (hasta dónde yo se) no es posible.

En esos casos yo creo una consulta temporal, le asigno la SQL y utilizo la consulta como SourceObject de un subformulario. Algo así:

Me!sfrDatos = "Query.NombreConsultaTemporal"


Un saludo


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: mounir
Fecha de publicación: 22/Mayo/2020 a las 00:29
Hola!

Te he confeccionado un ejemplo, espero que te sirva.

http://www.filebig.net/files/SzKpHQJdev" rel="nofollow - http://www.filebig.net/files/SzKpHQJdev

-------------
Un Saludo.


Publicado por: rokoko
Fecha de publicación: 22/Mayo/2020 a las 17:56
A ver si esto te vale.
http://www.mvp-access.com/foro/ejecutar-consulta-select-en-vba_topic83711.html


Publicado por: Erick Gamer
Fecha de publicación: 22/Mayo/2020 a las 21:33
En verdad que son unos magos, siempre hay variedad de soluciones a las preguntas expuestas.

Muchas gracias.
Dabellaso
Xavi
Mounir
Rokoko

Tema solucionado  Big smile

Erick Gamer


-------------
Aprendiz de todos, maestro de nadie.



Imprimir página | Cerrar ventana