[Resolvido]Exportar para Tabela

Bom Dia

Tenho um form com uma caixa de listagem que recolhe dados externamente, mais própriamente da Pasta C:\DocumentosAdvo. Através deste código insiro os documentos na caixa de listagem:

Dim RutaCarpeta As String
RutaCarpeta = txtFile
If Len(RutaCarpeta) <> 0 Then
Me.txtFile = Trim(RutaCarpeta)
Me.Lista.RowSource = ""
'relleno cuadro de lista
Me.Lista.RowSource = mostrarArchivosWSH(RutaCarpeta)
End If

Até aqui tudo bem, mas como exportar o conteúdo da caixa de listagem para uma tabela? Liguei a caixa de listagem ao NProcesso e mostra os documentos para cada cliente e pretendo ligar a nova tabela à principal para acrescentar 1 caixa de verificação, assim ao abrir a caixa de listagem além dos documentos teria também
a possibilidade de marcar a caixas com o Tipo (enviado a tribunal ou não enviado)

Agradecia desde já a sua ajuda

Esta situação vem no mesmo caminho do código quer me enviou ontem em que os documentos são copiados a partir da pasta Documentos Advo.

Não sei onde foi buscar esse cod, mas por questão de ética, eu gosto sempre de ver os Créditos de quem o fez.

Utilize o ListBox.Selected e o INSERT INTO para inserir na tabela.

Este código que lhe enviei já viaja comigo à mais de 4 anos e foi achado na internet num forum espanhol como resposta a uma questão. Não existiam créditos e retireio tal e qual.

Obrigado Mestre

Mestre:

O método que me indicou é o correcto, contudo a base de dados vai crescer imenso pois um processo pode ter em média entre 50 + de 100 docs. Será que existe algum a forma de adicionar um botão de verificação á Lista? É que inicialmente só são copiados os tais 6 documentos com o código que ontem me enviou, mas depois o utukizador vai criar e digitalizar documentos dentro da pasta do processo e a coisa vai engordar. Qual a soluçõa para isto? de forma que ele pudesse clicar sobre uma caixa de verificação e dar aquele doc como entregue no tribunal?sem ter que recorre à tabela!

Utilizo um form frmdocs que utiliza o código (recolhido no tal forum espanhol, sinceramente já nem sei onde pois foi por acidente que por lá passei), mas que serviu para este propósito. Se o mestre entender de op modificar ou alterar para o fim que pretendo e ajudar-me fico agradecido.

Coloque uma caixa de texto e uma checkbox desvinculadas nesse form;

Na listbox coloque;

Private Sub SuaLista_AfterUpdate()
Me.SuaCaixaTexto.Value = Me.SuaLista.Column(0) '0 é a primeira coluna
Me.SuaCaixaTexto.Requery
End Sub

Na checkBox coloque;

Private Sub SuaCheckBox_AfterUpdate()
Select Case SuaCheckBox
Case Is = 0 ' 0 checkbox desmarcada
CurrentDb.Execute "UPDATE SuaTabela Set [SuaTabela].[SeuCampoChekBox] = 0 WHERE [SuaTabela].[SeuCampoDoc] = '" & Me.SuaCaixaTexto.Value & "'"
Case Is = -1 ' -1 checkbox marcada
CurrentDb.Execute "UPDATE SuaTabela Set [SuaTabela].[SeuCampoChekBox] = -1 WHERE [SuaTabela].[SeuCampoDoc] = '" & Me.SuaCaixaTexto.Value & "'"
End Select
End Sub

Mestre não continuei pelo seguinte:

Não tenho nenhuma tabela pelos motivos anteriores, apenas pretendia que o utilizador seleccione um documento e clique na caixa de veificação. O valor seria alterado para Sim na caixa e esse documento seria dado como entregue em tribunal.

Segundo os clientes um processo junta muitos docs e na hora da escolha eles não sabem se determinado documento deu ou não entrada. Então a situação seria esta:

Na Lista tenho o documento Procuração e uma caixa de verificação. Se deu entrada o doc no tribunal então ele faz clique e a caixa fica marcada. Sem recurso a tabela, totalmente desvinculado. O problema é adicionar em run time uma caixa de verificação a cada documento na Lista e que entretanto foi criado dentro da pasta C:DocumentosAdvo. Sempre que um documento for lá criado, este refelecte-se automaticamente na lista.

Espero ter conseguido passar a ideia

Uma checkbox não acopolada, como é que você faria a destinção de qual doc pertence o sim ou o não ?

Até que o próprio título deste tópico, nada tem a haver com o seu pedido.

Se conseguir poste aqui para aprender-mos mais um pouco.

Efectivamente é verdade e tem toda a razão. inicialmente imaginei a lista ligada a uma tabela, mas depois verifiquei que dado o elevado número de documentos a agregar a tabela iria crescer e com ela aplicação. Então pensei (não sei se bem ou mal?) que adicionar uma caixa de verificação à lista a cada documento criado dentro da Pasta principal, neste caso em C:\DocumentosAdvo, não iria engrossar o programa, já que os clientes sópretendem fazer dessa caixa de verificação um lembrete para saberem se determinado doc já saíu ou não.

