Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Módulo Orçamento 2.0

Fórum para agrupar todas as propostas de modelos de planilhas de Excel que essa comunidade consegue imaginar. Teve uma idéia? Produziu algo bem bacana? Esse é o lugar!

Moderador: Rafael Monteiro

Avatar do usuário
LEANDRO ALVES
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Jul 25, 2010 7:41 pm

Re: Módulo Orçamento 2.0

Mensagem por LEANDRO ALVES »

Bom Dia Klebson,

Teríamos que ver qual é o erro que está dando aí. Eu acabei de baixa o programa aqui e está normal.
Talvez voce não esteja extraindo tudo na mesma pasta. Se for isso dá erro mesmo porque o excel não irá encontrar o banco de dados gerando um erro de conxão.
Provalmente seja isso, tenta aí e qualquer coisa posta aí que a gente tenta resolver.

Abraços


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Seduction
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Dom Jan 13, 2013 8:42 am

Re: Módulo Orçamento 2.0

Mensagem por Seduction »

Bom dia pessoal, estou com um problema...quando vou abrir o modulo orçamento, vem a seguinte mensagem: erro de automação. Erro não especificado. meu sistema é win 7 64 bits e office 2007. Desde já agradeço a atenção e informação.


Avatar do usuário
LEANDRO ALVES
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Jul 25, 2010 7:41 pm

Re: Módulo Orçamento 2.0

Mensagem por LEANDRO ALVES »

Bom dia,

Este erro, provavelmente é por causa da biblioteca do listview ou statusbar que não deve estar registrada corretamente no seu computador.
Abra sua planilha, depois o VBA e vá até o menu ferramentas e depois referências. Veja se tem alguma biblioteca inciada com a palabra AUSENTE.
Se tiver, desmarque e clique em ok. Depois vá até o formulário, na janelinha "Caixa de ferramentas" clique com o botão direito sobre ela e clique em
"Controles Adicionais" e procure por "Microsoft ListView Controrl 6.0 (SP6)" e "Microsoft StatusBar Controrl 6.0 (SP6) marque suas caixinhas e clique em
OK. Depois disso é só adicioná-los ao projeto, deixando sua aparecia conforme a figura da priemria página. Mude o nome do Listview para "lstvOrç" e do
StatusBar para "stbOrç" e pronto. Só isso. :lol:

Espero ter ajudado. ;)

Abraços


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Módulo Orçamento 2.0

Mensagem por Mauro Coutinho »

Bom dia, não sei se seria o caso, mas como citou que está utilizando windows 64 bits, existem algumas incompatibilidades das bibliotecas se o Modelo foi feito no 32 bits.

Erros (64bits) - Aplicativo de Cadastro
viewtopic.php?f=5&t=1179&p=5951&hilit=64+bits#p5951

[]s


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
LEANDRO ALVES
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Jul 25, 2010 7:41 pm

Re: Módulo Orçamento 2.0

Mensagem por LEANDRO ALVES »

Tem toda razão Mauro,

Eu não tinha atentado para o detalhe porque ainda não enfrentei tal problema :shock: .
Realmente, eu fiz o aplicativo no Windows 7 Ultimate 32 bits.
Muito obrigdo por observar. :lol:

Abraços


FMAnton
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Jan 15, 2013 8:06 am

Re: Módulo Orçamento 2.0

Mensagem por FMAnton »

Bom dia Leandro Alves.

Para começar, muito boa sua planilha, me ajudou muito com meu serviço, porem esta nova versão não estou conseguindo acessar, pois da erro de compilação, dizendo ser impossivel localizar o projeto ou a biblioteca.. Desculpa pois sou leigo em VBA, e estou aprendendo um pouco mais atraves de sites...

Muito obrigado ;)


Avatar do usuário
LEANDRO ALVES
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Jul 25, 2010 7:41 pm

Re: Módulo Orçamento 2.0

Mensagem por LEANDRO ALVES »

Bom dia amigo,

Talvez a citação abaixo resolva o seu problema.
LEANDRO ALVES escreveu:Bom dia,

Este erro, provavelmente é por causa da biblioteca do listview ou statusbar que não deve estar registrada corretamente no seu computador.
Abra sua planilha, depois o VBA e vá até o menu ferramentas e depois referências. Veja se tem alguma biblioteca inciada com a palabra AUSENTE.
Se tiver, desmarque e clique em ok. Depois vá até o formulário, na janelinha "Caixa de ferramentas" clique com o botão direito sobre ela e clique em
"Controles Adicionais" e procure por "Microsoft ListView Controrl 6.0 (SP6)" e "Microsoft StatusBar Controrl 6.0 (SP6) marque suas caixinhas e clique em
OK. Depois disso é só adicioná-los ao projeto, deixando sua aparecia conforme a figura da priemria página. Mude o nome do Listview para "lstvOrç" e do
StatusBar para "stbOrç" e pronto. Só isso. :lol:

Espero ter ajudado. ;)

