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


2 participantes

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

    avatar
    flaviomlombardi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    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 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
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    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 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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    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 21/5/2020, 14:58

    Ok, Muito obrigado!

    Conteúdo patrocinado


    [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  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 21:52