Function NuevoRegistro ()
 
    Dim Temp as Variant 
On Error Resume Next 

Temp = Me.Bookmark  

NuevoRegistro = ( Err < > 0 ) 

On Error Goto 0
 
  End Function  


_-----------------------

a=me.newrecord
a=true  
a=false