Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access
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.
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo] Access e VBA - Formulário Desacoplado - [Passo a passo]
Conheça meu canal no Youtube e se inscreva.
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 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.
Database2_new1.zip Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo] Access e VBA - Formulário Desacoplado - [Passo a passo] Conheça meu canal no Youtube e se inscreva.
Connekta Informatica 23/3/2019, 20:19
'VERIFICA SE EXISTE ESTOQUE PARA REALIZAR A VENDA
Dim x As Integer
If KeyCode = 13 Then
'Verifica se ha dados no campo
If IsNull(Me.txtCodBarras) Or Me.txtCodBarras = "" Then
'Se não tiver abre o formulário
DoCmd.OpenForm "frm_BuscaProdutos"
Else
'Se tiver busca e Multipla o produto
Call BuscaProdutos
Me.txtQuant = 1
Me.txtSubTotal = Me.txtQuant * Me.txtValorUnitário
End If
'If x < Me.txtQuant.Value Then
'x = DLookup("Est_Atual", "tbl_CadProdutos", "Seq =" & "txtCodProduto")
'MsgBox "Estoque Insuficiente. Estoque atual : " & x, vbInformation, "Controle de Estoque e Vendas"
'Exit Sub
'End If
If IsNull(Me.txtcodVenda) Or Me.txtcodVenda = "" Then
txtcodVenda.Value = Nz(DMax("[CodVenda]", "tbl_Vendas"), 0) + 1
Exit Sub
Else
'If MsgBox("Confirma a Venda Deste Produto?", vbYesNo, "Gravar Esta Venda? ") = vbYes Then
'Verifica se o código da venda se existe na tabela
If DCount("CodVenda", "tbl_Vendas", "CodVenda =""" & Me!txtcodVenda & """") > 0 Then
'Insere na Tabela Detelhes Vendas
CurrentDb.Execute "INSERT INTO tbl_DetVendas(CodVenda, CodProduto, CodBarras, DescProduto, ValorUnitario, Qtde, SubTotal) Values ('" & Me.txtcodVenda.Value & "', '" & Me.txtCodProduto.Value & "', '" & Me.txtCodBarras.Value & "', '" & Me.txtDescricao.Value & "', '" & Me.txtValorUnitário.Value & "', '" & Me.txtQuant.Value & "', '" & Me.txtSubTotal.Value & "')"
'Baixa o estoque da Tabela Produtos
CurrentDb.Execute "UPDATE tbl_CadProdutos Set Est_Atual = Est_Atual - " & Me.txtQuant.Value & " WHERE Seq = " & Me.txtCodProduto.Value & ""
Me.lstVendas.Requery
Else
'Se não existir Insere na Tabela Vendas e Detalhes da Venda
CurrentDb.Execute "INSERT INTO tbl_Vendas(CodVenda, DataVenda, CodUsuario, NomeUsuario, ValorVenda, CodEmpresa, NomeEmpresa) Values ('" & Me.txtcodVenda.Value & "', '" & Me.txtData.Value & "', '" & Me.txtCodUsuario.Value & "', '" & Me.txtUsuario.Value & "', '" & Me.txtTotal.Value & "', '" & Me.txtCodEmpresa.Value & "', '" & Me.txtNomeEmpresa.Value & "')"
CurrentDb.Execute "INSERT INTO tbl_DetVendas(CodVenda, CodProduto, CodBarras, DescProduto, ValorUnitario, Qtde, SubTotal) Values ('" & Me.txtcodVenda.Value & "', '" & Me.txtCodProduto.Value & "', '" & Me.txtCodBarras.Value & "', '" & Me.txtDescricao.Value & "', '" & Me.txtValorUnitário.Value & "', '" & Me.txtQuant.Value & "', '" & Me.txtSubTotal.Value & "')"
'Baixa o estoque da Tabela Produtos
CurrentDb.Execute "UPDATE tbl_CadProdutos Set Est_Atual = Est_Atual - " & Me.txtQuant.Value & " WHERE Seq = " & Me.txtCodProduto.Value & ""
Me.txtCodBarras = ""
Me.txtDescricao = ""
Me.txtValorUnitário = ""
Me.txtQuant = 1
Me.txtSubTotal = ""
Me.lstVendas.Requery
Me.txtCodBarras.SetFocus
End If
'End If
End If
Exit Sub
End If
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.
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo] Access e VBA - Formulário Desacoplado - [Passo a passo] Conheça meu canal no Youtube e se inscreva.