[Resolvido]Ajuda com BD

Oi pessoal, gostaria da ajuda de vcs para o seguinte BD em anexo.

1. No campo Firma queria q ao digitar uma firma que não existe, aparecesse uma mensagem avisando e pedindo para abrir o formulário Cadastrar Firma.

2. Queria também colocar no campo "Numero protocolo" no formulário frmPagamento uma mensagem avisando qndo o registro estivesse duplicado.

Obrigado

smallville,

Altere o código no evento "Se não estiver na lista" conforme abaixo:

Código:

If MsgBox("Firma não cadastrada. Deseja cadastrar agora?", vbYesNo + vbDefaultButton1 + vbQuestion, "Integ v1.0") = vbYes Then
    DoCmd.OpenForm "frm_Firma"
    DoCmd.GoToRecord , "", acNewRec
End If
    ActiveControl.Undo
    Response = acDataErrContinue ' Oculta a mensagem de não contém da lista

Abraços,

Oi Uilson, mto obrigado. Deu certo nesse campo.

Agora, como eu faço para colocar no campo "Número Protocolo" para ele verificar se o registro já existe?

Obrigado  

smallville,

Alterei o código, acho que fica melhor assim:

Código:

If MsgBox("Firma não cadastrada. Deseja cadastrar agora?", vbYesNo + vbDefaultButton1 + vbQuestion, "Aviso") = vbYes Then
    DoCmd.OpenForm "frm_Firma"
    DoCmd.GoToRecord , "", acNewRec
End If
    ActiveControl.Undo
    Response = acDataErrContinue ' Oculta a mensagem de não contém da lista

Teste aí ...

Abraços,

smallville,

No evento "Antes de atualizar" do campo "Numero_Protocolo", cole o código abaixo:

Código:

Dim rst As DAO.Recordset
Dim strCriteria As String
'verifica duplicidade
strCriteria = "[Numero_Protocolo] Like '*" & Me.Numero_Protocolo & "*'"

Set rst = Me.RecordsetClone
    rst.FindFirst strCriteria
        If rst.NoMatch Then
'MsgBox "Exibe mensagem se for o caso"
    Else
    MsgBox " Protocolo " & Me.Numero_Protocolo & " já registrado.", vbInformation, "Aviso"
    Me.ActiveControl.Undo
End If
Cancel = True
Set rst = Nothing

Abraços,

Vlw grande Uilson, você é o cara!!!

Mto obrigado.

smallville,

ok mas o "cara" não sou eu ...
O cara é o R... C...


Valeu