Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Módulo Orçamento 2.0
Moderador: Rafael Monteiro
- LEANDRO ALVES
- Manda bem
- Mensagens: 161
- Registrado em: Dom Jul 25, 2010 7:41 pm
Re: Módulo Orçamento 2.0
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
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
Re: Módulo Orçamento 2.0
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.
- LEANDRO ALVES
- Manda bem
- Mensagens: 161
- Registrado em: Dom Jul 25, 2010 7:41 pm
Re: Módulo Orçamento 2.0
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.
Espero ter ajudado.
Abraços
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.
Espero ter ajudado.
Abraços
- Mauro Coutinho
- 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
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
Erros (64bits) - Aplicativo de Cadastro
viewtopic.php?f=5&t=1179&p=5951&hilit=64+bits#p5951
[]s
- LEANDRO ALVES
- Manda bem
- Mensagens: 161
- Registrado em: Dom Jul 25, 2010 7:41 pm
Re: Módulo Orçamento 2.0
Tem toda razão Mauro,
Eu não tinha atentado para o detalhe porque ainda não enfrentei tal problema .
Realmente, eu fiz o aplicativo no Windows 7 Ultimate 32 bits.
Muito obrigdo por observar.
Abraços
Eu não tinha atentado para o detalhe porque ainda não enfrentei tal problema .
Realmente, eu fiz o aplicativo no Windows 7 Ultimate 32 bits.
Muito obrigdo por observar.
Abraços
Re: Módulo Orçamento 2.0
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
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
- LEANDRO ALVES
- Manda bem
- Mensagens: 161
- Registrado em: Dom Jul 25, 2010 7:41 pm
Re: Módulo Orçamento 2.0
Bom dia amigo,
Talvez a citação abaixo resolva o seu problema.
Talvez a citação abaixo resolva o seu problema.
AbraçosLEANDRO 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.
Espero ter ajudado.
Abraços
Re: Módulo Orçamento 2.0
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
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
- LEANDRO ALVES
- Manda bem
- Mensagens: 161
- Registrado em: Dom Jul 25, 2010 7:41 pm
Re: Módulo Orçamento 2.0
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
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
Re: Módulo Orçamento 2.0
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.
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.