Se necessário faço outra postagem é só o mestre o solicitar. Desculpe a confusão inicial mmas a intenção era boa.

Eu ainda não consegui entender onde você vai guardar o valor da checkbox, se não existe tabela.

O simples seria você selecionar o doc na listbox e ao pressionar a checkbox, ela renomear o documento por exemplo xxxxxxx_Entregue.doc ????

Mas como fazer isso, Mestre se a Listbox (Lista) não está vinculada a nada. O que está vinculado é o form através do NProcesso e a listBox mostra o resultado para cada processo, mas o valor da listBox é lista de vlores. Vou tentar explicar e desde já agradecer pela sua paciência:

1- Com o código que ontem me enviou os documentos são copiados para a pasta C:\DocumentosAdvo.
2- Dentro dessa pasta vão ser criados novos documentos.
3- Para chegar a essa pasta existem dois métodos; através do campo pasta que funciona com o seu código no acto de criar a pasta cria o caminho da mesma e quando o cliente clica ali, acede ao interior da pasta do processo activo.
4- O segundo método é efectuar um duplo clique no campo NProcesso e chama um form com a ListBox (Lista)que carrega automaticamente todos os documentos com estes códigos:
Dim RutaCarpeta As String
On Error Resume Next
Dim msg, Style, Title
msg = "Não existe Processo aberto!" & Chr(10) & Chr(13) & "Por Favor selecione um Processo..."
Style = "vbInformation"
Title = "Atenção"
If IsNull(Me.NProcesso) Then
msg = MsgBox(msg, vbInformation, Title)
Else
RutaCarpeta = txtFile
If Len(RutaCarpeta) <> 0 Then
'cargo los datos de la carpeta
Me.Lista = Trim(txtFile)
Me.Lista.RowSource = ""
'relleno cuadro de lista
Me.Lista.RowSource = mostrarArchivosWSH(RutaCarpeta)
End If
End If

Para abrir um documento:

On Error GoTo Lista_Click_Err
If MsgBox("Abrir o ficheiro:" & Me.Lista.Value & " ¿Sim /Não?", _
vbYesNo, "Confirmar") = vbYes Then
FollowHyperlink Me.Lista.Value
End If
Lista_Click_Exit:
Exit Sub
Lista_Click_Err:
MsgBox "Este é um Processo novo, não existem documentos", vbCritical, "Aviso de erro"
Resume Lista_Click_Exit
5- Nada está ligado, excepto o form e a lista que vai filtrar através do txtFile.

Agora; como inventar??? algo ou uma caixa de verificação....Quem sabe o Mestre JPaulo se conseguir fazer agora uma avaliação melhor do problema não encontra uma resolução?

Vamos lá inventar;

Partindo do principio que a listbox terá o nome completo do documento;

1º coloque uma checkbox no form
2º coloque este código no evento vba depois de actualizar da checkbox

