Bom dia
Em emu sistema tenho um campo chamado GeraValorCons - tipo SIM/NÃO....., no evento Após atualizar, uso o seguinte código:
Private Sub GeraValCons_AfterUpdate()
On Error GoTo trataerro
Me.subfrm_Convênios.Requery
If Me.flag_Valor.Value = "NÃO" And Me.GeraValCons.Value = "NÃO" Then
DoCmd.RunCommand acCmdSaveRecord
Me.consValor.Value = Null
Me.Lista_Recibo.Value = Null
Me.consValor.Enabled = False
Me.Lista_Recibo.Enabled = False
Gravar.SetFocus
Me.GeraValCons.Value = "NÃO"
End If
If Me.flag_Valor.Value = "NÃO" And Me.GeraValCons.Value = "SIM" Then
If MsgBox("O Convênio do Paciente NÃO prevê Valor para a Consulta. Deseja Realmente Informar o Valor?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
Me.consValor.Enabled = True
Me.Lista_Recibo.Enabled = True
Me.consValor.SetFocus
Else
Me.consValor.Value = Null
Me.Lista_Recibo.Value = Null
Me.consValor.Enabled = False
Me.Lista_Recibo.Enabled = False
Gravar.SetFocus
Me.GeraValCons.Value = "NÃO"
End If
End If
If Me.flag_Valor.Value = "SIM" And Me.GeraValCons.Value = "NÃO" Then
If MsgBox("O Convênio do Paciente prevê Valor para a Consulta. Deseja Realmente Agendar a Consulta SEM Informar o Valor?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
Me.consValor.Value = Null
Me.Lista_Recibo.Value = Null
Me.consValor.Enabled = False
Me.Lista_Recibo.Enabled = False
Gravar.SetFocus
Me.GeraValCons.Value = "NÃO"
Else
Me.consValor.Enabled = True
Me.Lista_Recibo.Enabled = True
Me.consValor.SetFocus
Me.GeraValCons.Value = "SIM"
End If
End If
If Me.flag_Valor.Value = "SIM" And Me.GeraValCons.Value = "SIM" Then
Me.consValor.Enabled = True
Me.Lista_Recibo.Enabled = True
Me.consValor.SetFocus
End If
Exit_TrataErro:
Exit Sub
trataerro:
MsgBox err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(err.Number)
Resume
End Sub
Quando altero o valor deste campo, o sistema me apresenta a mensagem conforme o resultado do IF, porém, dá o erro 2110 ao mover o foco para o campo.....
Alguém tem alguma dica de como resolver/tratar isto da melhor forma?
Saudações
Em emu sistema tenho um campo chamado GeraValorCons - tipo SIM/NÃO....., no evento Após atualizar, uso o seguinte código:
Private Sub GeraValCons_AfterUpdate()
On Error GoTo trataerro
Me.subfrm_Convênios.Requery
If Me.flag_Valor.Value = "NÃO" And Me.GeraValCons.Value = "NÃO" Then
DoCmd.RunCommand acCmdSaveRecord
Me.consValor.Value = Null
Me.Lista_Recibo.Value = Null
Me.consValor.Enabled = False
Me.Lista_Recibo.Enabled = False
Gravar.SetFocus
Me.GeraValCons.Value = "NÃO"
End If
If Me.flag_Valor.Value = "NÃO" And Me.GeraValCons.Value = "SIM" Then
If MsgBox("O Convênio do Paciente NÃO prevê Valor para a Consulta. Deseja Realmente Informar o Valor?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
Me.consValor.Enabled = True
Me.Lista_Recibo.Enabled = True
Me.consValor.SetFocus
Else
Me.consValor.Value = Null
Me.Lista_Recibo.Value = Null
Me.consValor.Enabled = False
Me.Lista_Recibo.Enabled = False
Gravar.SetFocus
Me.GeraValCons.Value = "NÃO"
End If
End If
If Me.flag_Valor.Value = "SIM" And Me.GeraValCons.Value = "NÃO" Then
If MsgBox("O Convênio do Paciente prevê Valor para a Consulta. Deseja Realmente Agendar a Consulta SEM Informar o Valor?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
Me.consValor.Value = Null
Me.Lista_Recibo.Value = Null
Me.consValor.Enabled = False
Me.Lista_Recibo.Enabled = False
Gravar.SetFocus
Me.GeraValCons.Value = "NÃO"
Else
Me.consValor.Enabled = True
Me.Lista_Recibo.Enabled = True
Me.consValor.SetFocus
Me.GeraValCons.Value = "SIM"
End If
End If
If Me.flag_Valor.Value = "SIM" And Me.GeraValCons.Value = "SIM" Then
Me.consValor.Enabled = True
Me.Lista_Recibo.Enabled = True
Me.consValor.SetFocus
End If
Exit_TrataErro:
Exit Sub
trataerro:
MsgBox err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(err.Number)
Resume
End Sub
Quando altero o valor deste campo, o sistema me apresenta a mensagem conforme o resultado do IF, porém, dá o erro 2110 ao mover o foco para o campo.....
Alguém tem alguma dica de como resolver/tratar isto da melhor forma?
Saudações