mostrar datos usando formulario
Publicado por Rosy (6 intervenciones) el 31/03/2010 22:33:08
Cree un formulario en Access que pide un par de datos de entrada. Una vez que se ingresan los datos, el usuario pincha un Boton "calcula" y se va a un procedimiento que ejecuta un Select y lo asigna a un recordset. Necesito mostrar el resultado del select pero no se como hacerlo, tendria que ser algo que sea similar a una grilla, pero al parecer no es posible usar una grilla en Access, por lo menos lo intente y no lo permite ¿alguna sugerencia?
Private Sub cmb_calcula_Click()
Dim dbf As Database
Dim rst As Recordset
Dim xsql As String
Dim varmes As Variant
Set dbs = CurrentDb
varmes = cmb_mes.ListIndex + 1
varmes = Format(varmes, "00")
tabla = "IQ" & txtyyyy & varmes
xsql = "select pabellon, esp, count(*) as Tot_IQ from " & tabla & _
" where IoP = 'I' and MaoMe = 'Mayor' GROUP BY pabellon, esp ORDER BY pabellon, esp;"
Set rst = dbs.OpenRecordset(xsql)
' Me falta esta parte ¿como sigo para mostrar el resultado del RecordSet?
End Sub
Private Sub cmb_calcula_Click()
Dim dbf As Database
Dim rst As Recordset
Dim xsql As String
Dim varmes As Variant
Set dbs = CurrentDb
varmes = cmb_mes.ListIndex + 1
varmes = Format(varmes, "00")
tabla = "IQ" & txtyyyy & varmes
xsql = "select pabellon, esp, count(*) as Tot_IQ from " & tabla & _
" where IoP = 'I' and MaoMe = 'Mayor' GROUP BY pabellon, esp ORDER BY pabellon, esp;"
Set rst = dbs.OpenRecordset(xsql)
' Me falta esta parte ¿como sigo para mostrar el resultado del RecordSet?
End Sub
Valora esta pregunta
0