lbelisario

abcalba respondió: Supuesto Clav - campo clave Tabla1 - fichero Código: Private Sub clav_BeforeUpdate(Cancel As Integer) Dim fic As Recordset Set fic = CurrentDb.OpenRecordset("select * from tabla1 where clav = " & Str(clav), dbOpenDynaset) If Not fic.EOF Then MsgBox...