[Resolvido]Formulários para textos

Pessoal, trabalho em uma Delegacia e com a ajuda de vocês, estou fazendo um programinha para me ajudar com meus processos.
Agora, minha mais nova dúvida é aseguinte:
Gostaria de saber se é possível, após criar um formulário com os seguintes campos: Nome, RG, data de nascimento, nome do pai, nome da mãe, naturalidade, grau de instrução, profissão, endereço e telefone, sendo que após inserir estes dados, eu pudesse gerar, através de um botão, um documento no word como o exemplo abaixo, onde cada campo vai preenchido automaticamente no momento em que é gerado o documento. São cerca de 30 documentos diferentes e para cada um, eu criaria um botão com o nome do documento que possuo aqui, tendo esses campos se repetindo em todos. Também gostaria de criar um outro formulário para inserção dos dados da delegacia como delegado, policial, endereço, telefone e CEP, para que isso ficasse gravado no Cabeçalho e rodapé do documento, pois em caso de troca de delegacia ou delegado, pudesse fazer o update dos dados.

(Exemplo do Documento)
Aos DATA, nesta cidade de CIDADE, na sede do DELEGACIA Distrito Policial, presente a Autoridade Policial, Doutor(a) DELEGADO, comigo Escrivão(ã) de seu cargo ao final assinado(a), aí comparece O(A) INTERROGANDO(A)NOME, RG nº. RG, nascido(a) aos DATA DE NASCIMETNO, na cidade de CIDADE filho(a) de PAI E MÃE, ESTADO CIVIL, GRAU DE INSTRUÇÃO, PROFISSÃO, com endereço à ENDEREÇO e telefone nº. TELEFONE. Depois de cientificado(a) da(s) acusação(ões) que lhe(s) é(são) feita(s) e de seus direitos constitucionais, dentre os quais o de permanecer calado(a), ter assistência de advogado de sua confiança, bem como de familiares, passou o(a) acusado(a) a ser interrogado(a), RESPONDENDO .Nada mais havendo a tratar, determinou a Autoridade que se encerrasse o presente auto que, depois de lido e achado conforme, vai devidamente assinado por todos.


ZZZZZZZZZZZZZZZZZZZZ
Delegado(a) de Polícia


___________________________________
YYYYYYYYYY
Interrogando(a)


XXXXXXXXXXX
Escrivão(ã) de Polícia

Boa Tarde

Tem que ser no Word? O Access disponibiliza relatórios altamente profissionais.

então, eu mencionei no word, porque nele eu sei inserir cabeçalhos e rodapés. Mas se for através de relatórios do Access, não tem problema algum.

E também, Vieira, porque nesses documentos, eu tenho que inserir as declarações, os interrogatórios, os depoimentos, entendeu? Apos gerar o documento, eu terei que digitar mais. Por isso achei que nos relatórios não daria certo.

Então, é fazer o Relatório e depois um botão de comando no form com um código para exibir o registo que está no ecrã no relatório:

Dim strDocName As String
Dim strFilter As String
strDocName = "NomedoRelatório"
strFilter = "ChavePrimária= Forms!NomedoFormulário!ChavePrimária"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

Como o grande e mestre Viera falou
no access tem que ser relatorio

Ou seja voçe fara um (Relatorio)
do formulario desejado!!

Nesse relatorio

Voçe criar como será a estrutura

Escolhie os campos que quer que sejem mostrado no seu relatorio

bom trabalho!!!

Por exemplo, eu crio um formulário com os campos desejados:
Nome, RG, Data de nascimento, cidade, pai, mãe, escolaridade, profissão, endereço e telefone e também um campo texto onde eu possa inserir as declarações. Após isso, eu vinculo este formulário ao relatório desejado?

Sim amigo
depois de ter criado o form
crie o Relatorio (usando assistente de Relatorios e escolha so os campos desejados)
use o campo texto como vai fazer uma nota
ex:
texto(tavares) campo data(aqui e o campo do seu formulario) e assim por diante

Verissimo

Vou enviar-lhe um exemplo para você ver e estudar. Aguarde que posto aqui.

Grande, Vieira!!!
No aguardo!

Vieria estou a fazer um exemplo aqui para nosso amigo
do jeito que ele está a citar aqui no forum
se estiver fazendo um também
me avise!!

O assunto já está a ser tratado, pois a BD contém dados policiais e não pode ser colocada aqui. Obrigado Leam pelo empenhamento que estás a demonstrar. Estou muito satisfeito, brother.

O tópico mante-se em aberto, mas como disse atrás, o assunto está a ser tratado.

