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


    Lançar em Conta Corrente

    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº1

    Lançar em Conta Corrente Empty Lançar em Conta Corrente

    Mensagem  Convidado 7/10/2014, 13:55

    boas
    solicitaram me fazer um bd para controlar Contas Correntes... No form : formLancamentoDocumentos pretendia que após preencher todos os Campos clicava no botão Lançar em Conta Corrente e este lança-va no form ou listBox abaixo criada, criando uma linha com os Dados inseridos.
    Gostaria de ajuda co código do Botão para efectuar o solicitado.
    Obrigado
    https://www.dropbox.com/s/ht2kr1ww6joa9e8/baseDados.rar?dl=0
    • Ir para o topo
    good guy
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010
    • Mensagem nº2

    Lançar em Conta Corrente Empty Lançar em Conta Corrente

    Mensagem  good guy 7/10/2014, 14:40

    Olá Marco,

    Qual é o problema de utilizar um código de inserção de registro na tabela (tabLANCAMENTODOCUMENTOS) utilizando INSERT INTO? No mesmo botão vc pode atualizar a sua listbox com o método Requery.

    me.SuaLista.Requery
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº3

    Lançar em Conta Corrente Empty Re: Lançar em Conta Corrente

    Mensagem  Convidado 7/10/2014, 15:14

    Olá amigo... se não for pedir muito pode dar me um exemplo ? Obrigado
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº4

    Lançar em Conta Corrente Empty Re: Lançar em Conta Corrente

    Mensagem  Convidado 7/10/2014, 16:12

    boas
    alterei o conceito coloquei no botão gravar a gravar p/ a tabela o que preciso agora era que ao pesquisar o Numero ou Nome do Fornecedor p/ lançar novos registos em Conta Corrente na ListBox aparece-se a Conta Corrente do Fornecedor ( apenas os Documentos por Liquidar, ou valores por Liquidar ).
    https://www.dropbox.com/s/55x9r8gdohdkmo9/GesCC%20-%20C%C3%B3pia%20-%20C%C3%B3pia.accdb?dl=0
    • Ir para o topo
    good guy
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010
    • Mensagem nº5

    Lançar em Conta Corrente Empty Lançar em Conta Corrente

    Mensagem  good guy 7/10/2014, 18:34

    Olá Marco,


    Exemplo:

    Em primeiro lugar deixe todos os campos do seu formulário principal desacoplados/desvinculados à tabela de origem, se vc não fizer isso, não vai dar certo a inserção porque sempre haverá um registro em branco a cada inserção. Não vale a pena explicar agora.  

    Código:
    Option Compare Database
    Option Explicit

    'Código exemplo do botão para inserir dados da conta corrente
    Private Sub Comando29_Click()
    Dim sCampo1 As String
    Dim sCampo2 As String
    Dim sCampo3 As Date
    Dim strSQL As String

    sCampo1 = Forms!FormLANCAMENTODOCUMENTOS!NOME
    sCampo2 = Forms!FormLANCAMENTODOCUMENTOS!Credito
    sCampo3 = Forms!FormLANCAMENTODOCUMENTOS!DataDocumento
    strSQL = "INSERT INTO SuaTabela(Nome,Credito,DataDocumento)VALUES('" & sCampo1 & "','" & sCampo2 & "','" & sCampo3 & "','" & sCampo4 & "')"
    CurrentDb.Execute strSQL
    Me.ListCC.RowSource = "SELECT SuaTabela.SeuDocumentoALiquidar,SuaTabela.SeuValorALiquidar FROM SuaTabela"
    Me.ListCC.Requery
    End Sub

    'Desative este botão Salvar
    'Private Sub BTN_Salvar_Click()
    'DoCmd.RunCommand acCmdSaveRecord
    'DoCmd.GoToRecord , , acNewRec
    'Me.pesquisaNome.SetFocus
    'End Sub
    Private Sub Form_Open(Cancel As Integer)
    Me.RecordSource = "SELECT * FROM SuaTabelaOrigem"
    End Sub


    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    Lançar em Conta Corrente Empty Re: Lançar em Conta Corrente

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 21/11/2024, 18:18