[Resolvido]Imprimir com Formulário do Exemplo do Piloto

Boa noite
Com este código num botão, e dois ficheiros DLL, consigo imprimir e ao mesmo tempo criar ou não o mesmo relatório em PDF, e guarda-lo numa pasta chamada PDF na mesma diretoria da BD.

Agora estou a tentar aplicar com o menu da imagem anexa, e não estou a conseguir.

If MsgBox("Confirma a Impressão da Escala", vbYesNo, "Escala") = vbYes Then
DoCmd.OpenReport "RelTurnos", acPreview
If MsgBox("Criar Documento em P. D. F. ? ", vbYesNo, "P. D. F.") = vbYes Then
Dim blRet As Boolean
Dim Caminho As String
Caminho = CurrentProject.path & "\PDF\"
blRet = ConvertReportToPDF("RelTurnos", vbNullString, Caminho & "Escala "".PDF", False, False)
On Error Resume Next 'erro 2501 caso você cancele a impressão
If err = 2501 Then
err.Clear
DoCmd.Close
End If
Else
End If
End If

Boas Assis, de qual exemplo está a falar?

Boas Assis, vi o menu.. de detalhes do que pretende..

Cumprimentos

Desculpa a intromição Piloto,legal aquele menu,mas onde esta ele.

Obrigado amigo.

Boas Kaynnan, está onde o colega assis o encontrou... Onde??? Ó Céus.. onde?????

No repositório.. hehehe


Mas acabei de postar um sistema base com toda inicializaçao ja pronta, bastanto adicionar os forms de teu sistema.
Ja está totalmente funcional....


http://maximoaccess.forumeiros.com/t11194-sistema-base-para-confeccao-de-sistemas#88114

Ó céus, Piloto baixei a base para sistemas,clico no SysBase,faz o vinculo mas não abre,fica o ícone do access na barra embaixo mas não vem na tela.Ò Deus que fazer....HEheheheh

Hum.. verei isso...

Boas Kaynan, esqueci-me de alterar o nome do Back-End na tabela: tblCaminhoBe...

Esta ainda como SysSchool, mude para SysBase... ou o nome do seu sistema... Tem que estar com o mesmo nome do Back End.

Cumprimentos.

Vou postar novamente no repositorio.. era algo com a função checa vinculo.. Ja corrigi.

Assis em 30 minutos estará disponivel novo link corrigido um pequeno erro na função checaVinculo.


Quanto a origem deste tópico, dê detalhes do teu problema.

Cumprimentos.

Piloto não consigo achar no repositorio aquele menu da imagem enviada pelo Assis,que nome tem o dito cujo.

O SysBase continua do mesmo geito,baixei de novo mas não abre,esta igual ao primeiro.

Até mais.

Moço.. vou tirar o Link de la..
ainda esta carregando o novo.. como o nome e o mesmo.. o link anda esta com o velho...
baixe amanha...

Ja está corrigido...

Quanto ao do Assis... e esse menu que esta ai no SysBase... porem o Assis colocou um Fundo e tal..
ai voce coloca o que quiser.. no Mr. Google tem varios tipos de fundo. Compreendeu?

Compreendido moço,bão demais.Ma não se e.r.r.i.t.e,heheheh

Eita....acho que vou almoçar......risos !!! Tá demorando muito.....

Segundo informações extra-oficiais do Mr. DropBox... Faltam exatamente 1 Min Letf...

Mas esse 1 min do Drop acho que demora ainda uns 20 minutos hehehe


Abraços.

Piloto heheheh,caiu sem paraquedas,não funciona esta com o mesmo problema.

Ow Kainan.. doa uma internet mais veloz ai pra mim que resovo rapido isso.. hehehe

Retirarei o topico da sala, quando estiver carregado posto novamente.

Cumprimentos.

Teste agora Kaynnan e de o retorno.

Cumprimentos.

https://dl.dropbox.com/u/90217826/Doc1.docx

Agora deu certo,no cadastro da empresa que da esse erro.

abç.

Fala qual o erro Kaynan.. estou com problemas para fazer Downloads e Uploads..

Kaynan Amigao... uma msgBox mais elucidadtiva do que esta voce não vai encontrar em lugar nenhum..

Ela fornece:
1- O numero do Erro
2 - O comando em que aconteceu o erro (Botao)
3 - A linha!!!! em que aconteceu
4 - A Descricao do Erro

Amigão de posse destas informações, pare e pense um pouco... tente resolver... Você já tem conhecimento suficiente pra isto..

Além do que o form de empresa que esta ai é meramente inlustrativo...
O principal que eu quis mostrar no sistema está funcionando.


Cumprimentos.

