MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Adicionar registros a uma lista/subform através de campo texto.

    avatar
    flaviomlombardi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 05/02/2013

    [Resolvido]Adicionar registros a uma lista/subform através de campo texto. Empty [Resolvido]Adicionar registros a uma lista/subform através de campo texto.

    Mensagem  flaviomlombardi em 1/5/2020, 01:22

    Boa noite a todos e todas.
    Preciso fazer um formulario de vendas e itens de vendas onde os itens de venda não sejam digitados diretamente no subformuloario ou lista. Os itens seriam digitados em campos "textos" e ao clicar em um botão "Salvar/Adicionar" os dados seriam adicionados aos itens de venda.
    Alguém sabe onde eu encontro um exemplo desses ou sabe como fazer?

    Sds.

    FLAVIO
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1252
    Registrado : 23/01/2018

    [Resolvido]Adicionar registros a uma lista/subform através de campo texto. Empty Re: [Resolvido]Adicionar registros a uma lista/subform através de campo texto.

    Mensagem  crysostomo em 16/5/2020, 21:24

    Boa tarde Flavio.
    Código:
    Private Sub SUA LISTA_DblClick(Cancel As Integer)
    Set DB = CurrentDb
    sSQL = "INSERT INTO tblVendas"
        
        'CAMPOS DA TABELA----------------------------------------
        sSQL = sSQL & "("
        sSQL = sSQL & "  VALOR"
        sSQL = sSQL & " ,DATA"
        sSQL = sSQL & ",NOMEDOPRODUTO"
        sSQL = sSQL & ")"
        'CAMPOS DO FORMULARIO-------------------------------------
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
        sSQL = sSQL & "  '" & Trim(Me.txtValor) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.txtData) & "'"
        sSQL = sSQL & ", '" & Trim(Me.NomeProdoto) & "'"
        sSQL = sSQL & ")"
        DB.Execute sSQL
       End Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    flaviomlombardi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 05/02/2013

    [Resolvido]Adicionar registros a uma lista/subform através de campo texto. Empty Re: [Resolvido]Adicionar registros a uma lista/subform através de campo texto.

    Mensagem  flaviomlombardi em 21/5/2020, 14:58

    Ok, Muito obrigado!

      Data/hora atual: 2/7/2020, 09:51