ник: час
итак нужно
1) Поле уникальный [ИД,] лучше всего (guid)
его берут из таблицы, где одно поле задано в свойствах как код репликации, а второе поле просто текстовое (SLOVO ). 
Public Function GENERACIA()
Set rst = CurrentDb.OpenRecordset("GUIDI", dbOpenDynaset)
With rst
.AddNew
!SLOVO = "S"
.Update
End With
GENERACIA = Mid(StringFromGUID(rst!GEN_GUID), 8, 36)
'IDENT = Mid(StringFromGUID(rst!GEN_GUID), 8, 36)
rst.Delete
rst.Close
End Function
2) Поле [дата записи],
3) Поле [название офиса].(в таблице местный офис)
Private Sub Form_BeforeUpdate(Cancel As Integer) ------ в форме
Me!Ofis = KAKOJofis
Me!Data_Zapisi = Date
End Sub