none
[Códigos] ** Não é uma pergunta ** RRS feed

  • Pergunta

  • Só estou "guardando" esse código aqui. Logo vou apagar

    ACCESS

    Private Sub Comando11_Click()
    'Código para Conferir se as Informações do Dados 1 e Dados 2 são iguais:
    
    'Dados1
    Name1 = Me.Texto0.Value
    Age1 = Me.Texto3.Value
    
    'Dados2
    Name2 = Me.Texto7.Value
    Age2 = Me.Texto9.Value
    
    'Match:
    If Name1 <> Name2 Then
        Me.Texto7.BackColor = &HFF& 'Cor de Fundo
        Me.Texto7.ForeColor = &HFFFFFF 'Cor da Fonte
    End If
    
    If Age1 <> Age2 Then
        Me.Texto9.BackColor = &HFF&
        Me.Texto9.ForeColor = &HFFFFFF
    End If
    
    'Pegando o Valor das Caixas de Seleção
    If Seleção13 = True Then
        Texto17 = "REGRESSIVO"
        End If
        
    If Seleção15 = True Then
        Texto19 = "PROGRESSIVO"
        End If
     
    End Sub
    
    Private Sub Comando12_Click()
    'Código para Corrigir as Informações caso estejam diferentes:
    
    'Dados1
    Name1 = Me.Texto0.Value
    Age1 = Me.Texto3.Value
    
    'Dados2
    Name2 = Me.Texto7.Value
    Age2 = Me.Texto9.Value
    
    'Substituir:
    If Name1 <> Name2 Then
        Me.Texto7.Value = Name1
        'Volta para a Cor Normal:
        Me.Texto7.BackColor = &HFFFFFF 'Cor de Fundo
        Me.Texto7.ForeColor = &H0 'Cor da Fonte
        End If
        
    If Age1 <> Age2 Then
        Me.Texto9.Value = Age1
        'Volta para a Cor Normal:
        Me.Texto9.BackColor = &HFFFFFF 'Cor de Fundo
        Me.Texto9.ForeColor = &H0 'Cor da Fonte
        End If
        
    End Sub
    

    sexta-feira, 15 de fevereiro de 2019 10:55