Abraços
Abraços


FMAnton
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Jan 15, 2013 8:06 am

Re: Módulo Orçamento 2.0

Mensagem por FMAnton »

Olá, desculpa emcomodar novamente.
Consegui abrir, porem agora está dando erro na hora de grava.
A msg é a seguinte. Erro no tempo de execução '13'
Tipos incompativeis

Muito Obrigado pela ajuda


Avatar do usuário
LEANDRO ALVES
Manda bem
Manda bem
Mensagens: 161
Registrado em: Dom Jul 25, 2010 7:41 pm

Re: Módulo Orçamento 2.0

Mensagem por LEANDRO ALVES »

Amigo,

Só com essa informação fica meio difícil ajudar. Tem como detalhar melhor?
Em qual campo está dando este erro? Se possível manda um print da tela com o erro.

Abraços


FMAnton
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Jan 15, 2013 8:06 am

Re: Módulo Orçamento 2.0

Mensagem por FMAnton »

Não consegui anexar , mas estou marcando onde está dando o erro

Private Sub btnGravar_Click()

If Me.txtNome = Empty Then
MsgBox "Digite o nome do cliente.", vbExclamation, "Atenção"
Me.txtNome.SetFocus
Exit Sub
End If
If Not Me.lstvOrç.ListItems.Count > 0 Then
MsgBox "É necessário incluir pelo menos um " & Chr(13) _
& "item para salvar o orçamento.", vbExclamation, "Erro"
Me.txtQtde.SetFocus
Exit Sub
End If

If Inc = True Then
rsOrçDet.AddNew
Else
rsOrçGrad.Close
SqlOrçGrad = "DELETE FROM tbOrçamento_Grade WHERE Nro_Orçamento = " & NroOrç 'Apaga os registros antigos
rsOrçGrad.Open SqlOrçGrad, cn, adOpenKeyset, adLockOptimistic 'pra incluir os dados atualizados

SqlOrçGrad = "SELECT * FROM tbOrçamento_Grade"
rsOrçGrad.Open SqlOrçGrad, cn, adOpenKeyset, adLockOptimistic

End If

rsOrçDet(1) = Date
rsOrçDet(2) = Me.txtNome

If Me.optAcr.Value = True Then
rsOrçDet(3) = 1
Else
rsOrçDet(3) = 3
End If
If Me.txtPercentual <> Empty Then
rsOrçDet(4) = CDbl(Left(Me.txtPercentual, Len(Me.txtPercentual) - 1))
Else
rsOrçDet(4) = 0
End If
rsOrçDet(5) = TotalBruto
rsOrçDet(6) = CDbl(Me.txtTotal) 'Total líquido
rsOrçDet(7) = Me.txtObservaçoes
rsOrçDet(8) = Me.txtTelefone
rsOrçDet.Update

For i = 1 To Me.lstvOrç.ListItems.Count
With Me.lstvOrç
rsOrçGrad.AddNew
rsOrçGrad(0) = NroOrç
rsOrçGrad(1) = .ListItems(1)
rsOrçGrad(2) = .ListItems(i).ListSubItems(1)
rsOrçGrad(3) = CDbl(.ListItems(i).ListSubItems(2))
rsOrçGrad(4) = CDbl(.ListItems(i).ListSubItems(3))
rsOrçGrad(5) = CDbl(Left(.ListItems(i).ListSubItems(4), _
Len(.ListItems(i).ListSubItems(4)) - 1))
rsOrçGrad(6) = CDbl(.ListItems(i).ListSubItems(5))
rsOrçGrad(7) = CDbl(.ListItems(i).ListSubItems(6))
rsOrçGrad(8) = CDbl(.ListItems(i).ListSubItems(7))
rsOrçGrad.Update
End With
Next i
If Inc = True Then
rsNro.AddNew
rsNro(0) = NroOrç
rsNro.Update
End If

'Inc = False
LimpaControles
rsNro.MoveLast
NroOrç = rsNro(0).Value + 1
Me.stbOrç.Panels(1) = "Nro Orç.: " & Format(NroOrç, "0,000")
iCancel = 0
MsgBox "Orçamento salvo com sucesso.", vbInformation, "Módulo Orçamento 2.0"
End Sub
Sub LimpaControles()

Me.txtQtde = Empty
Me.txtProduto = Empty
Me.txtCusUnit = Empty
Me.txtCusTotal = Empty
Me.txtMargem = Empty
Me.txtPreUnit = Empty
Me.txtPreTotal = Empty
Me.txtLucroProd = Empty
Me.lstvOrç.ListItems.Clear
Me.txtNome = Empty
Me.txtTelefone = Empty
Me.txtObservaçoes = Empty
Me.txtPercentual = Format(0, "0.00") & "%"
CalcTotal
Me.txtQtde.SetFocus

End Sub

Para meu uso, não seria necessário o lucro.. Mesmo assim agradeço desde já.
E novamente, Parabens pelo seu trabalho.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder