kimse ilgilenmemiş ama ben yine de cevap vereyim gece uğraştım ve sonunda oldu. Ben kodları
Private Sub OYİ_Kayıt_Defteri_Nu_AfterUpdate()

Me.Olayın_Türü = OYİ_Kayıt_Defteri_Nu.Column(2)
Me.Olayın_Tarih_ve_Saati = OYİ_Kayıt_Defteri_Nu.Column(3)

End Sub diye giriyordum. Aşağıdaki gibi girince düzeldi.

Private Sub OYİ_Kayıt_Defteri_Nu_AfterUpdate()
Me.Olayın_Türü = Me.OYİ_Kayıt_Defteri_Nu.Column(2)
Me.Olayın_Tarih_ve_Saati = Me.OYİ_Kayıt_Defteri_Nu.Column(3)

End Sub