Rellenar formulario
' filtrar formulario por Team
Private Sub ccTeam_AfterUpdate()
Equipo = Forms![ScoreCard]![ccTeam]
Me.RecordSource = "SELECT DISTINCT [Inbox].[Responsible Employee] FROM Inbox WHERE Inbox.Team = '" & Equipo & "' ;"
Me.Requery
Set db = CurrentDb
Set registro = db.OpenRecordset("Inbox")
Dim pepito
pepito = Forms![ScoreCard]![Responsible]
Set rsa = db.OpenRecordset("SELECT COUNT(*) AS valor FROM Inbox WHERE Inbox.[Responsible Employee] = '" & pepito & "' ;")
Contador = rsa!valor
Me.lblCuentaInbox = Contador
End Sub
Con el pretendo que en un formulario tabular, la primera columna recoja los distintos nombres de una tabla según el filtro del cuadro combinado ccTeam. Esto funciona, no hay problema. La segunda columna tiene que contar el numero de registros que hay en la tabla para cada nombre. Y este es el problema. Contador, me devuelve el valor del primer nombre para todas filas.
Me.lblCuentaInbox devuelve siempre el mismo valor en todas las filas de la segunda columna (claro).
Se te ocurre algo
Private Sub ccTeam_AfterUpdate()
Equipo = Forms![ScoreCard]![ccTeam]
Me.RecordSource = "SELECT DISTINCT [Inbox].[Responsible Employee] FROM Inbox WHERE Inbox.Team = '" & Equipo & "' ;"
Me.Requery
Set db = CurrentDb
Set registro = db.OpenRecordset("Inbox")
Dim pepito
pepito = Forms![ScoreCard]![Responsible]
Set rsa = db.OpenRecordset("SELECT COUNT(*) AS valor FROM Inbox WHERE Inbox.[Responsible Employee] = '" & pepito & "' ;")
Contador = rsa!valor
Me.lblCuentaInbox = Contador
End Sub
Con el pretendo que en un formulario tabular, la primera columna recoja los distintos nombres de una tabla según el filtro del cuadro combinado ccTeam. Esto funciona, no hay problema. La segunda columna tiene que contar el numero de registros que hay en la tabla para cada nombre. Y este es el problema. Contador, me devuelve el valor del primer nombre para todas filas.
Me.lblCuentaInbox devuelve siempre el mismo valor en todas las filas de la segunda columna (claro).
Se te ocurre algo
1 Respuesta
Respuesta de Jose Huerta
1