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.