Ajuda Com Inputbox

Bom dia gostaria de uma ajuda com uma Inputbox

Criar um Inputbox que acrescente valor ao campo do SubFomulário
colocarei um exemplo abaixo

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

Perdão

Alguem poderia me auxiliar

Boa noite
Não percebi o que pretende

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

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

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?

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

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

Preciso que envie este valor para o subformulário

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

???