AccessTr.neT

Formda bulunan tüm herkese Selamlar

Ben Olaylar diye bir form oluşturdum, formun altına da olaya karışanlar diye bir alt form ekledim. Olaya karışanlar kısmına T.C. noyu girdiğimde daha önceden kayıtlı ise Kişiler veri tabanından ilgili kısımların Olaya Karışanlar alt formuna gelmesini, daha önceden kayıtlı değil ise kişiler formunun otomatik olarak açılmasını ve gerekli girişlerin yapılmasından sonra bilgilerin Olaya Karışanlar alt formunda gözükmesini istiyorum. Daha önce bir olay programı yaptım, gayet kullanışlı ancak olaya karışanlar tekrar başka bir olaydan dolayı geldiklerinde yeni olaya kimlik bilgilerini tekrar girmek zorunda kalıyorum, bu da zamanımı almakta, eklediğim dosya deneme için oluşturduğum dosyadır, bu konuda yardımcı olabilecek ve diğer tüm arkadaşlara teşekkürler

A.selam
incele

Sy Celoyce yardımın ve alakan için çok teşekkürler

Olayakarışanlar alt formundaki girilen TC kişiler tablosunda kayıtlı değil ise kişiler formunu nasıl otomatik açtırıp giriş yapıp olaya karışanlar alt formunu güncelleye biliriz

bu konuda çok örnek var sitede araştır,

Konu başlığını tümü büyük harflerle yazmayınız...

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.

Sy Ozan Akkaya yardım ve alakanız için çok teşekkürler