olaylar tablosundaki olay no alanının veri türü sayı olarak değiştirildi,
Olayakarisanlar tablosuna OLAYNO alanı eklendi
form ve altform OLAYNO alanları ile bağlandı.
alt formdaki tcno alanının güncelleştirme sonrasında olayına
Dim VarMi As String
VarMi = Nz(DLookup("[ADISOYADI]", "Kisiler", "[TCNO]=" & "'" & Me![TCNO] & "'"), 0)
If VarMi = "0" Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenForm "Kisiler", acNormal, , , , acWindowNormal
DoCmd.GoToRecord , , acNewRec
Forms!Kisiler!TCNO = Me.TCNO
Else
Me.ADISOYADI = Dlookup ("[ADISOYADI]", "Kisiler", "[TCNO]=" & "'" & Me![TCNO] & "'")
Me.DOGUMYERI = Dlookup ("[DOGUMYERI]", "Kisiler", "[TCNO]=" & "'" & Me![TCNO] & "'")
End If
kisiler formunun kapandığında olayına
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
Forms![olaylar]![Olayakarisanlar alt formu].Form![ADISOYADI] = DLast("[ADISOYADI]", "Kisiler")
Forms![olaylar]![Olayakarisanlar alt formu].Form![DOGUMYERI] = DLast("[DOGUMYERI]", "Kisiler")
kodu eklendi.