fica tranquilho, Vieira, apesar de se tratar de assunto policial, não necessita de sigilo.
Apenas estou tentando criar um modelo para preenchimento automático dos documentos que eu trabalho.
Se puder me ajudar, eu agredço. Estou no aguardo de um modelo.
Também entrarei em contato com Haryshon

O meu esta quase pronto so falta
saber se pode ser liberado para nosso amigo!!

A informação que tinha recebido por MP,dizia que a bd continha dados confidenciais. Se não é assim, postem os vossos exemplos para ajudar o colega. O Harryshon parece que está também a fazer algo, então respeitem os semâforos e não se choquem....rsrsrs

ok vieria
estava doido para mecher no access
so faltava mutivo e esse gostei
de fazer
pequeno exemplo para mostrar ao nosso amigo

Bem, eu havia mencionado isso com o viera, no caso da minha ajuda, esta nao pode ser por aqui, pois o exemplo que tenho trata de dados confidenciais e poderia ajudar o colega com o envio de um pequeno modelo...

Espero os vossos exemplo e caso o colega queira me contacte.. Saudações

Haryshon,envia lá o medelo que tiveres para o nosso amigo, ou dá-lhe um ajuda nisso. Eu reenviei para ti a BD pois está em accdb e eu não tenho. Obrigado.

Amigão assim que conseguir aceder ao hotmail vejo.. não o estou conseguindo por nenhum navegador...

Isso acontece de vez em quando, creio que deve ser no proprio serviço..

Grato

Bom para nosso amigo ter um base como se faz
criei esse pequeno exemplo (2007)
http://dl.dropbox.com/u/25778750/Exemplo%20Relatorio.accdb
http://dl.dropbox.com/u/25778750/Exemplo%20Relatorio.rar

espero ter ajudado!!!

óptimo Leam, mas deves colocar preferencialmente em 2003/XP, pois assim os exemplos ficam disponíveis para todos os membros.

Estava a digitar enquanto o colega leam postava.. mas tai a ideia

Basicamente o que o amigo precisa é mais ou menos assim

No Form

Form de cadastro onde se cadastra o processo e os dados do réu


No relatório
Campos fixos com logo da Delegacia e dados da mesma

Texto no relatório, espaços a serem preenchidos com os dados oriundos do cadastro do réu

O texto seria da seguite forma:


Aos DATA, nesta cidade " & [CampoCidade] & ", na sede do DELEGACIA Distrito Policial, presente a Autoridade Policial, Doutor(a) DELEGADO, comigo Escrivão(ã) de seu cargo ao final assinado(a), aí comparece O(A) INTERROGANDO(A) " & [CampoNome] & ", RG nº. " & [CampoRG] & ", nascido(a) aos " & [CampoDataNascimento] & ", na cidade de " & [CampoCidade] & " filho(a) de " & [CampoPai] & " E " & [CampoMãe] & ", " & [CampoEstadoCivil] & ", " & [CampoGrauInstrucao] & ", " & [CampoProfissão] & ", com endereço à " & [CampoEndereco] & " e telefone nº. " & [CampoTelefone] & ". Depois de cientificado(a) da(s) acusação(ões) que lhe(s) é(são) feita(s) e de seus direitos constitucionais, dentre os quais o de permanecer calado(a), ter assistência de advogado de sua confiança, bem como de familiares, passou o(a) acusado(a) a ser interrogado(a), RESPONDENDO .Nada mais havendo a tratar, determinou a Autoridade que se encerrasse o presente auto que, depois de lido e achado conforme, vai devidamente assinado por todos.


ZZZZZZZZZZZZZZZZZZZZ
Delegado(a) de Polícia ‘Campo Fixo com os dados da Unidade


___________________________________
" & [CampoNome] & "
Interrogando(a)


XXXXXXXXXXX ‘Dados da Unidade
Escrivão(ã) de Polícia

Muito obrigado, pessoal.

vou dar uma estudada e respondo assim que puder.

É exatamente o que eu preciso. Porém, são cerca de trinta modelos diferentes, mas com a mesma qualificão, cabeçalho e rodapé.
Teria que criar um relatório para cada um?

Grande amigos do forum
estou de saida (praticar esporte)
bom trabalho!!!
Veríssiomo
qualquer duvida
meu email
diego-armando-007@hotmail.com

Caro veríssimo eis o modelo...

Solução aplicada:

