+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri Bulması ve Güncellemesi (/konu-veri-bulmasi-ve-guncellemesi.html)
Veri Bulması ve Güncellemesi - Ömer 64 - 18/06/2013
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
Cvp: VERİ BULMASI VE GÜNCELLEMESİ - C*e*l*o*y*c*e - 18/06/2013
A.selam
incele
Cvp: VERİ BULMASI VE GÜNCELLEMESİ - Ömer 64 - 19/06/2013
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
Cvp: VERİ BULMASI VE GÜNCELLEMESİ - C*e*l*o*y*c*e - 19/06/2013
bu konuda çok örnek var sitede araştır,
Cvp: Veri Bulması ve Güncellemesi - ozanakkaya - 21/06/2013
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")Cvp: Veri Bulması ve Güncellemesi - Ömer 64 - 21/06/2013
Sy Ozan Akkaya yardım ve alakanız için çok teşekkürler