[Resolvido]Evento Após Atualizar

Prezados, tenho dois campos: EscopoINOVtxt e PontoEscopoInovTxt que quero atribuir a pontuação abaixo, conforme o EscopoINOVtxt é preenchido. Porém, dá erro.
Podem me ajudar nessa sintaxe?

Private Sub EscopoINOVtxt_AfterUpdate()

If Me.PontoEscopoInovTxt = 100 = Me.EscopoINOVtxt = "Sim. Integração de sistemas ou soluções digitais para disponibilização de novos produtos, processos ou serviços." Then
If Me.PontoEscopoInovTxt = 100 = Me.EscopoINOVtxt = "Sim - Desenvolvimento de novas soluções, envolvendo tecnologias inovadoras, tais como: IoT, Inteligência Artificial, Impressão 3D, Cloud, Digital  Twin, Drones, Realidade Estendida e Blockchain" Then
If Me.PontoEscopoInovTxt = 100 = Me.EscopoINOVtxt = "Sim. Melhoria de atividades de planejamento e gestão, utilizando métodos ágeis." Then
If Me.PontoEscopoInovTxt = 100 = Me.EscopoINOVtxt = "Sim. Identificação de tendências e soluções tecnológicas" Then
If Me.PontoEscopoInovTxt = 100 = Me.EscopoINOVtxt = "Sim. Facilitação de eventos de planejamento estratégico, design de futuro e ideação." Then

If Me.PontoEscopoInovTxt = 0 = Me.EscopoINOVtxt = "Não. Design, melhoria e otimização de processos" Then
If Me.PontoEscopoInovTxt = 0 = Me.EscopoINOVtxt = "Não. Robotização e automação de processos (RPA)" Then
If Me.PontoEscopoInovTxt = 0 = Me.EscopoINOVtxt = "Não. Implantação ou customização de softwares de prateleira para melhoria de processos" Then
If Me.PontoEscopoInovTxt = 0 = Me.EscopoINOVtxt = "Não. Analytics: Integração de base de dados e criação de painéis" Then
If Me.PontoEscopoInovTxt = 0 = Me.EscopoINOVtxt = "Avaliar" Then
Me.PontoEscopoInovTxt = 0 = Me.EscopoINOVtxt = "Não aplicável"
End Sub

Olá Ivone,

Com essa quantidade de condições, seria mais interessante criar uma tabela com os escopos e seus respectivos valores.
Por gentileza, compartilhe uma copia do seu banco de dados para análise e solução.

Ou Copie e cole o código abaixo:

Código:



If Me.EscopoINOVtxt = "Sim. Integração de sistemas ou soluções digitais para disponibilização de novos produtos, processos ou serviços." Then
  Me.PontoEscopoInovTxt = 100
End If

If Me.EscopoINOVtxt = "Sim - Desenvolvimento de novas soluções, envolvendo tecnologias inovadoras, tais como: IoT, Inteligência Artificial, Impressão 3D, Cloud, Digital  Twin, Drones, Realidade Estendida e Blockchain" Then
    Me.PontoEscopoInovTxt = 100
End If

If Me.EscopoINOVtxt = "Sim. Melhoria de atividades de planejamento e gestão, utilizando métodos ágeis." Then
    Me.PontoEscopoInovTxt = 100
End If

If Me.EscopoINOVtxt = "Sim. Identificação de tendências e soluções tecnológicas" Then
    Me.PontoEscopoInovTxt = 100
End If

If Me.EscopoINOVtxt = "Sim. Facilitação de eventos de planejamento estratégico, design de futuro e ideação." Then
    Me.PontoEscopoInovTxt = 100
End If

If Me.EscopoINOVtxt = "Não. Design, melhoria e otimização de processos" Then
    Me.PontoEscopoInovTxt = 0
End If
If Me.EscopoINOVtxt = "Não. Robotização e automação de processos (RPA)" Then
    Me.PontoEscopoInovTxt = 0
End If

If Me.EscopoINOVtxt = "Não. Implantação ou customização de softwares de prateleira para melhoria de processos" Then
    Me.PontoEscopoInovTxt = 0
End If

If Me.EscopoINOVtxt = "Não. Analytics: Integração de base de dados e criação de painéis" Then
    Me.PontoEscopoInovTxt = 0
End If

If Me.EscopoINOVtxt = "Avaliar" Then
    Me.PontoEscopoInovTxt = 0
End If

If Me.EscopoINOVtxt = "Não aplicável" Then
    Me.PontoEscopoInovTxt = 0
End If



Att,

Alexandre Fim

Bom dia!!!

Resolvido da seguinte maneira:


If Me.EscopoINOVtxt.Value = "Sim. Integração de sistemas ou soluções digitais para disponibilização de novos produtos, processos ou serviços." Then
Me.PontoEscopoInovTxt.Value = 100
ElseIf Me.EscopoINOVtxt.Value = "Sim - Desenvolvimento de novas soluções, envolvendo tecnologias inovadoras, tais como: IoT, Inteligência Artificial, Impressão 3D, Cloud, Digital Twin, Drones, Realidade Estendida e Blockchain" Then
Me.PontoEscopoInovTxt.Value = 100
ElseIf Me.EscopoINOVtxt.Value = "Sim. Melhoria de atividades de planejamento e gestão, utilizando métodos ágeis" Then
Me.PontoEscopoInovTxt.Value = 100
ElseIf Me.EscopoINOVtxt.Value = "Sim. Identificação de tendências e soluções tecnológicas" Then
Me.PontoEscopoInovTxt.Value = 100
ElseIf Me.EscopoINOVtxt.Value = "Sim. Facilitação de eventos de planejamento estratégico, design de futuro e ideação" Then
Me.PontoEscopoInovTxt.Value = 100
ElseIf Me.EscopoINOVtxt.Value = "Não. Design, melhoria e otimização de processos" Then
Me.PontoEscopoInovTxt.Value = 0
ElseIf Me.EscopoINOVtxt.Value = "Não. Robotização e automação de processos (RPA)" Then
Me.PontoEscopoInovTxt.Value = 0
ElseIf Me.EscopoINOVtxt.Value = "Não. Implantação ou customização de softwares de prateleira para melhoria de processos" Then
Me.PontoEscopoInovTxt.Value = 0
ElseIf Me.EscopoINOVtxt.Value = "Não. Analytics: Integração de base de dados e criação de painéis" Then
Me.PontoEscopoInovTxt.Value = 0
ElseIf Me.EscopoINOVtxt.Value = "Avaliar" Then
Me.PontoEscopoInovTxt.Value = 0
ElseIf Me.EscopoINOVtxt.Value = "Não aplicável" Then
Me.PontoEscopoInovTxt.Value = 0
End If

Agradeço a ajuda de Alexandre Fim