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

    Problema com código

    avatar
    Carlao2
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 242
    Registrado : 19/10/2016

    Problema com código Empty Problema com código

    Mensagem  Carlao2 em 10/9/2019, 11:37

    Senhores. Muito bom dia.

    Venho mais uma vez recorrer ao conhecimento e experiência dos Srs.
    Estou tentando fazer com que um módulo rode somente para uns itens específicos.
    Explicando:

    Tenho o módulo abaixo:

    Public Sub Numerar()
    Dim db As Database
    Dim rs As Recordset
    Dim rsaux As Recordset
    Dim ctaux As Integer

    Dim ct As Integer


    Set db = CurrentDb
    Set rs = db.OpenRecordset("Select * from FIFICOTOT order by tagcarga")
    rs.MoveFirst

    While Not rs.EOF
    Set rsaux = db.OpenRecordset("Select count(tagcarga) as qtde from fificotot where tagcarga='" & rs!tagcarga & "'")
    ctaux = rsaux!qtde
    If ctaux = 1 Then
    rs.Edit
    rs!teste = rs!tagcarga & "-00000"
    rs.Update
    rs.MoveNext
    Else
    For cont = 0 To ctaux - 1
    rs.Edit
    rs!teste = rs!tagcarga & "-" & Format(cont, "00000")
    rs.Update
    rs.MoveNext

    Next cont
    End If

    Wend
    MsgBox ("Fim")
    End Sub


    Porém quero que o módulo seja executado somente para os itens que na coluna "IDOPER" esteja preenchido com a informação "I1".

    Poderiam me ajudar?

    Desde já agradeço a atenção
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1160
    Registrado : 13/12/2016

    Problema com código Empty Re: Problema com código

    Mensagem  Alexandre Fim em 10/9/2019, 14:17

    Bom dia Carlao,

    Por gentileza, poste aqui seu banco de dados (somente as partes envolvidas) para que os amigos do fórum possa encontrar uma solução.
    Pelo que eu pude analisar, de cara, o procedimento pode ser utilizado somente um select com a soma das quantidades e filtrando o registro que contenha a informação "I1".

    Att,

    Alexandre


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    Carlao2
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 242
    Registrado : 19/10/2016

    Problema com código Empty Re: Problema com código

    Mensagem  Carlao2 em 10/9/2019, 15:15

    Alexandre.

    Muito obrigado pelo interesse em ajudar.
    Encontrei mais um erro no módulo.
    A coluna "TesteFicar" foi preenchida a mão e mostra como deve ficar a coluna "Teste" após a execução do módulo.
    O "-00000" deve ser colocado para os itens onde o Ativocarga for igual ao tagcarga e para os demais itens com tagcarga igual ele deve colocar o -00001; -00002; -00003 etc

    Exemplo:


    Ativocarga      TagCarga      Teste                 Idoper
    121212           121212         121212-00000      I1
    131516           121212         121212-00001      I1
    141211           121212         121212-00002      I1
    101010           101010         101010-00000      I1
    202122           101010         101010-00001      I1
    323231           101010         101010-00002      I1
    404042           101010         101010-00003      I1
    101520           101520         101520-00000      I1
    182121           182121         182121-00000      I1
    353535           353535                                  M1
    474747           353535                                  I3
    656565           353535                                  I3
    858585           858585                                  M1


    Anexo Bd.

    Obrigado
    Anexos
    Problema com código Attachmenttestemaximoaccess.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (37 Kb) Baixado 0 vez(es)

      Data/hora atual: 27/1/2021, 18:53