Diz assim ao clicar no cadastro da empresa.
Erro Gerado no :frmEmpresa(cmdIncluirTipo_Click)
Erro Número:2220
Linha.30
Descrição o MIcrosoft access não pode abrir o arquivo D:/Access/Projetos/SysSchool/SysScool_1png.

é por ai.

Pois é... Então leia o


Post 22

Boa tarde, creio que seja só trocar o caminho da imagem!!!

Erro Gerado no :frmEmpresa(cmdIncluirTipo_Click)
Erro Número:2220
Linha.30
Descrição o MIcrosoft access não pode abrir o arquivo D:/Access/Projetos/SysSchool/SysScool_1png.

pelo caminho da imagem a qual você quer.

att,

Isso ai Anderson,eu ja tinha resolvido o problema,só falei pro Piloto porque algum colega poderia não saber resolver,foi muito bom você ter posto ai a solução.

Obrigado tudo de bom.

Estão de parabéns pela vossa interação, Este é o espírito do fórum.

Como este form não é essencial ao sistema, o coloquei apenas porque a imagem no menu depende da tblEmpresa, para que o a empresa que rodara o sistema ali coloque sua logo.

Sucesso!!!

Anderson e Kaynan...

Vou lhes dar uma dica que valerá para aumentar vosso senso critico de programação.

Na realidade este erro não deveria ter ocorrido.. porque?

Imagine.. voce vai distribuir seu sistema com sua logo... e na tabela vai estar o caminho da logo no teu HD, então na hora que o usuario abrir o form dará este erro: 2220.

Para que isto não ocorresse, eu coloquei o tratamento de erros... Então não basta voce alterar o caminho.. Deves descobrir a origem do erro, pois um sistema eficiente deve cercar os erros todos os tipos de erros possiveis de ocorrer...

Então.. qual a origem deste erro e porque o mesmo não foi tratado posto que o sistema tem um eficiente sistema de tratamento de rros?

Observe o código:

Código:


Private Sub Form_Current()
10    On Error GoTo TrataErro
      Dim MSG As String

20        If IsNull(Me.LocalFoto) = False Then
30            Me.Foto.Picture = Me.LocalFoto
40        Else
50            Me.Foto.Picture = ""
60        End If

70    Exit Sub
      '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      'Tratamento de Erros
      '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
80        DoCmd.Hourglass False
90        DoCmd.Echo True
100  Exit Sub
TrataErro:
110      Select Case err.Number
              Case 220
120              Resume Next
130          Case 5
140              Exit Sub
150          Case Else
160              DoCmd.Hourglass False
170              DoCmd.Echo True
180                  MsgBox "Erro Gerado no :" & Me.Name & " (form_Current)" _
                      & vbNewLine & "Erro Número: " & err.Number _
                      & vbNewLine & "linha: " & Erl _
                      & vbNewLine & "Descrição: " & err.Description _
                      & vbNewLine & "Por favor contate o Administrador de Sistema.", vbCritical, err.Number & ", linha:" & Erl
190      End Select
End Sub


Observe que eu inadvertidamente errei ao colocar o erro no tratamento, era pra ter colocado 2220... e coloquei apenas 220...

Basta alterar e mesmo se o caminho estiver errado não dará erro.

Tentem desenvolver este senso critico, pois não basta apenas resolver o erro e sim tambem suas causas.

Cumprimentos.

Agradecido pelas explicações mestre,aos poucos a gente vai aprendendo, e é com professores como você e outros, que com certeza vamos adquerir bastante conhecimento nesta área que é complicada mas muito facinante.Obrigado por tudo Piloto.

"Mas quando surgirem outras dúvidas, estaremos aqui pedindo socorro".

Sempre a dispossição estamos... O Exemplo foi atualizado, fiz uma correção importante no modulo de Backup, observado pelo amigo Assis.

Cumprimentos.

Assis este tópico se disvirtuou um pouco da sua dúvida original...

Como andas esta dúvida?

Ja resolveste?

Cumprimentos.

Boa noite Harry

A minha duvida está igual como na mensagem Nº 1



Quanto ao backup depois de alterar apara sua informação.

Dim NomeBD As String
Call CarregaIcone(Me)
NomeBD = Mid(CurrentProject.Name, 1, Len(CurrentProject.Name) - 6) & "_be.accdb"
StrCaminhoBD = CurrentProject.Path & "\Base" & NomeBD

Deu o erro: 53-Path not found

Obrigado

Boas Assis... não alterou de maneira correcta...
Path = Caminho..

O Código não está encontrando o caminho no HD.. Porque?

Simples, o be fica em uma sub-pasta dentro da pasta do sistema

PastaDoSistema\Base

Portanto depos da pasata Base deves colocar a barra:

