[Resolvido]Impedir função NotInList

Boa tarde

Uso a função abaixo para adicionar dados na tabela "Despesas", num campo chamado "Despesa"

Private Sub Despesa_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue 'inibe msg padrão do Access.
If MsgBox("Tipo de Despesa " & AlternaCaps(NewData) & " não Registada !" & vbCrLf _
& "Deseja Actualizar?", 32 + vbYesNo, "Nova Despesa ?") = 6 Then
DoCmd.openForm "DespesasInserir", , , , acFormAdd, _
acDialog, NewData
Despesa = AlternaCaps(NewData)
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me.Despesa = Null

End If
End Sub

Pergunto:
Como impedir de executar a função se for digitado no campo "Despesa" o texto "Transferencia".

Obrigado

Talvez....


Private Sub Despesa_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue 'inibe msg padrão do Access.
If MsgBox("Tipo de Despesa " & NewData & " não Registada !" & vbCrLf _
& "Deseja Actualizar?", 32 + vbYesNo, "Nova Despesa ?") = 6 Then

If NewData = "Transferencia" Then
Response = acDataErrContinue
Despesa = Null
Exit Sub
Else

DoCmd.OpenForm "DespesasInserir", , , , acFormAdd, _
acDialog, NewData
Despesa = NewData
Response = acDataErrAdded
End If
End If
End Sub

Ou talvez....


Private Sub Despesa_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue 'inibe msg padrão do Access.

If NewData = "Transferencia" Then
MsgBox "Descrição Transferencia não permitida....", vbCritical
Response = acDataErrContinue
Despesa = Null
Exit Sub
Else

If MsgBox("Tipo de Despesa " & NewData & " não Registada !" & vbCrLf _
& "Deseja Actualizar?", 32 + vbYesNo, "Nova Despesa ?") = 6 Then

DoCmd.OpenForm "Form1", , , , acFormAdd, _
acDialog, NewData
Despesa = NewData
Response = acDataErrAdded
End If
End If
End Sub

Obrigado JPaulo

Muita, muita maneira de fazer Nestum .....
Bom final de semana

Obrigado pelo retorno Assis.

Como você já é da casa devido ao tempo que por aqui passa, não deveria desculpar a falta do Resolvido....

Bom fim de semana.