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]Abrir formulario

    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Abrir formulario Empty [Resolvido]Abrir formulario

    Mensagem  souzadenilson em 6/7/2020, 02:11

    Boa noite.
    Todas as vezes que eu abro o formulário Frm_Pagamento para lançamento de recebimento, ele automaticamente acrescenta uma linha em branco na tabela, Tab_Pagamento".
    Utilizei esta linha ( DoCmd.OpenForm "Frm_Pagamento" ), porém ele aparece na caixa de texto o primeiro registro da caixa de listagem
    Utilizando esta linha (DoCmd.GoToRecord , , acNewRec) ele acrescenta uma linha em branco na tabela.
    Qual comando que utilizo para quando abrir o formulário ele não acrescente uma linha em branco na tabela e permita que as caixas de texto fiquem em branco.

    Abaixo a sintaxe que utilizei para quando meu formulário de lançamento de recebimento for aberto.

    Código:


    Private Sub Form_Load()
        On Error Resume Next
        'DoCmd.GoToRecord , , acNewRec
        DoCmd.OpenForm "Frm_Pagamento"
        Bloqueia_Recebimento
       
        Me.Id_ValorPago = ""
        Me.Txt_BaseSRita = ""
        Me.Txt_PgtoMes = ""
        Me.Txt_PercPgto = ""
        Me.Txt_PgtoDin = ""
        Me.Txt_PgtoBanco = ""
        Me.Txt_PgtoTotal = ""
       
    End Sub

    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1247
    Registrado : 07/12/2011

    [Resolvido]Abrir formulario Empty Re: [Resolvido]Abrir formulario

    Mensagem  tauron em 6/7/2020, 12:16

    Com o linha de comando "Docmd.OpenForm", você está determinando que ao "carregar o formulário", ela abrar o formulários já aberto e carregado.

    Tente postar seu projeto. Assim podemos analisar melhor o que está acontecendo e lhe propor, se for o caso, alguns ajustes.
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Abrir formulario Empty Re: [Resolvido]Abrir formulario

    Mensagem  souzadenilson em 7/7/2020, 03:38

    Boa noite
    Todas as vezes que abro o formulário para lançar um recebimento, ele gera uma linha em branco no inicio da tabela. Tentei varias vezes descobrir onde poderia estar o erro.
    Somente a tabela sofrerá alteração caso haja algum lançamento, se abrir o formulário e não efetuar lançamento a tabela permanecerá inalterada., porém somente acontece se
    A principio todos os formulários que está em meu projeto eu abrindo eles não acrescenta linha em branco na tabela
    Tabela _ Tab_Pagamento
    Formulario - Frm_Pagamento
    Anexos
    [Resolvido]Abrir formulario AttachmentProjeto Comunidade Santa Rita.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (507 Kb) Baixado 6 vez(es)
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 397
    Registrado : 25/02/2016

    [Resolvido]Abrir formulario Empty Re: [Resolvido]Abrir formulario

    Mensagem  FranklinJSP em 7/7/2020, 21:21

    Boa tarde Denilson

    No código que vc utiliza, as ("") envían dado em branco

    Código:
    Private Sub Form_Load()
        On Error Resume Next
        'DoCmd.GoToRecord , , acNewRec
        DoCmd.OpenForm "Frm_Pagamento"
        Bloqueia_Recebimento
       
        Me.Id_ValorPago = ""
        Me.Txt_BaseSRita = ""
        Me.Txt_PgtoMes = ""
        Me.Txt_PercPgto = ""
        Me.Txt_PgtoDin = ""
        Me.Txt_PgtoBanco = ""
        Me.Txt_PgtoTotal = ""
       
    End Sub

    Tenta assim:

    Código:
    Me.Id_ValorPago = Null

    em todos os campos

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Abrir formulario Empty Re: [Resolvido]Abrir formulario

    Mensagem  souzadenilson em 8/7/2020, 01:29

    Boa noite
    Segui a orientação de substituir  (" " por Null) e continua ao abrir o formulário acrescentando de pagamento registro em branco na tabela Tab_Pagamento.
    Irei continuar as minhas tentativa, e se por acaso eu descobrir como faz informo a todos a resolução.
    Os demais formulários desde projeto ao abrir os formulários nele existente quando é aberto não inclui a linha em branco na tabela ( Realizei as analises nestes formulários) e não descobri nada de anormal em que possa adaptar no Frm_Pagamento
    Teria como ele ir para o primeiro campo vazio da tabela, ou seja após o ultimo registro
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Abrir formulario Empty Re: [Resolvido]Abrir formulario

    Mensagem  souzadenilson em 9/7/2020, 06:16

    Boa noite.
    Após algumas pesquisas na internet e tentativas, consegui resolver em parte.
    1º - Abrir formulário e não acrescentar registro em branco no inicio da tabela (Resolvido)
    2º - Ao carregar o formulário e limpar o campo (Ainda não funcionou)
    Código abaixo utilizado para carregar o formulário.
    Aceito sugestão para possíveis alterações

    Formulario Frm_Pagamento
    Tabela   Tab_Pagamento

    Código:

    Private Sub Form_Load()
        
        'DoCmd.GoToRecord , , acNewRec
        'On Error Resume Next
        'DoCmd.GoToRecord , , acNewRec
        'DoCmd.RunCommand acCmdRecordsGoToNew
            'Limpa_Pagamento
            If IsNull(Me!Cbo_MesPago) Or Me!Cbo_MesPago = "" Then
            MsgBox "Falta Digitar O Cbo_MesPago ", vbExclamation, "Aviso"
            'Me.Campo1.SetFocus
            Exit Sub
            End If
            If IsNull(Me!Id_CodDizPago) Or Me!Id_CodDizPago = "" Then
            MsgBox "Falta Digitar O Id_CodDizPago. ", vbExclamation, "Aviso"
            'Me.Campo2.SetFocus
            Exit Sub
            End If
            If IsNull(Me!Id_NomeDizPago) Or Me!Id_NomeDizPago = "" Then
            MsgBox "Falta Digitar o Id_NomeDizPago. ", vbExclamation, "Aviso"
            'Me.Campo3.SetFocus
            Exit Sub
            End If
            If IsNull(Me!Id_AreaPago) Or Me!Id_AreaPago = "" Then
            MsgBox "Falta Digitar o Id_Id_AreaPago. ", vbExclamation, "Aviso"
            'Me.Campo3.SetFocus
            Exit Sub
            End If
            If IsNull(Me!Cbo_CondPgtoPago) Or Me!Cbo_CondPgtoPago = "" Then
            MsgBox "Falta Digitar o Cbo_CondPgtoPago. ", vbExclamation, "Aviso"
            'Me.Campo3.SetFocus
            Exit Sub
            End If
            If IsNull(Me!Id_ValorPago) Or Me!Id_ValorPago = "" Then
            MsgBox "Falta Digitar o Id_Id_valorPago. ", vbExclamation, "Aviso"
            'Me.Campo3.SetFocus
            Exit Sub
            End If
                'DoCmd.GoToRecord , , acNewRec
                'DoCmd.RunCommand acCmdRecordsGoToNew
                Me.Lst_Receb.Requery
                Bloqueia_Recebimento
                'Me.Cbo_MesPago = Null
                'Me.Id_CodDizPago = Null
                'Me.Id_NomeDizPago = Null
                'Me.Id_AreaPago = Null
                'Me.Cbo_CondPgtoPago = Null
                'Me.Id_ValorPago = Null
    End Sub


    Anexos
    [Resolvido]Abrir formulario AttachmentProjeto Comunidade Santa Rita.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (651 Kb) Baixado 4 vez(es)
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Abrir formulario Empty Re: [Resolvido]Abrir formulario

    Mensagem  souzadenilson em 10/7/2020, 02:20

    Boa noite.
    Após muita calma e analisando os códigos aplicados no projeto, descobri onde estava o erro, e após a correção e alguns testes o problema foi solucionado

      Data/hora atual: 3/12/2020, 23:38