¿Es posible incorporar el valor de una variable de texto en un informe de access?
Publicado por Rafael (13 intervenciones) el 31/08/2013 20:41:28
Mediante las siguientes sentencias, realizo una consulta, solicitando el nombre de la asignatura que deseo y al final me sale el informe de la misma.
¿Es posible incorporar el valor de la variable de texto nom al informe en el título o en cualquier lado?.
Muchas gracias.
Private Sub cboAsignaturas3_Click()
Dim db As Database, r As Recordset
Dim nom As String
Dim sql As String, salida As String
Set db = CurrentDb
nom = Nz(Me.cboAsignaturas3, "")
'Si el combo está en blanco, avisa y salimos
If nom = "" Then
MsgBox "Tienes que seleccionar una asignatura"
Exit Sub
End If
'Para comprobar que coge el nombre
MsgBox "Asignatura " & nom
sql = "SELECT First([" & nom & "].[Nota final]) AS [Nota finalCampo], First([" & nom & "].Año) AS AñoCampo, Count([" & nom & "].[Nota final]) AS NúmeroDeDuplicados, Alumnos.Sexo INTO e_tbRep FROM [" & nom & "] INNER JOIN Alumnos ON [" & nom & "].Ficha = Alumnos.Ficha GROUP BY Alumnos.Sexo, [" & nom & "].[Nota final], [" & nom & "].Año HAVING (((Count([" & nom & "].[Nota final])) > 0) And ((Count([" & nom & "].Año)) > 0)) ORDER BY First([" & nom & "].Año), First([" & nom & "].[Nota final])"
CurrentDb.Execute "drop table e_tbRep"
CurrentDb.Execute sql
DoCmd.OpenReport "Nota de asignatura", acViewReport
End Sub
¿Es posible incorporar el valor de la variable de texto nom al informe en el título o en cualquier lado?.
Muchas gracias.
Private Sub cboAsignaturas3_Click()
Dim db As Database, r As Recordset
Dim nom As String
Dim sql As String, salida As String
Set db = CurrentDb
nom = Nz(Me.cboAsignaturas3, "")
'Si el combo está en blanco, avisa y salimos
If nom = "" Then
MsgBox "Tienes que seleccionar una asignatura"
Exit Sub
End If
'Para comprobar que coge el nombre
MsgBox "Asignatura " & nom
sql = "SELECT First([" & nom & "].[Nota final]) AS [Nota finalCampo], First([" & nom & "].Año) AS AñoCampo, Count([" & nom & "].[Nota final]) AS NúmeroDeDuplicados, Alumnos.Sexo INTO e_tbRep FROM [" & nom & "] INNER JOIN Alumnos ON [" & nom & "].Ficha = Alumnos.Ficha GROUP BY Alumnos.Sexo, [" & nom & "].[Nota final], [" & nom & "].Año HAVING (((Count([" & nom & "].[Nota final])) > 0) And ((Count([" & nom & "].Año)) > 0)) ORDER BY First([" & nom & "].Año), First([" & nom & "].[Nota final])"
CurrentDb.Execute "drop table e_tbRep"
CurrentDb.Execute sql
DoCmd.OpenReport "Nota de asignatura", acViewReport
End Sub
Valora esta pregunta
0