DELETANDO REGISTRO
Ola, Pessoal estou tendo problemas em gerar um relatorio com verificação de mes e ano. e o seguinte e um sistema de mensalidade escolar olha a imagem da tela entao. eu uso o dbgrid o data para gerar os relatorios e pesso um relatorio geral com todos os cadastros e depois eu filtro os meses e o ano que eu querotipo
[ô][ô]***************************************************************
If Month(dyn([Ô]VENC1[Ô])) <> Month(MES) and Year(dyn([Ô]VENC1[Ô])) <> Year(ANO) Then
dyn.Delete
[ô][ô]****************************************************************
ai ele deta o campo pra nao mostrar mas quando nao tem nenhum dos campos que tem o mes e o ano ele tras o registro mesmo assim eu teria que apagalo inteiro do relatorio alguem tem ideia
[ô][ô]***************************************************************
If Month(dyn([Ô]VENC1[Ô])) <> Month(MES) and Year(dyn([Ô]VENC1[Ô])) <> Year(ANO) Then
dyn.Delete
[ô][ô]****************************************************************
ai ele deta o campo pra nao mostrar mas quando nao tem nenhum dos campos que tem o mes e o ano ele tras o registro mesmo assim eu teria que apagalo inteiro do relatorio alguem tem ideia
Pessoal mudando a logica da coisa para excluir um registro executo a seguinte funcao.
Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & [Ô]\Cadastro.Mdb[Ô], False, False, [Ô];PWD=4626[Ô])
query = [Ô]Select * From Clientes where CODIGO = [ô][Ô] & CODIGO & [Ô][ô][Ô]
Set dyn = xxbco.CreateDynaset(query)
If Not dyn.EOF Then
dyn.Delete
MsgBox [Ô]Operação Realizada com (SUCESSO).![Ô], vbExclamation, NOME
End If
xxbco.Close
Else
End If
copu eu poderia encaichar isso da seguinte forma que se ele achar um determinado campo vazio ele delete o arquivo ?
Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & [Ô]\Cadastro.Mdb[Ô], False, False, [Ô];PWD=4626[Ô])
query = [Ô]Select * From Clientes where CODIGO = [ô][Ô] & CODIGO & [Ô][ô][Ô]
Set dyn = xxbco.CreateDynaset(query)
If Not dyn.EOF Then
dyn.Delete
MsgBox [Ô]Operação Realizada com (SUCESSO).![Ô], vbExclamation, NOME
End If
xxbco.Close
Else
End If
copu eu poderia encaichar isso da seguinte forma que se ele achar um determinado campo vazio ele delete o arquivo ?
If dyn!campodobanco=[Ô][Ô] or dyn!campodobanco=null Then
dyn.Delete
MsgBox [Ô]Operação Realizada com (SUCESSO).![Ô], vbExclamation, NOME
End If
xxbco.Close
Else
End If
dyn.Delete
MsgBox [Ô]Operação Realizada com (SUCESSO).![Ô], vbExclamation, NOME
End If
xxbco.Close
Else
End If
VALEU
Tópico encerrado , respostas não são mais permitidas