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

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)