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

    [Resolvido]bloquear o campo

    avatar
    caguzenski
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 29/10/2012

    [Resolvido]bloquear o campo Empty [Resolvido]bloquear o campo

    Mensagem  caguzenski 7/8/2014, 14:49

    gostaria que qdo do erro ficasse no campo até corrigir....

    Private Sub CRMedico_LostFocus()

    If (([Cod Seq] = 1 Or [Cod Seq] = 7 Or [Cod Seq] = 2) And [Especializacao] = "Enfermagem") Then
      ElseIf ([Cod Seq] = 3 And [Especializacao] = "Serviço Social") Then
      ElseIf ([Cod Seq] = 5 And [Especializacao] = "Médico Clínico") Then
      ElseIf ([Cod Seq] = 6 And [Especializacao] = "Pneumologista") Then
      ElseIf (([Cod Seq] = 3 Or [Cod Seq] = 4) And ([Especializacao] = "Fisíoterapia" Or [Especializacao] = "Psicólogo")) = True Then
         
       CRMedico = CRMedico.Value
       
       Else
       
       MsgBox "<<< [*Profissional*] invalido para o código... >>>"
           
       End If
       
       Exit Sub
    End Sub

    [Cod Seq] é o campo que se refere a especialização...

    grato
    avatar
    caguzenski
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 29/10/2012

    [Resolvido]bloquear o campo Empty Re: [Resolvido]bloquear o campo

    Mensagem  caguzenski 8/8/2014, 14:48

    grato resolvi o problema.....

    Private Sub CRMedico_Exit(Cancel As Integer)

    If l(([Cod Seq] = 1 Or [Cod Seq] = 7 Or [Cod Seq] = 2) And ([Especializacao] = "Enfermagem")) Then
      ElseIf ([Cod Seq] = 3 And [Especializacao] = "Serviço Social") Then
      ElseIf ([Cod Seq] = 5 And [Especializacao] = "Médico Clínico") Then
      ElseIf ([Cod Seq] = 6 And [Especializacao] = "Pneumologista") Then
      ElseIf (([Cod Seq] = 3 Or [Cod Seq] = 4) And ([Especializacao] = "Fisíoterapia" Or [Especializacao] = "Psicólogo")) Then
         
       CRMedico = CRMedico.Value

       Else
       
       MsgBox "<<< [*Profissional*] invalido para o código... >>>", vbOKOnly + vbCritical, "Erro"

      DoCmd.CancelEvent
       
       End If
       Exit Sub
       
    End Sub

      Data/hora atual: 28/11/2022, 01:56