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

    Caixa de listagem no formulário.

    avatar
    Canastra
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 04/10/2018

    Caixa de listagem no formulário. Empty Caixa de listagem no formulário.

    Mensagem  Canastra 21/4/2023, 18:52

    Amigos, boa tarde!

    Necessito da ajuda dos senhores para o seguinte:

    No formulário frm_sec_receitas_edita, preciso que, ao atualizar (ou perder o foco) da caixa txtQuantidade, seja inserido na caixa de listagem lstItens os dados inseridos no formulário, e que seja criada uma nova linha na caixa de listagem, para possível inserção de novos dados neste registro. Os insumos já existem na tabela tbl_prn_custos e, embora apareçam somente uma vez em cada receita, podem aparecer em várias receitas, embora só exista um registro de cada na tbl_prn_custos. A tabela referente à caixa de listagem é a tbl_sec_receita. A tabela vinculada ao formulário frm_sec_receitas_edita é a tbl_prn_receita.
    Após a inserção de dados, trabalharei com pesquisas neste formulário, por isso, preciso salvar os dados do formulário, inclusive os itens da caixa de listagem. Isso, creio eu, ficará salvo em tbl_prn_receitase tbl_sec_receitas.

    E, já que estou solicitando ajuda...

    Não obstante eu já tenha conseguido fazer em outro formulário (que NÃO utiliza caixa de listagem, e, por isso, minha dúvida), preciso também de um botão (macro ou VBA), que exclua uma determinada linha (na qual esteja o foco em um dos campos), se necessário. No formulário frm_sec_receitas_edita, é o botão apagaitem.
    Trata-se de um BD para cálculo de custos de receitas culinárias.

    Tenho uma planilha no excel que faz isso. No ZIP que disponibilizei, estão essa planilha .XLSm e o BD. Excel, na minha humilde opinião, não é banco de dados, então...

    Já tentei várias formas, mas não obtive êxito.

    Alguém consegue me ajudar?

    Segue um exemplo do meu BD.

    Desde já,

    Grato, grato, gratíssimo!
    Anexos
    Caixa de listagem no formulário. AttachmentCusto_Receitas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.2 Mb) Baixado 19 vez(es)
    avatar
    adriano.ig
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 01/03/2016

    Caixa de listagem no formulário. Empty Re: Caixa de listagem no formulário.

    Mensagem  adriano.ig 24/4/2023, 21:16

    Boa tarde Canastra!

    Tente o código abaixo no evento após atualizar da 'txtQuantidade':

    Código:

    Private Sub txtQuantidade_AfterUpdate()
        ' Adicionar novo item à caixa de listagem
        Dim strSQL As String
        strSQL = "INSERT INTO tbl_sec_receita (INSUMO, UNIDADE, QUANTIDADE,VALOR_UNITÁRIO,VALOR_NA_RECEITA) " _
                & "VALUES ('" & Me.txtCampo1.Value & "', '" & Me.txtCampo2.Value & "', '" & Me.txtQuantidade.Value & "')"
        DoCmd.RunSQL strSQL
        
        ' Limpar o conteúdo da caixa de texto
        Me.txtQuantidade.Value = ""
        
        ' Atualizar a caixa de listagem
        Me.lstItens.Requery
    End Sub

    Altere txtCampo1 e etc pelos campos correspondentes do formulário e dê u retorno se funcionará. Não fiz direto no projeto porque tem campos no formulário com erro. Talvez também seja preciso referenciar no código a tabela correta, se esse for o caso, tabém precisará renomear as colunas no código.

      Data/hora atual: 27/7/2024, 02:18