1 - Criação de uma tabela para os dados da Delegacia (essa é uma informação distinta e não se confunde com a do interrogando.
2 - Retirada dos espaços em nomes da tabela
3 - Modificação de campo com nomes reservados do access (Data, Valor etc)
4 - Criação de uma caixa texto onde comporta o texto do documento, intercalado com informações do interrogando, assim o texto corre de acordo com o tamnho dos dados.. caso uma pessoa tenha nome maior que a outra o texto a acompanha
5 - Criação de caixa texto não acoplada onde serão inseridos via Dlookup os dados da delegacia, estes dados aparecerão fixos para todos os registros e estão no evento ao carregar do form..


http://dl.dropbox.com/u/26441349/EduardoVerissimo.rar

Enjoy!

Muito obrigado a todos pela ajuda. Vou ter que sair agora e em cas eu estudo. Como lá eu não tenho internet, amanhã eu retorno com mais dúvidas.
De antemão, agradeço muito a todos pela força.

Fiz o que me disse, Harysohn, porém, não deu certo. O relatório ficava vazio e na caixa não acoplada aparecia #nome? só.

Amigão não esta a ler todos os post's.. eu lhe enviei o modelo ja pronto

E se na caixa de texto aparece #nome e porque ela tem algo escrito na origem dela..


Saudações

Verissimo voçê esta tentando fazer
outro (com base nesse que mandamos)
Pois os campos estam aparecendo certinho aqui
no que harysonh adaptou!!

Dica.. Leia sempre todos os post's em ordem cronológica desde o último que voce enviou...

AO inserir novas caixa fora as que eu ja havia inserido, tem tambem que inserir os códigos que a fazem popular..

Observe isto!

Harysohn e Leam, eu segui exatamente o que escreveram aqui.
O modelo de vocês ficou muito bom, mas devido à minha experiência, ainda não consegui.

Me envie um modelo em Word de como quer...
Harysohn@hotmail.com

Amigo veríssimo, recebi os doc. hoje não tenho tempo de encontrar uma solucão.. mas amnha te prometo que veejo..

e o outro form dos inqueritos.. deu certo?

Eu tentei, mas não ficou do jeito que eu pretendia, Harysohn.
Com aquele form, eu também pretendia inserir os dados no doc, entendeu? Pois dele sairiam os dados da Delegacia como endereço, telefone e CEP, para serem inserido no cabeçalho e rodapé do referido doc.

Amigão isso está confuso...
Voce tem dois exemplos

1 - o do form inqueritos... Fiz de duas maneira (nenhuma lhe serviu?) porque?
2 - o do Word ainda verei hoje

no inquerito

Coloquei o Dlookup para mostrar uma delegacia específica
no segundo que te enviei, coloquei uma CheckBox que voce seleciona a delegacia que quer que apareca no form inquerito..

As duas funcionaram mostrando a delegacia...

Agora nao estou a entender o que pretende com isso

Quanto ao form inqueritos.. seja especifico no que pretente para que eu possa entender pois não sei mais o que pensar...

Saudações

Olha eu a meter o bedelho...

Um pitaco apenas;

Você já ouviu falar de Mala Direta ?

Já ouviu falar de Mesclagem no Word ?

Veja este exemplo, que através de um template de word já pré-elaborado, você obtem o que quer:

http://dl.dropbox.com/u/771097/AccessWordI.rar

Veja o artigo completo do Roberto Amaral;

http://www.ativoaccess.com.br/mostra.artigo.php?artigo=71

Obrigado pelo Meter o Bedelho Amigão.. ele é sempre bem vindo rsrsrs

No form inquerito ele queria mostrar dados da tbl Delegacia...
O fiz por Dlookup par uma delegacia especifica...

Mas como ele disse que há casos de transferencia e poderia ter que mudar a delegacia..

Então na tbl Delegacia criei um campo: Selecionado (Sim/Não)
e no form Delegacia uma ChckBox para selecionar
Adicionei o Dlookup no Form inqueritos com a clausula Selecionado..

Assim Ao abrir o form inqueritos so mostra a delegacia que estiver selecionada ou seja
a que a pessoa esta trabalhando.. entendi assim... e das duas maneiras deu certo..

Agora ele falou que não consegui e tal.. não estou a entender o que ele pretende..

Aguardo então posicionamento dele quanto a isso

Saudações

Vamos lá verissimo...

Solução aplicada

1 - Criação da TblDelegaciaAtual, onde comportará apenas o registro a ser mostrado no FrmConsultaInqueritos.
** esses dados serão exibidos no FrmConsultaInqueritos via Dlookup
2 - Criação de um Botão no FormDelegacia para Atualizar a TblDelegaciaAtual confome o registro selecionado no FrmDelegacia
3 - Códigos utilizando recordSet via Udate para atualizar os campos na TblDelegaciaAtual de acordo com o registro selecionado no ForDelegacia.. código:


Private Sub btnAtualizarDEPOL_Click()
Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs As DAO.Recordset

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Delegacia.accdb", False, False, "MS Access;PWD=senha")
'Instrução que realiza o update na tblDelegaciaAtual, recebendo os valores do registro atual do frmDelegacia
db.Execute "UPDATE tblDelegaciaAtual SET Delegacia='" & Me.Delegacia.Value & "', Endereco='" & Me.Endereço.Value & "', Telefone='" & Me.Telefone & "'," _
& " CEP='" & Me.CEP & "', Delegado='" & Me.Delegado & "' WHERE Código = 1;"
MsgBox "Registro alterado com sucesso.", vbOKOnly + vbInformation, "Alterado" 'Mensagem avisando da alteração
DoCmd.Close acForm, "frmConsultaInqueritos" 'Fecha o FrmInquerito
DoCmd.OpenForm "frmConsultaInqueritos" 'Reabre o frmInquerito com as informações atualizadas da tblDelegacisaAtual
Set rs = Nothing 'Encerra o RecordSet
Set db = Nothing 'Encerra o BD
ws.Close 'Fecha a WorkSpace

DoCmd.Close acForm, "FrmDelegacia" 'Fecha o frmDelegacia

End Sub


http://dl.dropbox.com/u/26441349/EduardoVerissimo.rar

Saudações...


Ainda nao vi sobre o word, mas estive a ler a materia do amaral e é exatamente aquilo que precisa..

Caro João Paulo

Com relação ao exemplo do Amaral estive estudando e é possivel de fazer o que pretende veríssimo..

Dá um pouco de trabalho mas é perfeitamente possivel..

não tenho tempo de faze-lo.. mas em tendo um tepinho o farei até porque estou implantando algo semelhante na delegacia daqui..

Saudações

Harysohn, com relação ao exemplo que me mandou, ainda não consegui abri-lo e darei uma olhada em casa à noite. Tá correria aqui no trabalho.
Já o modelo do Amaral é extamente o que preciso. O único trabalho é ter que fazer um botão para cada modeo de documento e indicar cada campo de cada documento, mas isso com um pouquinho de paciência dá pra fazer.
Só não entendi como faço para criar o botão que abre o word com os campos já preenchidos, pois queria que a cada pessoa qualificada, criasse um documente diferente que pudesse ser salvo. Também vou dar uma estudada em casa e ver como funcionaa.
Muito obrgiado pela atenção até agora.

Ele ja pode salvar o doc com o nome do Interrogando...
Os botões são o mais fácil...

Mas cada doc que origina o doc a ser criado tem que ser previamente conectado a base de dados..

isso é o mais demorado...

Amanha creio que de pra eu tentar fazer um dos modelos...

Saudações

O exemplo de mala direta do JPaulo é extamente o que eu pretendia. Só não consegui fazê-lo funcionar ainda, mesmo com o modelo do Amaral.

E o outro modelo amigão? o do frmConsultaInqueritos?

Amigão encontrei essa função que pode servir a este proposito.. ainda nao tive tempo de testá-la... assim que possivel faço e dou retorno...




Sub FInsertLine(ByVal PathName As String, ByVal LineToAdd As String, ByVal LineToAddAfter As String)
'
' Insere uma linha em um arquivo de texto após uma linha especificada.
' Se LineToAddAfter está em branco, então adiciona no início do arquivo.
'
Dim f As Integer, F2 As Integer, InLine As String, FName2 As String
Dim Drive As String, Path As String, filename As String, Ext As String
FParsePath PathName, Drive, Path, filename, Ext
FName2 = Drive & Path & Format(Time, "hhnnss") & ".TMP"
f = FreeFile
Open PathName For Input As #f
F2 = FreeFile
Open FName2 For Output As #F2
'
' testa para ver se adiciona no início do arquivo
'
If LineToAddAfter = "" Then
Print #F2, LineToAdd
End If
'
' Copia o arquivo linha por linha
'
Do While Not EOF(f)
Line Input #f, InLine
Print #2, InLine
If LineToAddAfter <> "" Then ' testa se a linha já foi adicionada
If InLine = LineToAddAfter Then ' verifica se chegou à linha fornecida
Print #F2, LineToAdd ' Adiciona a linha
LineToAddAfter = "" ' Previne a adição da linha por várias vezes
End If
End If
Loop
Close #f
Close #F2
'
' Troca o arquivo antigo pelo novo
'
Kill PathName
Name FName2 As PathName
End Sub

Saudações

Qualquer dúvida reabra o tópico. Se resolveu coloque aqui a resolução por favor.

Resolvido