Skip to main content

AccessTr.neT


Veri Bulması ve Güncellemesi

Veri Bulması ve Güncellemesi

Çözüldü #1
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
.rar olaylar.rar (Dosya Boyutu: 18,82 KB | İndirme Sayısı: 10)
Son Düzenleme: 18/06/2013, 13:43, Düzenleyen: Ömer 64.
Cevapla
Çözüldü #2
A.selam
incele
.rar olaylar-Celoyce.rar (Dosya Boyutu: 17,61 KB | İndirme Sayısı: 28)
Cevapla
Çözüldü #3
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
Son Düzenleme: 19/06/2013, 01:18, Düzenleyen: Ömer 64.
Cevapla
Çözüldü #4
bu konuda çok örnek var sitede araştır,
Cevapla
Çözüldü #5
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.
.rar olaylar_sld.rar (Dosya Boyutu: 23,37 KB | İndirme Sayısı: 24)
Cevapla
Çözüldü #6
Sy Ozan Akkaya yardım ve alakanız için çok teşekkürler
Son Düzenleme: 21/06/2013, 18:59, Düzenleyen: Ömer 64.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task