[Access] Controllo campo per nuovo record

[Genna]

Ciao a tutti.
devo fare un controllo su un campo numerico che faccia cio':

all inserimento del nuovo record se il campo è uguale ad uno già inserito esca una msgbox ("blablalbbla")

Private Sub ID_Reg_BeforeUpdate()
Dim Messaggio As String
Dim Risposta As Integer

If ID_Reg = ID_Reg.BeforeUpdate Then

Messaggio = "blablablabla?"
Risposta = MsgBox(Messaggio, vbQuestion + vbYesNo, "ATTENZIONE")

Select Case Risposta

Case vbYes
Case vbNo
DoCmd.RunCommand acCmdUndo


End Select

End Sub

End Sub






naturalmente non va questo cod.
avete dei consigli??

[fabio309]

prova con questa procedura

private sub ID_Reg_AfterUpdate()
Dim Messaggio As String
Dim Risposta As Integer
Set rc = CurrentDb.OpenRecordset("Select ID_Reg from nome_tabella  where ID_Reg = " & ID_Reg & ";")
if not rc.EOF then
    Messaggio = "blablablabla?"
    if MsgBox(Messaggio, vbQuestion + vbYesNo, "ATTENZIONE") = vbNO then
        DoCmd.RunCommand acCmdUndo
    end if
end if
rc.close
set rc = Nothing
End Sub

[Genna]

grazie mille