[Resolvido]Excluir com Critério

Pessoal.

Uma dúvida, possuo o código abaixo para exclusão de registros, eu gostaria de colocar uma exceção para o ID 2, gostaria que não fosse possível deletá-lo e que aparecesse uma mensagem avisando, como ficaria o código?
Eu até consegui inserir a mensagem e colocar a exceção, mas continuou deletando.

Código:

Private Sub btexcluir_Click()
If IsNull(Me!Login) Then Exit Sub
If MsgBox("Confirma a exclusão do registro: " & vbCrLf & vbCrLf & Me!Login, vbQuestion + vbYesNo, "Aviso") = vbNo Then Exit Sub
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
DoCmd.ShowAllRecords
Me.Lista.Requery
Me.Lista.Selected(0) = True
Me.[Lista].SetFocus
End Sub

É só colocar um If para verificar se o código é o 2 e um Exit Sub igual você colocou para o caso de IsNull. Só que nesse caso não seria um If avulso mas sim seguido de um Else para quando não for o 2, executar a exclusão.

Obrigado pelo auxílio criquio.

Mas não funcionou, não consegui implementar no código o que você falou.

Código:

If TxtId_Usuario = 2 Then
MsgBox ("Não é permitido excluir."), vbInformation, "Sistema de Vendas"
ElseIf IsNull(Me!Login) Then Exit Sub
If MsgBox("Confirma a exclusão do usuário: " & vbCrLf & vbCrLf & Me!Login, vbQuestion + vbYesNo, "Sistema de Vendas") = vbNo Then Exit Sub
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
DoCmd.ShowAllRecords
Me.Lista.Requery
Me.Lista.Selected(0) = True
Me.[Lista].SetFocus
End If

Faltou o Exit Sub para o caso de ser 2 e faltou um ElseIf na última condição. No lugar de vbNo, pode colocar direto um vbYes e tirar o Exit Sub dessa linha, pois, se clicar em Não, nada será executado. Então, não é necessário o Exit Sub nesse caso. Veja se funciona assim:

Código:

If Me.TxtId_Usuario = 2 Then
    MsgBox ("Não é permitido excluir."), vbInformation, "Sistema de Vendas"
    Exit Sub
ElseIf IsNull(Me!Login) Then
    Exit Sub
ElseIf MsgBox("Confirma a exclusão do usuário: " & vbCrLf & vbCrLf & Me!Login, vbQuestion + vbYesNo, "Sistema de Vendas") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
    DoCmd.ShowAllRecords
    Me.Lista.Requery
    Me.Lista.Selected(0) = True
    Me.[Lista].SetFocus
End If

Dica: escrever o código em níveis e subníveis como coloquei acima ajuda e muito a entender o que se está pretendendo fazer. Veja outro exemplo genérico:

Código:

If Nível 1... Then
    If Subnível1... Then
        Procedimento 1
    Else
        Procedimento 2
    End If
Else
    If Subnível2... Then
        Procedimento 1
    Else
        Procedimento 2
    End If
End If

Maravilha Criquio é isso mesmo, muito obrigado pela força.

Aproveitando a dica, existe algum manual/material de VBA português que você recomende?
Tenho muita vontade de aprender mais, tenho que praticar.

Obrigado.

Wellington

Grato pelo retorno. O fórum agradece.