StrCaminhoBD = CurrentProject.Path & "\Base\" & NomeBD

Quanto a sua duvida deste tópico de detalhes... pois não estou a entender.

Abraços.

Aqui estou outra vez

depois de

StrCaminhoBD = CurrentProject.Path & "\Base\" & NomeBD

Erro

70 - Permission denied


Se fizer o Debug esta linha fica a amarelo

Private Sub dsoFramer_OnFileCommand(ByVal Item As DsoFramer.dsoFileCommandType, Cancel As Boolean)

Assis, Veje suas referencas e desmarque as ausentes.

Cumprimentos.

Apague o form do word...

Piloto sei que talves esteja sendo incomodativo,mas aquele link esta dando erro 404.
Amanhã talvez funcione,ja que voce falou que tua net virou tartaruganet rsrsrs.

Tá com dó de tartaruga? ela ganha de longe da minha net...

Baixe amanha.. Resolvi esses pequenos bug's...
Na realidade não é propriamente erro.. é que retirei de um sistema maior entende...

Cumprimentos.

Piloto,continua dando erro 404 do Sistema Base.
Tenho uns amigos que tão tentando e não conseguem.

Abç.

A net ta horrivel assim que tive ok o link eu te aviso

Cumprimentos.

Piloto vou abrir um novo tópico,pra voce me dar umas dica de como eu usar o sistema base,ja importei todos os formulário,tabelas e tudo mais para o sistema,agora quero saber como faço pra quando clicar por exemplo em relatório, abrir o relatório que eu escolher e mesmo com os formularios.

Abç.

piloto poderia me passar o link do Syschool ? procurei no repositorio nao achei :/

Kaynan.. Vou retirar o link do repositorio... Não tenho nem como prosseguir a ajuda se nem seque o arquivo estou conseguindo upar... estou desde ontem pra upar 3 mb e infelizmente nao sei mais o que fazer... quando estou conseguindo minhas usb falham e me desconectam... vou resolver isto primeiro e volto ao forum.. pois nao estou conseguindo nem ajudar e tampouco trabalhar...

conto vom vossa compressão...

Assim que resolver meus problemas aqui. volto...

Cumprimentos.

Arthur... O Sistema base é apenas a parte funcional de inicio de um sistema... para facilitar o desenvolvimento de um sistema.. pois ja tem toda a inicializacao pronta.

O SysSchool é comercial e não posso disponibiliza-lo sem custo

Conto com vossa compreensão

KAynar, no menu principal na aba ferramentas tem o item setup, clique abrira uma imputbox.. Senha 221422....

Abrira um form onde do lado esquerdo altera o nome do menu, do lado esquerdo clica e pode alterar o nome do objeto.. e bam facil...

1 - Nome a ser exibido : Cadastro de funcionario
2 - Acao: Openform
3 - Nome original: frmFuncionarios.... etc..

E por ai.

Cumprimentos.

Assis, Por Favor ...de detalhes da tua duvida que é origem deste tópico que já está por demais desvirtuado..

Amigos novas duvidas sobre o sysbase,.. abram um topico

Cumprimentos.

Vamos la se encerramos este tópico:

Kaynan e demais interessados no link:
Link Disponível (com correções do backup e etc.)

Assis:
O menu tem 3 opções: 1 - OpenForm 2 - OpenReport 3 -RunCode
O que voce necessita é o: RunCode

Abra o Setup, Senha 22142, clique na lista a esquerda em Sair, exibira na outra lista a opção: Sair do sistema... Observe que está como parametro
RunCode. Semelhante ao comando sair voce fará com o teu codigo.

No Aba Menu onde ficam os forms de menu, abra o módulo SampleCodes Observe que tem a função para o botao Sair:

Código:


Sub ExitAccess()
DoCmd.Quit acQuitSaveAll
End Sub


Faça uma funcão para o Teu código, cole neste móulo e chame conforme se esta chamando a função ExitAccess

Arthur:
O SysSchool é comercial e não o posso disponibilizar gratuitamente, no SysBase tem apenas as funcionalidades de inicialização que utilizo no SysSchool.


Se vossas Duvidas forem resolvidas com as dicas acimas, favor encerrar o post. Novas dúvidas.. Novo Tópico.

Cumprimentos.

Piloto de minha parte obrigado por tudo.com essa ultima dica ja esclareceu minha dúvida.
Obrigado e bom fim de semana.Valeu Mestre amigo.

Boa noite Harry

Ao fazer o backup para o pendrive, no meu caso E:\, na pendrive não aparece ficheiro nenhum.
Mas vai parar sempre a pasta backup da BD.
Obrigado

Verei logo mais assis.. estou a voltas com um pequeno problema aqui

Cumprimentos.