MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    Ajuda Com Inputbox

    avatar
    Gaucho264
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 19/11/2023

    Ajuda Com Inputbox Empty Ajuda Com Inputbox

    Mensagem  Gaucho264 19/11/2023, 14:09

    Bom dia gostaria de uma ajuda com uma Inputbox

    Criar um Inputbox que acrescente valor ao campo do SubFomulário
    colocarei um exemplo abaixo
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8446
    Registrado : 05/11/2009

    Ajuda Com Inputbox Empty Re: Ajuda Com Inputbox

    Mensagem  Alexandre Neves 19/11/2023, 18:23

    Boa tarde e bem-vindo ao fórum
    Informou que enviava exemplo mas faltou


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Gaucho264
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 19/11/2023

    Ajuda Com Inputbox Empty Re: Ajuda Com Inputbox

    Mensagem  Gaucho264 19/11/2023, 18:29

    Perdão
    Anexos
    Ajuda Com Inputbox AttachmentTesteInputbox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (73 Kb) Baixado 7 vez(es)
    avatar
    Gaucho264
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 19/11/2023

    Ajuda Com Inputbox Empty Re: Ajuda Com Inputbox

    Mensagem  Gaucho264 20/11/2023, 17:45

    Alguem poderia me auxiliar
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8446
    Registrado : 05/11/2009

    Ajuda Com Inputbox Empty Re: Ajuda Com Inputbox

    Mensagem  Alexandre Neves 22/11/2023, 19:23

    Boa noite
    Não percebi o que pretende


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Gaucho264
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 19/11/2023

    Ajuda Com Inputbox Empty Re: Ajuda Com Inputbox

    Mensagem  Gaucho264 22/11/2023, 19:31

    Gostaria de criar uma maneira de que quando o produto não tiver cadastrado ,lançar somente o valor na venda
    Mas não gostaria de fosse diretamente no subform

    então pensei numa inputbox
    para quando chamada o perador digite o valor e o mesmo seja enviado para o subform de vendas
    ou até chamar outro formulário para entrar com valor e lançar na venda
    avatar
    Gaucho264
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 19/11/2023

    Ajuda Com Inputbox Empty Re: Ajuda Com Inputbox

    Mensagem  Gaucho264 26/11/2023, 17:04

    Alguem ai neste domingão que possa me ajudar
    basicamente o que pretendo como trabalherei com os código de barras do produtos
    e se no momento da venda este produto não estiver cadastrado ,lançar apenas seu valor na lança
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3864
    Registrado : 21/04/2011

    Ajuda Com Inputbox Empty Re: Ajuda Com Inputbox

    Mensagem  Marcelo David 28/11/2023, 14:16

    Bom dia Gaucho.
    Está meio confuso.

    Em qual momento a inputbox deve ser chamada?
    E como atualmente você define se um produto está ou
    não cadastrado?


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    Ajuda Com Inputbox Marcel11
    avatar
    Gaucho264
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 19/11/2023

    Ajuda Com Inputbox Empty Re: Ajuda Com Inputbox

    Mensagem  Gaucho264 28/11/2023, 15:08

    este codigo
    Sub fncCopiarCampos()
    If txtCodigoBarras = DLookup("CódigoDoProduto", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'") Then
    Dim varBuscaProduto, varBuscaUnd, varBuscaPrecoVenda, VarBuscaEstoque, VarBuscaPcCompra, VarTipo, VarBuscaFotoProduto As Variant

    varBuscaProduto = DLookup("Produto", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'")
    varBuscaUnd = DLookup("unid", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'")
    varBuscaPrecoVenda = DLookup("Preço_Venda", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'")
    VarBuscaPcCompra = DLookup("Preço", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'")
    VarTipo = DLookup("tipo", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'")
    VarBuscaFotoProduto = DLookup("config_ficheiro", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'")
    Me.txtCodigoBalanca = Left(Me.txtCodigoBarras.Value, 7)

    txtDescricaoProduto.Value = varBuscaProduto
    txtUnidade.Value = varBuscaUnd
    txtPrecoUnitario.Value = varBuscaPrecoVenda
    TxtPrecoCompra.Value = VarBuscaPcCompra
    TxtTipo.Value = VarTipo
    txtCaminhoFoto = VarBuscaFotoProduto
    Call fncCarregaFoto
    End If
    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3864
    Registrado : 21/04/2011

    Ajuda Com Inputbox Empty Re: Ajuda Com Inputbox

    Mensagem  Marcelo David 29/11/2023, 13:43

    Bom dia,
    Teste assim:

    Código:
    Sub fncCopiarCampos()
       If txtCodigoBarras = DLookup("CódigoDoProduto", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'") Then
          Dim varBuscaProduto, varBuscaUnd, varBuscaPrecoVenda, VarBuscaEstoque, VarBuscaPcCompra, VarTipo, VarBuscaFotoProduto As Variant

          varBuscaProduto = DLookup("Produto", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'")
          varBuscaUnd = DLookup("unid", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'")
          varBuscaPrecoVenda = DLookup("Preço_Venda", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'")
          VarBuscaPcCompra = DLookup("Preço", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'")
          VarTipo = DLookup("tipo", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'")
          VarBuscaFotoProduto = DLookup("config_ficheiro", "Tbl_Cad_Produtos", "CódigoDoProduto='" & Me!txtCodigoBarras & "'")
          Me.txtCodigoBalanca = Left(Me.txtCodigoBarras.Value, 7)

          txtDescricaoProduto.Value = varBuscaProduto
          txtUnidade.Value = varBuscaUnd
          txtPrecoUnitario.Value = varBuscaPrecoVenda
          TxtPrecoCompra.Value = VarBuscaPcCompra
          TxtTipo.Value = VarTipo
          txtCaminhoFoto = VarBuscaFotoProduto
          Call fncCarregaFoto
       Else
       'Como o DLookup anterior não encontrou produto com código de barras informado, executo esse trexo de código
          Dim vValor
          'Exibo uma InputBox para solicitar o valor do produto não cadastrado e passo o valor informado para a variável vValor
          vValor = InputBox("Produto não cadastrado. Por favor, informe o valor R$:","Produto não cadastrado")
          'Passo uma descrição genérica para o produto
          txtDescricaoProduto.Value = "Produto não cadastrado"
          'Passo o valor informado para o campo txtPrecoUnitario, mas verifico se realmente é um valor numerico, caso contrário, passo 0
          txtPrecoUnitario.Value = IIf(IsNumeric(vValor),vValor,0)
       End If
    End Sub

    *Dica importante
    Você está fazendo vários dlookups para buscar informações na mesma tabela. Essa prática irá inviabilizar seu sistema daqui a algum tempo.
    Utilize apenas um dlookup para buscar todos os campos de uma única vez.

    Veja a mensagem N° 3 desse post: https://www.maximoaccess.com/t1533-funcao-dlookup-explicacao


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    Ajuda Com Inputbox Marcel11
    avatar
    Gaucho264
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 19/11/2023

    Ajuda Com Inputbox Empty Re: Ajuda Com Inputbox

    Mensagem  Gaucho264 29/11/2023, 14:12

    Preciso que envie este valor para o subformulário
    avatar
    Gaucho264
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 19/11/2023

    Ajuda Com Inputbox Empty Re: Ajuda Com Inputbox

    Mensagem  Gaucho264 29/11/2023, 17:53

    neste linha tento referenciar o subformulário

    Forms!frmpdv_sub.VALOR_UNIT = IIf(IsNumeric(vValor), vValor, 0)

    Mas retorna erro dizendo que não pode localizar o frmPdv_Sub
    avatar
    Gaucho264
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 19/11/2023

    Ajuda Com Inputbox Empty Re: Ajuda Com Inputbox

    Mensagem  Gaucho264 7/12/2023, 13:15

    ???

    Conteúdo patrocinado


    Ajuda Com Inputbox Empty Re: Ajuda Com Inputbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/4/2024, 11:57