[Resolvido]Dados Duplicados.... Novamente

Olá

Há uns tempos atrás coloquei aqui no forum uma dúvida sobre como tratar dados duplicados,

http://maximoaccess.forumeiros.com/t6363-resolvido-tratamento-dados-duplicados

Agora estou novamente com o mesmo problema, tentei usar o mesmo código numa situação idêntica mas não está a funcionar, pede-me sempre o valor de um campo quando faz a verificação.

O formulário interveniente neste processo é o frmAvarias e o campo incidente.
Será que me conseguem ajudar?

Aqui fica a minha BD.
https://www.dropbox.com/s/lqfizkz2l9bgk2a/InGest.zip

Não estou mesmo a conseguir resolver o problema e estou preso neste passo.
Vai uma ajuda?

Ola Ricardo;

Não consigo compreender para que servem dois formularios iguais.

Tomei a liberdade de deletar o formulario "Avarias_Editar" e como pode ver o mesmo formulario "Avarias", já faz tudo o que pretende.

Olá,

Eu tentei recriar a forma como foi feito no meu primeiro post (coloquei o link em cima) e na altura o colega Dilson encontrou essa solução porque o subformulário não carregava os dados.

Neste caso, com as suas alterações, já faz a verificação no entanto se reparar a listbox do formulário não carrega a informação se escolher-mos editar.

Amigão, como eu sempre gostei do simples, essa é a mais simples, veja;

DoCmd.ApplyFilter , "Incidente ='" & strFiltro & "'"
Me.lstdocav.Requery

É isto mesmo.

Muito obrigado pela ajuda.
E obrigado também por colocar comentários no código, vai ser mais fácil "estudá-lo".

Edit: Reparei agora que colocou o código no "botão" remover.. só faltou apagar o ficheiro associado aquele registo que ainda não consegui fazer...

Não entendi.

Código no botão Remover ?

Apagar o ficheiro associado aquele registo ? Como assim ?

Ok, já entendi;

Teste;

Private Sub Rótulo48_Click()
'mensagem a perguntar se quer mesmo deletar
If MsgBox("Deseja remover o " & Me.lstdocav.Column(0), vbYesNo, "Excluír") = vbYes Then
    'deleta o registro com o ID na 2ª coluna do SQL da lista, sendo que as colunas 
    'começam por zero (0)
    CurrentDb.Execute "DELETE * FROM AnexosAvarias WHERE ID = " & Me.lstdocav.Column(1)
    'após deletar, faz um Recalc ao formulario, para atualizar a lista
    Me.Recalc
    Else
    MsgBox "Exclusão abortada...", vbInformation
    End If
End Sub

Sim isso, mas

Os dados que aparecem na listbox são nomes de ficheiros que estão guardados numa pasta cujo nome é o número de incidente (campo incidente) e ao clicar sobre o nome o respectivo ficheiro abre. O botão remover será para remover o registo (nome guardado numa tabela) e o ficheiro na pasta correspondente.

Para isso falta saber em que diretorio estará a Pasta com os ficheiros.

Como não sei em que diretorio fica a pasta, fiz pela "C:\"

Private Sub Rótulo48_Click()
'Habilite a referencia VBA Microsoft Scripting Runtime
Dim fso As New FileSystemObject
Dim strFicheiro As String
On Error Resume Next
'mensagem a perguntar se quer mesmo deletar
If MsgBox("Deseja remover o " & Me.lstdocav.Column(0), vbYesNo, "Excluír") = vbYes Then
    
    'coloca o caminho do ficheiro na variavel
    'diretorio\nome da pasta\nome do ficheiro
    strFicheiro = "C:\" & Me.Incidente.Value & "\" & Me.lstdocav.Column(0)
    
    'se o ficheiro existir no diretorio, deleta-o
     If fso.FileExists(strFicheiro) Then
        fso.DeleteFile (strFicheiro)
        
    'deleta o registro com o ID na 2ª coluna do SQL da lista, sendo que as colunas
    'começam por zero (0)
    CurrentDb.Execute "DELETE * FROM AnexosAvarias WHERE ID = " & Me.lstdocav.Column(1)
    'após deletar, faz um Recalc ao formulario, para atualizar a lista
    Me.Recalc
    Else
    Exit Sub
    End If
End If
Set fso = Nothing
End Sub

Olá

Muito obrigado mesmo..
Era mesmo isto, só alterei o caminho para
CurrentProject.Path & "\Files\" & Me.Incidente.Value & "\" & Me.lstdocav.Column(0)

Obrigado pelo retorno o fórum agradece.