MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


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.

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]Função split

    avatar
    joão2017
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 16/09/2017

    [Resolvido]Função split Empty [Resolvido]Função split

    Mensagem  joão2017 16/10/2017, 13:34

    Bom dia! Avelino Sampaio,por gentileza, qual parte deste código que você me mandou determina qual coluna a ser alterada?

    Dim per
    Dim k, j&
    per = InputBox("informe o percentual de aumento.")
    If per = Empty Then
       MsgBox "Você cancelou ou clicou no botão OK sem entrar com o valor...!"
    Else
       k = Split(Me!Lista.RowSource, ";")
       For j = 0 To UBound(k) Step 3
           If Val(k(j)) = Val(Me!Lista) Then
               k(j + 2) = Format(k(j + 2) * (1 + (per / 100)), "standard")
               Exit For
           End If
       Next
       Me!Lista.RowSource = Join(k, ";")
    End If

    Desculpe o incômodo.
    Obrigado.

    Desculpe, qualquer amigo que me responder eu agradeço.


    Última edição por joão2017 em 16/10/2017, 22:05, editado 1 vez(es)
    avatar
    joão2017
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 16/09/2017

    [Resolvido]Função split Empty Re: [Resolvido]Função split

    Mensagem  joão2017 16/10/2017, 22:05

    Boa noite! Consegui.
    ficou assim:
    Dim k() As String, j As Integer
    Dim x As Double
    Dim y As Double
    y = Me.txtDesconto
    k = Split(listProdutos.RowSource, ";")
    For j = 0 To UBound(k) Step 9 '9 é a quantidade de colunas,4,5,6 e 7 são o número das colunas a serem editadas.
    k(j + 5) = y
    x = k(j + 4) * (y / 100)
    k(j + 6) = FormatCurrency(x, 2)
    k(j + 7) = FormatCurrency((k(j + 4) - x))

    Next

    Obrigado.

      Data/hora atual: 4/3/2021, 13:34