pessoal preciso gerar um relatorio para os medicamentos controlados psicotropicos existem varios medicamentos nesta classe preciso que o relatorio busque todos eles mas apenas una a todos e some seus totais de cada um para ter um total de medicamentos desta classe ! estou usando o dbgrid para gerar o relatorio e uso a seguinte instruçao

 

Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset

 

Set AreaTrabalho = DBEngine.Workspaces(0)
Set XBCO = AreaTrabalho.OpenDatabase(App.Path & "TemP.Mdb", False, False)
query = "Select * From TempC order by c1"
Set DYN1 = XBCO.CreateDynaset(query)
While Not DYN1.EOF
DYN1.Delete
DYN1.MoveNext
Wend

Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "Cadastro.Mdb", False, False)
query = "SELECT* FROM entrada order by codigo"
Set dyn = xxbco.CreateDynaset(query)
While Not dyn.EOF

If CVDate(dyn("c3")) >= CVDate(Format(A2, "00/00/0000")) Then
If CVDate(dyn("c3")) <= CVDate(Format(A3, "00/00/0000")) Then

If dyn("calsse") = classe Then
DYN1.AddNew
DYN1("codigo") = dyn("codigo")
DYN1.Update
End If
End If
End If
dyn.MoveNext
Wend
XBCO.Close
xxbco.Close
Data1.Refresh