Merhaba;
Kaydet butonu için 

If (IsNull(Forms!Tablo1!Tablo2.Form!Tarih) Or Len(Trim(Forms!Tablo1!Tablo2.Form!Tarih)) = 0) Or _

(IsNull(Forms!Tablo1!Tablo2.Form!AÇIKLAMA) Or Len(Trim(Forms!Tablo1!Tablo2.Form!AÇIKLAMA)) = 0) Or _

(IsNull(Forms!Tablo1!Tablo2.Form!TUTAR) Or Len(Trim(Forms!Tablo1!Tablo2.Form!TUTAR)) = 0) Then

    MsgBox "Alt formdaki tüm alanları doldurunuz..!"

Exit Sub

Else

DoCmd.GoToRecord , , acNewRec

End If

AKTAR butonu için;

Dim sorgu As String



sorgu = "UPDATE Tablo2 SET Tablo2.AÇIKLAMA ='" & Me.ADI & "'" & _

        " WHERE Tablo2.İD=" & Me.Kimlik

        Debug.Print sorgu

        CurrentDb.Execute sorgu

        Me.Refresh

yazarak dener misiniz?
İyi çalışmalar.