[Resolvido]Origem consulta de dados odc

Já não cheguei a tempo e o tópico anterior encerrou. Ainda tenho uma dúvida e penso que muita gente a deve ter:

A minha ligação ODC ao documento Word deve ser copiada para o mesmo directório da aplicação e distribuida ou no computador de terceiro ela é restabelecida? Era essa a minha grande dúvida!

Ligações ODBC quando mudam de lugar perdem a ligação, têm de ser refeitas.

Veja se ajuda, Word não é a minha area;

http://www.keyongtech.com/3688346-word-mail-merge-automation

http://www.keyongtech.com/1501810-access-xp-automation-of-word

Obrigado

Mestre

Não sei se é aqui o lugar próprio para isso, mas gostaria muito de ter uma apreciação sua ao meu trabalho se não for incómodo, claro!

Se aceitar envio-lhe o link para download.

Amigão bom dia;

Não faço esse tipo de trabalho, mas pode sempre colocar em site publico para as feras apreciarem e opinarem.

Bom Dia Mestre e amigos deste forum

Agradeço a sua resposta mas, nem me atreveria a pedir-lhe para apreciar o trabalho em termos profundos, pois tem mais que fazer como é obvio, a ideia foi apenas dar uma vista de olhos no layout em geral e opinar, pois o programa é longo e extenso e não faria sentido algum pedir uma análise ao código, etc.

De qualquer forma aqui fica para quem quizer.

http://www.easy-share.com/1910952984/EasyAdvo.zip

Aparência, Interface e Layout, nota 10.

Numa rápida análise aos códigos, detectei:


O Formulário "anotações subformulario"



Não existe nenhuma caixa de texto com o nome de "txt_Email"
O Private Sub imgcorreio_Click() faz referência.

.......................................................................

Formulário "frm1"

Não existe o CtlSeparador77.txt_Anotação
O Private Sub imgcorreio_Click() faz referência.

.......................................................................


Formulário "frm24"

Esta caixa não existe e tem dois End Sub seguidos:

Private Sub txt_Email_Click()
On Error Resume Next
Dim msg, Style, Title
msg = "Por favor preencha um email válido..."
Style = "vbInformation"
Title = "Erro"
If IsNull(Me.txt_Email) Then
msg = MsgBox(msg, vbInformation, Title)
Else
Const SW_SHOW = 3

ShellExecute Me.hwnd, "open", "mailto:" & txt_Email, vbNullString, vbNullString, SW_SHOW
End If
End Sub

......................................................................


Formulário "frm23"

Dois End Sub seguidos.


......................................................................


O módulo "mdlExplorerForm" tem erro na linha:

Dim loclDir As clsDir

......................................................................

O módulo "modReportToPDF" tem erro na linha:

Set clsDialog = New clsCommonDialog, falta um modulo de Classe.

......................................................................

O Formulário "Principal" tem erro aqui:

Private Sub Comando3_Click()
Me.txtRuta = EscogeFichero(1)

A função EscogeFichero existe duas (2) vezes.


......................................................................

O Formulário "FrmEjemplo" tem erro:

A Me.Lista1.AddItem não existe.

......................................................................

O Formulário "frmverprocessual" tem erro:

O Me.Lista20.Column(0) não existe.

......................................................................

Mestre:
Quero expressar-lhe a minha profunda gratidão por ter pausado um pouco nos seus afazeres e ter tido amabilidade de dar uma vista de olhos no meu trabalho. Agradeço as observações que fez, pois vindas de sí constituem um estímulo que o Mestre passa ao aluno, dando-lhe força para continuar e aperfeiçoar-se. Passei meses no desenvolvimento desta aplicação e assumi uma responsabilidade que, se não fosse com a sua ajuda, jamais cumpriria os prazos impostos. Passei horas a verificar e analisar erros no código para que o Mestre em meia dúzia de minutos descobrisse as falhas apontadas. De qualquer forma o fgormulário anotações e ver processuais já não fazem parte do projecto e nãp podem ser acionados em run time, mas constitui uma falha te~los compilados. As restantes obervações já as corrigi.
Renovo aquilo que já disse noutro fórum; Só os verdadeiros sábios, sabem ser humildes! Que todos saibam apreciar a ajuda que generosamente nos presta aos aflitos que aqui aparecem. Já reparei que na generalidade e comigo incluído ninguém fica dias à espera de obter uma pronta solução. Por isso aquilo que disse acima aplica-se sem dúvida nenhuma ao seu carácter.

Muito, muito obrigado