Abçs.
Sistema de Controle de Vendas, Estoque e Financeiro
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
- Mensagem nº51
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Abçs.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº52
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº53
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
- Mensagem nº54
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Assim:
https://dl.dropboxusercontent.com/u/90217826/Vendas1.zip
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº55
Re: Sistema de Controle de Vendas, Estoque e Financeiro
É isso mesmo que eu quero, mas, tem como eu digitar o nome inteiro do produto?
Exemplo:
Em vez de : ArrozCalifórnia seja : Arroz Califórnia
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
- Mensagem nº56
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Assim amigo.
https://dl.dropboxusercontent.com/u/90217826/Vendas1.zip
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº57
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
- Mensagem nº58
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Abçs.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº59
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Quando abro o formulário aparece a barra abaixo escrito "Modo formulário". Será que tem como tirar essa barra?
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº60
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Cláudio Machado- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1636
Registrado : 17/03/2011
- Mensagem nº61
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Abra o seu sistema mantendo pressionada a Tecla "Shift" esquerda.
1 - Vá em arquivo > Opções
2 - Na guia esquerda da tela, clique me "Banco de Dados Atual", desmarque a opção Exibir Barra de Status.
Saudações.
.................................................................................
" Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus, morreu de braços abertos."
Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
Não esqueça de clicar no Joinha para agradecer a dica que solucionou seu problema.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº62
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº63
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Fiz um instrução SQL para uma ListBox e estava funcionando perfeitamente, mas quando coloquei um filtro para filtrar os clientes pela empresa logada, não aparece nenhum cliente na ListBox.
Será o que esta de errado?
- Código:
Dim SQL As String
SQL = "SELECT tblClientes.Codigo, tblClientes.DataCadastro, tblClientes.Nome, " _
& " tblClientes.Pessoa, tblClientes.Doc1, tblClientes.Doc2, tblClientes.Endereco, " _
& " tblClientes.Numero, tblClientes.Complemento, tblClientes.Bairro, tblClientes.CEP, " _
& " tblClientes.Cidade, tblClientes.UF, tblClientes.Telefone, tblClientes.Celular, " _
& " tblClientes.Email, tblClientes.Situacao, tblClientes.Empresa FROM tblClientes " _
& " ORDER BY tblClientes.Nome WHERE (((tblClientes.Empresa) Like [Formulários]![frmListaClientes]![txtEmpresa] & '*';"
Me.lstClientes.RowSource = SQL
Me.lstClientes.Requery
Alguém pode me ajudar?
Obrigado.
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Cláudio Machado- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1636
Registrado : 17/03/2011
- Mensagem nº64
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Não se pode, mas não seria uma dúvida a cada tópico?
De qualquer maneira, seria ideal postar esta parte do seu sistema pra gente analisar, fica mais fácil.
.................................................................................
" Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus, morreu de braços abertos."
Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
Não esqueça de clicar no Joinha para agradecer a dica que solucionou seu problema.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº65
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Me corrija se eu estiver errado. A sala de Projetos em Desenvolvimento é para desenvolver o sistema completo, no meu pensar ela deve tirar dúvidas sobre todos os assuntos relacionado ao projeto em desenvolvimento.
Bom eu disponibilizando o Banco de dados, sendo que o erro é no form "frmListaClientes".
A versão do Banco de Dados é Access 2007.
Desde meus sinceros Obrigados.
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº66
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Cláudio Machado- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1636
Registrado : 17/03/2011
- Mensagem nº67
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Claro você está coberto de razão, todas as dúvidas devem ser tiradas até o fim.
.................................................................................
" Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus, morreu de braços abertos."
Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
Não esqueça de clicar no Joinha para agradecer a dica que solucionou seu problema.
Cláudio Machado- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1636
Registrado : 17/03/2011
- Mensagem nº68
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Tirando uma DLL chamada Wkimsgrv.dll que estava com a referência Ausente e eu removi a referência para poder abrir o form, funcionou perfeitamente.
.................................................................................
" Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus, morreu de braços abertos."
Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
Não esqueça de clicar no Joinha para agradecer a dica que solucionou seu problema.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
- Mensagem nº69
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº70
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Esta pesquisando corretamente, mas porque não aparece os clientes ao abrir o formulário?
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº71
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Senda a Empresa que contem dados cadastrados é Odenir da Neves Szervinsks.
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
- Mensagem nº72
Re: Sistema de Controle de Vendas, Estoque e Financeiro
https://dl.dropboxusercontent.com/u/90217826/Banco%20de%20Dados%20-%20Copia.zip
Última edição por Kaynan em 16/5/2014, 20:52, editado 1 vez(es)
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº73
Re: Sistema de Controle de Vendas, Estoque e Financeiro
O link esta quebrado.
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
- Mensagem nº74
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº75
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Qual nova duvida surgir eu retorno.
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº76
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Surgiu uma nova questão.
Fiz um controle de Parcelas de Pagamentos de Honorários Contabeis, na empresa tem cerca de 200 clientes e por sua vez cada cliente efeito 12 vezes ( cada inicio de ano é renovado o contrato e é gerada novas parcelas).
O que eu quero, se o cliente tiver parcelas em aberto, não permitir a emissão de novas parcelas.
Peguei alguns exemplos na internet, mais não deu certo. Eu estava tentando usar Dlookup, mas não sei se esta correto o codigo.
- Código:
Private Sub cboSituacao_BeforeUpdate(Cancel As Integer)
If DLookup("Codigo", "tblReceitas", "Nome ='" & Me!txtNomeCliente & "' and Situacao='" & Me!cboSituacao & "'") Then
If MsgBox("Não pode ser geradas novas parcelas para o cliente selecionado, pois há contas em aberto.", "Atenção")
End If
End Sub
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
rdrck- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1011
Registrado : 11/03/2014
- Mensagem nº77
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Creio que a função DLookUp é adequada, porém, do jeito que está montada, apenas exibirá a mensagem "Não pode...".
Se o seu sistema gera automaticamente as parcelas, elas continuarão sendo geradas.
Se forem geradas manualmente, poderia acrescentar um código para bloquear o(s) campo(s) geradores da parcela.
Só um porém, não precisa do If antes da MsgBox.
.................................................................................
Meu Programa / OS:
Access 2010 - Windows 10.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº78
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
rdrck- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1011
Registrado : 11/03/2014
- Mensagem nº79
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Meu Programa / OS:
Access 2010 - Windows 10.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº80
Re: Sistema de Controle de Vendas, Estoque e Financeiro
- Código:
Private Sub cmdIncluir_Click()
Dim i As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrParc As Double
Dim rsParc As DAO.Recordset
'Preenche variáveis
StrValorParc = Me.txtValorReceita
StrParc = StrValorParc
'Cria o recordset
Set rsParc = CurrentDb.OpenRecordset("tblReceitas", dbOpenDynaset)
'Popula o Recordset
With rsParc 'Selecona o recordset
For i = 1 To Me.txtNrParcelas 'Loop de 1 até o total de parcelas
StrDateAdd = DateAdd("m", i, Format(Me.txtDataVencimento.Value, "dd/mm/yyyy")) 'data do vencimento
.AddNew 'Adiciona e popula o novo registro
.Fields("CodigoConta") = Me.txtCodigoConta.Value
.Fields("DesConta") = Me.txtConta.Value
.Fields("Documento") = Me.txtDocumento.Value
.Fields("DtLancamento") = Me.txtDataLanc.Value
.Fields("DtAccesso") = Me.txtDataAcesso.Value
.Fields("CodigoCentro") = Me.txtCodigoCentro.Value
.Fields("DescCentroCusto") = Me.txtCentro.Value
.Fields("DescricaoReceita") = Me.txtDescricao.Value
.Fields("CodigoCliente") = Me.txtCodigoCliente.Value
.Fields("DesCliente") = Me.txtNomeCliente.Value
.Fields("NrParcelas") = "Parcela: " & i & "/" & Me.txtNrParcelas.Value
.Fields("ValorParc") = StrParc
.Fields("DataVencimento") = StrDateAdd
.Fields("Situacao") = Me.cboSituacao.Value
.Fields("Usuario") = Me.txtUsuarioLogado.Value
.Fields("CodigoEmpresa") = Me.txtCodigoEmpresa.Value
.Fields("DescEmpresa") = Me.txtEmpresa.Value
.Fields("MesAno") = "Ref.: " & Format(Me.txtDataVencimento.Value, "mm/yyyy") & ""
.Update 'grava as informações na tabela
Next i 'próximo registro
End With 'Fim daseleção da tabela
'Me.Lista29.Requery
'DoCmd.Close acForm, "frmLancamentoDespesa"
'Fecha o recordset
Set rsParc = Nothing:
Close
End Sub
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
rdrck- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1011
Registrado : 11/03/2014
- Mensagem nº81
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Então, poderia tentar o seguinte, no evento Após Atualizar da cboSituacao:
If DLookup("Codigo", "tblReceitas", "Nome ='" & Me!txtNomeCliente & "' and Situacao='" & Me!cboSituacao & "'") Then
MsgBox("Não podem ser geradas novas parcelas para o cliente selecionado, pois há contas em aberto.", "Atenção")
Me.cmdIncluir.Enabled = False
End If
.................................................................................
Meu Programa / OS:
Access 2010 - Windows 10.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº82
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
rdrck- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1011
Registrado : 11/03/2014
- Mensagem nº83
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Se tiver resolvido tudo, só não esqueça de clicar no [Resolvido].
Sucesso.
Valeu.
.................................................................................
Meu Programa / OS:
Access 2010 - Windows 10.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº84
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Estou tendo calcular uma coluna da ListBox, mais esta aparecendo o erro em tempo de execução '13.
Veja as telas:
Telas
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
- Mensagem nº85
Re: Sistema de Controle de Vendas, Estoque e Financeiro
abç
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº86
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
- Mensagem nº87
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Seria assim.
https://dl.dropboxusercontent.com/u/90217826/Vendas.rar
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº88
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
- Mensagem nº89
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº90
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Coloque no meu formulário no evento ao abrir para inserir dados no formulário (Data, Hora e Usuário).
Como eu faço para que ele vá para o ultimo registro inserido?
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº91
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº92
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº93
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Ao pedir nova venda selecione o nome do cliente, digito o codigo de barras e clico em Lançar, mas aparece a seguinte mensagem:
Alguém pode ajudar?
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº94
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Ao pedir nova venda, digito o código de barras e aparece os dados do produto mas ao clicar no botão Lançar não insere os dados na tabela Detalhes Venda.
O devo fazer?
- Código:
DoCmd.SetWarnings False
CurrentDb.Execute "Insert Into " & _
"tblDetalheVenda(CodigoVenda,CodigoBarras,DescricaoProduto,Quant,Unidade,PrecoUnitario,SubTotal) " & _
"Values (""" & Codigo & """,""" & Format(txtCodigoBarras.Value, "0000000000000") & """,""" & Me.txtDescricao.Value & """, " & _
"""" & Me.txtQuant.Value & """,""" & txtUnidade.Value & """,""" & txtPrUnitario.Value & """,""" & txtSubTotal.Value & """)"
DoCmd.SetWarnings True
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
- Mensagem nº95
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Abç
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº96
Re: Sistema de Controle de Vendas, Estoque e Financeiro
Erro em tempo de execução 3421
Veja:
- Código:
DoCmd.SetWarnings False
'Baixa de Receita, ou seja atualiza Quitado para "Sim"
CurrentDb.Execute "UPDATE tblReceitas SET UsuarioAlt = " & Me.txtUsuario.Value & ", " _
& "Quitado = " & Me.txtSituacao.Value & ",DataPagamento = #" & Me.txtDataPagamento.Value & "#", "" _
& "ValorPagamento = " & Me.txtVlrPago.Value & ", " _
& "WHERE Codigo=" & Me.txtCodigoDespesa & ""
'Atualiza o caixa
CurrentDb.Execute "UPDATE tblContasCaixa SET SaldoAtual = SaldoAtual+ '" & Me.txtVlrPago & "'" _
& "WHERE CodigoEmpresa=" & Me.txtCodigoEmpresa & ""
'Acrescenta os dados na tabela de Movimento
CurrentDb.Execute "INSERT INTO tblMovimentoCaixa (Data, Descricao, Credito, UsuarioAdd, CodigoEmpresa, NomeEmpresa )Values( " & _
"""" & Me.txtDataPagamento.Value & """, """ & Me.txtDescricao.Value & """, """ & Me.txtVlrPago.Value & """, " & _
"""" & Me.txtUsuario.Value & """, """ & Me.txtCodigoEmpresa.Value & """, """ & Me.txtEmpresa.Value & """)"
DoCmd.SetWarnings True
Forms!frmReceitas!lstReceitas.Requery
Forms!frmReceitas!lstContaCaixa.Requery
DoCmd.OpenReport "rptReciboReceita", acViewPreview
Forms!frmReceitas.visible = False
Forms!frmBaixaReceita.visible = False
Esse erro esta acontecendo na duas síntese UPDATE.
Alguem pode me ajudar?
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Connekta Informatica- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1082
Registrado : 01/07/2011
- Mensagem nº97
Re: Sistema de Controle de Vendas, Estoque e Financeiro
.................................................................................
Connekta Informática Apoia:
Chapada dos Veadeiros - Alto Paraíso de Goiás
Venha conhecer as belezas naturais desta cidade.
Clique Aqui
Lembrete: Desfrutar e Preservar é um direito de Todos.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
- Mensagem nº98
Re: Sistema de Controle de Vendas, Estoque e Financeiro
abç.