Bir önceki konudaki mesajları ve mesaj sayısını görünce ve örneğinizi biraz inceleyince
gözüm korktu aslında ama yine de bende bir şeyler önereyim size.
Ne istediğinizi tam olarak anlayabildim mi bilmiyorum ama bir de şu şekilde deneyelim.
Öncelikle şu yıla göre no artırma işlerini varsayılan'dan alıyoruz,
formun "before insert" olayına (sanırım türkçe access'de ekleme öncesinde olayı olarak geçiyor) kod yazıyoruz.
Yil formunda eburosayisi alanındaki varsayılanı kaldırın.
Yil formunun before insert (ekleme öncesinde) olayına şunu yazın.
Kod:
Private Sub Form_BeforeInsert(Cancel As Integer)
Me.eburosayisi = Nz(DMax("eburosayisi", "Data", "Year([eburotarihi])=" & [Forms]![Yil]![Yil]), 0) + 1
End Sub
* eburosayisi alanındaki varsayılanı kaldırın.
* edatasayi alanına veri girişini engelleyin.
Bu formun da before insert (ekleme öncesinde) olayına şu kodu yazıyoruz.
Kod:
Private Sub Form_BeforeInsert(Cancel As Integer)
Me.eburosayisi = [Forms]![Yil]!Data.Form.eburosayisi
Me.edatasayi = [Forms]![Yil]![Data].[Form]![Kimlik]
End Sub