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]Configuração de código

    avatar
    robertonl
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 21/12/2016

    [Resolvido]Configuração de código Empty [Resolvido]Configuração de código

    Mensagem  robertonl 11/10/2023, 02:52

    Boa noite.
    Na minha base de dados temos vários cadastro onde código da forma abaixo
    Código de 1 a 9, deverá receber ficar desta maneira ( Código antigo 5 - Código novo 0005)
    Código de 10 a 99, deverá receber ficar desta maneira ( Código antigo 15 - Código novo 0015)
    Código de 100 a 999, deverá receber ficar desta maneira ( Código antigo 150 - Código novo 0150)
    Código acima de 999, deverá receber ficar desta maneira ( Código antigo 1500 - Código novo 1500)

    Qdo clico em um registro que esteja no formato antigo, eu clico em alterar ele realiza a alteração no formato novo. Porém quando este registro no formato novo é ele dá erro.
    Como faço para que quando o código já estiver formato novo não dee este erro
    Anexos
    [Resolvido]Configuração de código AttachmentPrograma_Projeto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (386 Kb) Baixado 9 vez(es)


    Última edição por robertonl em 15/10/2023, 18:43, editado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11018
    Registrado : 04/11/2009

    [Resolvido]Configuração de código Empty Re: [Resolvido]Configuração de código

    Mensagem  JPaulo 11/10/2023, 09:20

    Olá

    Esse erro acontece porque a cadeia de digitos já é de 4;

    Faça isto, que resolve;

    Código:
    'se o conteudo da combo já tiver 4 digitos, passa para a instrução seguinte
        If Len(Me.Id_CodMbo) = 4 Then GoTo 1

    Completo:
    Código:
    Private Sub Btn_Alterar_Click()
        On Error GoTo trata_erro
        'Me.Id_DataAtualizacao.Enabled = False
        'Me.Id_CodProduto.Enabled = False
        'Me.Id_DataAtualizacao = Date
        'Me.Id_DataAtualizacao = Format(Id_DataAtualizacao, "dd/mm/yyyy")If Me.Id_CodMbo < 10 Then
        
    'se o conteudo da combo já tiver 4 digitos, passa para a intrução seguinte
        If Len(Me.Id_CodMbo) = 4 Then GoTo 1
        
           If Me.Id_CodMbo < 10 Then
           Me.Id_CodMbo = "000" & Me.Id_CodMbo
         End If
        If Me.Id_CodMbo > 9 And Me.Id_CodMbo < 100 Then
            Me.Id_CodMbo = "00" & Me.Id_CodMbo
        End If
        If Me.Id_CodMbo > 99 And Me.Id_CodMbo < 1000 Then
           Me.Id_CodMbo = "0" & Me.Id_CodMbo
           'Else
               ' Me.Id_CodMbo = Me.Id_CodMbo
        End If
        
    'segunda instrução
    1:
        Me.Id_AtualCad = Format(Date, "dd/mm/yyyy")
        If IsNull(Me.Id_CodInt) Then
            MsgBox "Selecione registro para alteração.", vbExclamation, "Mensagem"
            Exit Sub
        End If
            '--Variavel de mensagem que recebe valor
        '-- da constante de registro alterado
        vMSG = MSG_UPD
        
        iCmd = Me.Btn_Alterar.Tag
        'Call fnEnableButton(Me, iCmd)
        'Me.Id_Codlog.Enabled = True
        'Me.Btn_Salvar.Enabled = True
        Call fnHabilControl(Me)
        Me.Id_NomeMbo.SetFocus
      
        
        Exit Sub

    trata_erro:
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
        Exit Sub
        'Me.Btn_Salvar.Enabled = True
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Configuração de código Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Configuração de código Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Configuração de código Folder_announce_new Instruções SQL como utilizar...
    avatar
    robertonl
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 21/12/2016

    [Resolvido]Configuração de código Empty Re: [Resolvido]Configuração de código

    Mensagem  robertonl 15/10/2023, 18:44

    Boa tarde, e obrigado pela dica

    Conteúdo patrocinado


    [Resolvido]Configuração de código Empty Re: [Resolvido]Configuração de código

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/7/2024, 15:16