Private Sub SuaCheckBox_AfterUpdate()
Dim OrgFile As String
Dim DestFile As String
On Error Resume Next
OrgFile = ("C:\Processos\" & Me.NProcesso.Value & "\" & Me.SuaListBox.Value)
DestFile = ("C:\Processos\" & Me.NProcesso.Value & "\" & "Entregue_" & Me.SuaListBox.Value)
Name OrgFile As DestFile
End Sub

Ou seja;
Seleciona o doc na listbox e marca a checkbox, depois veja o resultado.

Podemos ainda criar um cod para todos os documentos começados por "Entregue" não voltarem a ser listados na listbox.

Mestre:

Clico o documento e a caixa fica marcada mesmo que depois clique em outros docs, até aqui está perfeito, mas depois de fechar a caixa perde o valor, ou seja; ao reabrir a caixa fica desmarcada.

Retificação
o documento ao ser clicado não marca a caixa, marquei manualmente e depois ao abrir aparece desmarcada e o documento não fica seleccionado'''não sei se era esta a sua intenção?

Amigo, perceba que a ideia é essa mesmo,

A checkbox está a fazer o mesmo que um botão, apenas a renomear os documentos que já foram entregues.

Mestre:

Tive agora uma ideia que talvez pudesse resolver o problema, só não sei como implementar:

E se paralelo à Lista existisse uma outra lista. Quando o utilizador fizesse clique num documento este passava para a outra caixa com o título "Documentos enviados". Será possível?

Quando enviei a minha mensagem ainda não tinha chegado a sua última pois devem ter entrado quase em simultâneo e só agora a li. Mas depois do form novamente aberto não mostra qual o documento que foi enviado, ppois a check box está em branco e o documento desmarcado. E a minha sugestão sobre 2 listas, mestre, acha viável, acha que vai ter paciência para isso? É que ultrapassando isto, fecho a aplicação e dou-a como pronta.

Obrigado

Passa da lista 1 para a lista 2, com duplo click.

Private Sub SuaListBox1_DblClick(Cancel As Integer)

Me.SuaListBox2.AddItem (Me.SuaListBox1.Column(0, Me.SuaListBox1.ItemsSelected(0)))
Me.SuaListBox1.RemoveItem (Me.SuaListBox1.ItemsSelected(0))

End Sub

Bom Dia Mestre

Ao efectuar duplo clique o valor seleccionado passa para da Lista para a lista1, mas aparece uma mensagem de erro e debug....Foi feita referência a uma propriedade através de um argumento numérico que não nenhum dos números da propriedade na coleção" o português não é meu é do próprio access. Depois de fechar o form a lista1 já não mostra o documento que recebeu da Lista e fazendo debug, vai para a última linha:

Me.Lista1.AddItem (Me.Lista.Column(0, Me.Lista.ItemsSelected(0)))
Me.Lista1.RemoveItem (Me.Lista1.ItemsSelected(0))

Mestre:

Fiz algumas experiências com o código e desta maneira não dá erro. Só não guarda o valor pois ao abrir a segunda vez a Lista 1 não guardou o valor.

Me.Lista1.AddItem (Me.Lista.Column(0, Me.Lista.ItemsSelected(0)))
Me.Lista.RemoveItem (Me.Lista.ItemsSelected(0))

Mestre:

Estive grande parte do dia de hoje a efectuar testes com as duas opções e o feedback é este:
Com este código teriamos o problema resolvido se o mesmo adiciona-se a palavra entregue ao documento.

Private Sub Verificação88_AfterUpdate()
Dim OrgFile As String
Dim DestFile As String
On Error Resume Next
OrgFile = ("C:\Processos\" & Me.NProcesso.Value & "\" & Me.Lista.Value)
DestFile = ("C:\Processos\" & Me.NProcesso.Value & "\" & "Entregue_" & Me.Lista.Value)
Name OrgFile As DestFile
End Sub
Esta linha vai para Debug,,,,,Name OrgFile As DestFile

este afigura-se o método mais eficaz, só que algo não está bem porque não adiciona a palavra "Entregue".

O segundo método e por sugestão minha afigura-se uma dor de cabeça, pois por mais voltas que der à cabeça a pergunta será provávelmente sempre a mesma; como guardar sem tabela os dados???.Me.Lista1.AddItem (Me.Lista.Column(0, Me.Lista.ItemsSelected(0)))
Me.Lista.RemoveItem (Me.Lista.ItemsSelected(0))

Fiz e refiz alterei e voltei ao inicial em ambos os casos pois os neus conhecimentos não me permitem entrar mais dentro da selva. Penso contudo que o primeiro método se escrevesse no documento "Entregue" seria o mais eficaz. Fico aguadar notícias suas.

Obrigado

Este método é eficaz e funciona muito bem, mas terá de ter atenção se o nome do documento na listbox está completo e com a extensão, exemplo:

vieira.doc
ou
vieira.txt

Se na listbox não tiver a extensão do ficheiro, dá erro e não renomeia, então terá de adicionar a extensão ao código:


Private Sub Verificação88_AfterUpdate()
Dim OrgFile As String

Dim OrgFile As String
Dim DestFile As String
On Error Resume Next
OrgFile = ("C:\Processos\" & Me.NProcesso.Value & "\" & Me.Lista.Value & ".doc")
DestFile = ("C:\Processos\" & Me.NProcesso.Value & "\" & "Entregue_" & Me.Lista.Value & ".doc")
Name OrgFile As DestFile

Mestre

Os documentos na caixa de listagem estão assim:
C:\Processos\123456\Procuração.doc

Agora, com este último código já não dá erro, mas não adiciona ou renomeia nada no documento. Actualei a pasta e nada.

Mestre:
Tornou a dar erro na mesma linha:Invalid Procedure call or argument.......Name OrgFile As DestFile

Quando as coisas são simples porquê complicar ?

Você não vê que:

OrgFile = ("C:\Processos\" & Me.NProcesso.Value & "\" & Me.Lista.Value & ".doc")

é a mesma coisa que isto que está na listbox ????

C:\Processos\123456\Procuração.doc


Então basta olhar e pensar um pouco;


Dim OrgFile As String
Dim OrgFile As String
Dim DestFile As String
On Error Resume Next
OrgFile = Me.Lista.Value
DestFile = Me.Lista.Value & "Entregue" & ".doc"
Name OrgFile As DestFile

Mestre:

Lamento imenso te-lo irritado, mas compreenda que tenho trabalhado mais de 10 horas por dia nisto e a cabeça chega a um ponto que.....bom, agora funcionou direitinho. Não sei como agradecer-lhe o trabalho e a paciência. Tenho 2 meses de trabalho nesta aplicação, é complexa e guardei para o fim a espinha dorsal dela...ou seja, todo o trabalho com as pastas, sem a qual a aplicação seria titica de galinha. E o facto de ter terminado hoje este programa, que será segunda feira apresentado a 22 pessoas (Clientes)não teria sido possível sem a sua paciência e generosidade. Então um obrigado do tamanho do mundo e muito sincero. Este é o melhor forum access e o recomendo a todos os visitantes.

Tranquilo.