Olá, poderiam me ajudar? Não tenho intimidade com códigos, preciso saber o número de registros da tabela Movimentação separados por codconta da tabela Contas onde status é falso, gostaria que o resultado aparecesse numa caixa de texto de um formulário contínuo. Fiz o seguinte:
Private Sub Texto32_BeforeUpdate(Cancel As Integer)
Dim SQL As String
SQL = "SELECT Count(Contas.CodConta) AS ContarDeCodConta, Contas.Conta FROM Contas INNER JOIN Movimentação ON Contas.CodConta = Movimentação.CodConta WHERE (((Contas.Status)=False)) GROUP BY Contas.Conta;"
Me.Texto32 = SQL
End Sub
Acontece que a caixa de texto fica vazia, o que está errado? Obrigada qualquer ajuda.
Private Sub Texto32_BeforeUpdate(Cancel As Integer)
Dim SQL As String
SQL = "SELECT Count(Contas.CodConta) AS ContarDeCodConta, Contas.Conta FROM Contas INNER JOIN Movimentação ON Contas.CodConta = Movimentação.CodConta WHERE (((Contas.Status)=False)) GROUP BY Contas.Conta;"
Me.Texto32 = SQL
End Sub
Acontece que a caixa de texto fica vazia, o que está errado? Obrigada qualquer ajuda.