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]Converter Private Sub em Function Public

    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 266
    Registrado : 31/08/2012

    [Resolvido]Converter Private Sub em Function  Public Empty [Resolvido]Converter Private Sub em Function Public

    Mensagem  Chamon Consultoria 20/5/2017, 17:08

    Boa tarde!

    Bd em Access 2010.

    Como faço para converter a função "Private Sub ApurarSaldo()" para uma Function Public?

    Observações:
    1- O Valor do campo: "Me.txtValorTotal" é obtido através do código:

    Código:
    Set dbs = CurrentDb
        strSql = "SELECT * FROM tbl_Compras WHERE NUMEROENTRADA = " & "'" & txtNUMEROENTRADA & "'"
        Set rst = dbs.OpenRecordset(strSql)
    If rst.RecordCount > 0 Then
    txtValorTotal = rst("TOTAL")



    Desde de já agradeço!


    Código:
    Private Sub ApurarSaldo()
        Me.txtValorDevolvido = 0
        Me.txtSaldoValor = 0
        Set dbs = CurrentDb
        strSql = ""
        strSql = "SELECT tbl_RemessaItensSaida.NUMEROENTRADA, Sum(tbl_RemessaItensSaida.TOTAL) As Saldo"
        strSql = strSql & " From tbl_RemessaItensSaida"
        strSql = strSql & " GROUP BY tbl_RemessaItensSaida.NUMEROENTRADA"
        strSql = strSql & " HAVING tbl_RemessaItensSaida.NUMEROENTRADA= " & "'" & txtNUMEROENTRADA & "'"
        Set rst = dbs.OpenRecordset(strSql)
       
        If rst.RecordCount > 0 Then
            Me.txtValorDevolvido = rst("Saldo")
            DoEvents
        End If
        DoEvents
        Me.txtSaldoValor = Me.txtValorTotal - Me.txtValorDevolvido
        rst.Close
        End Sub

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]Converter Private Sub em Function  Public Empty Re: [Resolvido]Converter Private Sub em Function Public

    Mensagem  Alexandre Neves 12/6/2017, 16:29

    Boa tarde,
    Coloque o nome do form como argumento


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 266
    Registrado : 31/08/2012

    [Resolvido]Converter Private Sub em Function  Public Empty Re: [Resolvido]Converter Private Sub em Function Public

    Mensagem  Chamon Consultoria 5/7/2017, 10:41

    Muito obrigado Alexandre!

    Abraço!

    Conteúdo patrocinado


    [Resolvido]Converter Private Sub em Function  Public Empty Re: [Resolvido]Converter Private Sub em Function Public

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 00:37