Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Alt Tablolarda İşlemler

fenerli6774
fenerli6774
Access Cevaplanmış Soruları
42
4979

Alt Tablolarda İşlemler

Çözüldü #1
fenerli6774
Aktif Üye
fenerli6774
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 48
Konum: Bartın
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 21/03/2024,16:55
Yorumları: 166
Konuları: 34
Kayıt Tarihi: 26/02/2018
Teşekkür Puanı: 6
Mesleğiniz: Öğretmen
Kutukdefterine Yıılar alttablosu ona da harçlıklar alt tablosunu bağlamaya çalıştım.
Harçlıklarbordrosu formunda bilgileri girdikten sonra buton yardımı ile bu verilerin alttablolara aktarılmasını istedim. Ayrıca filtrelemede aktif öğrenciler vardı buna  yatılılık durumu "PARASIZ" filtresini eklmeyi beceremedim. Sorun şuki;
Harçlık bordrosunda yeni ay adını değiştirdiğimde verilerin bir kısmının üstüne yazıyor. bir kısmını hiç değiştirmiyor ve bütün aktif öğrencilere veri girişi yapıyor.  İstenen : Aktif olan parasız öğrenciler veri girşi yapılması. Harçlık tablosuna yeni ay satırı ekleyerek verileri işlemesi. Eğer Yıl ve ay aynı ise önceki verileri güncellemesi.
Ayrıca altformda bağlı bulunduğu kütük defterinden adı soy adı geliyor adı soyadının harçlık tablosuna nasıl çekebilirim.
İlginize şimdiden teşekkür ederim.
.rar alt tablolara veri girişi.rar (Dosya Boyutu: 131,74 KB | İndirme Sayısı: 9)
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,21:51
Yorumları: 8.548
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
(10/10/2020, 14:54)fenerli6774 yazdı: Ayrıca filtrelemede aktif öğrenciler vardı buna  yatılılık durumu "PARASIZ" filtresini eklmeyi beceremedim
hangi filtrelemede? srgaktifharclıkta çalışıyor?
Cevapla
#3
fenerli6774
Aktif Üye
fenerli6774
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 48
Konum: Bartın
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 21/03/2024,16:55
Yorumları: 166
Konuları: 34
Kayıt Tarihi: 26/02/2018
Teşekkür Puanı: 6
Mesleğiniz: Öğretmen
butondaki komutları olay sekmesinden inceldeiğimde ilk satırdaki komutda aktif filtresi var. Aktif filtreside sadece "Sorgu1" de var. ben oraya kütükdefterinde PARASIZ filtrelemesini eklemeye çalıştım. ama beceremdeim. PARASIZ filtresinide eklemek istiyorum.
ikinci satırdaki komut yanlış analamdıysam yıl seçme komutu.
üçüncü sıradaki komut seçilen yıla alt tablo oluşturuyor. yine yanlış analamdyısam. (alttabloya veri girişi sanırım "srAktifharçlık" sorgusunda )
dördüncü sıradaki komut silme işlemi yapıyor. Ama onu hiç anlamadım. (bordroda ay değiştirdiğimde önceki ayın bazı verilerinin üstüne yazıyor. son komutu iptal edersem. yeni satır ekliyor. Ama ben orasının şarta bağlı olmasını istiyorum. Seçilen yıla ait ay adı aynı ise üzerine yazsın yada önceki verileri silip yeniden yazsın. seçilen yıla ait ay farklı bir ay ise silmeden yeni ay satırı oluşturup verileri eklesin.
Ayrıca "srAktifharçlık" sorgusuna adoyad ve tckimlik sütunları eklersem ilerleyen aşamalrda harçlıklar tablosundan form oluşturup öğrencini form üzerinde alacak verecek durumunu daha rahat görebilirim.
Cevapla
#4
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,21:51
Yorumları: 8.548
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
butondaki ilk insert sorgusunda, kütük defterinde yıl alanı yok ama siz oraya yıl eklemeye çalışmışsınız
Cevapla
#5
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,19:44
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Öncelikle Yapılmaması Gereken Ölümcül HatalarURL'ye Git Konusunu mutlaka incele. Ayrıca, proje isimlerine yerleşik işlev veya fonksiyon isimleri verilmez. Projenize Dlookup ismi verirseniz Dlookup kodu çalıştıramazsınız.

Butonun tıklandığında olayındaki kodların tamamını aşağıdaki ile değiştirerek deneyiniz.


Dim strSQL1 As String
Dim rsSQL1 As ADODB.Recordset
Dim Varmi, YilDegeri As Integer

If IsNull(Me.akYıl) Then
    MsgBox "Yıl Seçimi Yapınız"
    Exit Sub
ElseIf IsNull(Me.akAy) Then
    MsgBox "Ay Seçimi Yapınız"
    Exit Sub
End If


strSQL1 = "SELECT * FROM Kutukdefteri WHERE (((Durumu)='Aktif') AND ((Yatılılıkdurumu)='Parasız'));"

Set rsSQL1 = New ADODB.Recordset
    
rsSQL1.Open strSQL1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
       
DoCmd.SetWarnings False

Do While Not rsSQL1.EOF
    
    Varmi = Nz(dlookup("YılID", "tblYıllar", "[SıraID] = " & rsSQL1.Fields("SıraID") & " And [Yıl] = '" & Me.akYıl & "'"), 0)
    
    If Varmi = 0 Then
    
    DoCmd.RunSQL "INSERT INTO tblYıllar (SıraID, Yıl) VALUES (" & rsSQL1.Fields("SıraID") & ", '" & Me.akYıl & "')"
    
    End If
    
    YilDegeri = Nz(dlookup("YılID", "tblYıllar", "[SıraID] = " & rsSQL1.Fields("SıraID") & " And [Yıl] = '" & Me.akYıl & "'"), 0)
    
    If YilDegeri > 0 Then

    Varmi = Nz(dlookup("HarçlıkID", "tblHarçlıklar", "[SıraID] = " & rsSQL1.Fields("SıraID") & " And [YılID] = " & YilDegeri & " And [Ay] = '" & Me.akAy & "'"), 0)
    
        If Varmi = 0 Then
    
            DoCmd.RunSQL "INSERT INTO tblHarçlıklar (SıraID,YılID, Ay, Ekgösterge, Katsayı, Yuvarlama, Ödenen, 1Ödeme, 2Ödeme, 3Ödeme, 4Ödeme, 1Borç, 2Borç, 3Borç, 4Borç) VALUES (" & rsSQL1.Fields("SıraID") & ", '" & YilDegeri & "','" & Me.akAy & "','" & Me.akEk & "', '" & Me.akKat & "', '" & Me.Yuvarlama & "', '" & Me.Ödenen & "', '" & Me.Ödeme1 & "', '" & Me.Ödeme2 & "', '" & Me.Ödeme3 & "', '" & Me.Ödeme4 & "','" & Me.Borc1 & "','" & Me.Borc2 & "','" & Me.Borc3 & "','" & Me.Borc4 & "')"
             
        End If
    
    End If
    
    rsSQL1.MoveNext
 
Loop

DoCmd.SetWarnings True


rsSQL1.Close
Set rsSQL1 = Nothing



Me.afAktifharçlık.Requery
Cevapla
#6
fenerli6774
Aktif Üye
fenerli6774
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 48
Konum: Bartın
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 21/03/2024,16:55
Yorumları: 166
Konuları: 34
Kayıt Tarihi: 26/02/2018
Teşekkür Puanı: 6
Mesleğiniz: Öğretmen
İlginiz için teşekkür ederim. İŞ yoğunluğundan dolayı biraz ara verdim. Yoğunluk geçince öğrenmeye devam edeceğim. Yazdıklarınızı harfiyen uygulayıp manztığını çözmeye çalışacağım.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task