Skip to main content

AccessTr.neT


Açılan Kutu Değerine Göre Başka Bir Alana Numara Verme

Açılan Kutu Değerine Göre Başka Bir Alana Numara Verme

Çözüldü #1
Merhabalar, accesste amatörce birşeyler yapmaya çalışıyorum. Okulda kullandığım bir öğrenci görüşmelerini kaydettiğim bir Access dosyam var. o dosyayı güncelleştirmeye çalışırken bir yerde takıldım ve yardımınıza ihtiyacım var. 

Görüşme türüne bir açılan kutu ekledim ve açılan kutuya BİREYSEL, BİR ÖNCEKİ GRUP, YENİ GRUP seçenekleri eledim.
yapmak istediğim şey; bireyseli seçtiğimde herhangi bir değişiklik olmaması
yeni grup seçeneğini seçtiğimde grup no alanına bir önceki dolu olan grup no değerini bulup onun bir fazlasını grup noya işlemesini
bir önceki grup seçeneğini seçtiğimde de grup no alanına bir önceki grup no değerinin aynısını yazmasını istiyorum.

formuma benzer bir örneği ekte paylaştım. bu işlemin nasıl yapılacağına öğrenmeye ihtiyacım var. çünkü formumda çeşitli yerlerde kullanacağım. biraz araştırdım ama cevabı bulamadım. Yardımcı olursanız sevinirim.
.rar öğrenci kayıt.rar (Dosya Boyutu: 24,74 KB | İndirme Sayısı: 6)
Cevapla
#2
(02/07/2021, 16:27)adirnek yazdı: yeni grup seçeneğini seçtiğimde grup no alanına bir önceki dolu olan grup no değerini bulup onun bir fazlasını grup noya işlemesini
burada önceki dolu olan grup no derken kast ettiğiniz değer ne?
not: konuları açarken lütfen uygun yere açalım sorular kısmına açılmayan konular dikkatten kaçabiliyor
Cevapla
#3
öncelikle ilginiz için teşekkür ederim. soru cevap kısmına açılacağını bilmiyordum, bundan sonra dikkat ederim.

görüşme türünde açılan kutuda yeni grup seçeneğini seçtiğimde "öğrenci görüşme" tablosunda grup_no alanında daha önceden girilmiş değerleri kontrol etmesini ve en son girilen değerdeki rakamdan bir fazlasını vermesini istiyorum.
 Örnek verecek olursam ekteki  örnekte 6. sıradaki öğrencinin grup no alanındaki değer "2". eğer bir sonraki kayıtta "görüşme türünden "yeni grup" seçeneğini seçersem yeni kaydın grup nosu alanına 3 yazsın, "bir önceki grup" seçeneğini seçersem grup nosu alanına "2" yazsın, "bireysel" seçeneğinii seçersem de boş bıraksın.
Cevapla
#4
1 - peki ilk kayıttaysak "BİR ÖNCEKİ GRUP" ve "YENİ GRUP"  için ne yapılacak?
2 - peki kendisinden önceki kayıtlarda "grup_no" değeri yoksa  "BİR ÖNCEKİ GRUP" ve "YENİ GRUP"  için ne yapılacak? mesela 2. kayıttayken kendinden önceki tek kaydın "grup_no" değeri yok

Not: çalışmalarınızda tablo/alan yada nesne adlarında Türkçe karakter ve boşluk karakterinin kullanılmaması tavsiye edilir. Bazen ciddi sorunlar doğurabiliyor .
Cevapla
#5
ilk kayıttaysak ya da kendisinden önce değer yoksa "1" olacak yani 1 den başlayacak.
Cevapla
#6
aşağıdaki kodu formunuza ekleyip dener misiniz?
ilk kod formunuzdaki Option Compare Database satırının hemen altına eklenecek
Dim Etkin As String, Onceki As String, Yeni  As String
Açılan_Kutu25 değiştiğinde olayı
Private Sub Açılan_Kutu25_Change()
'If Me.Açılan_Kutu25 = "BİREYSEL" Then Me.Grup_No = Etkin
'If Me.Açılan_Kutu25 = "BİR ÖNCEKİ GRUP" Then Me.Grup_No = Onceki
'If Me.Açılan_Kutu25 = "YENİ GRUP" Then Me.Grup_No = Yeni
Me.Grup_No = Choose(Açılan_Kutu25.ListIndex + 1, Etkin, Onceki, Yeni)
End Sub
kayıtlar arasında dolaşırken Form_Current olayı

Private Sub Form_Current()
    Etkin = Nz(Me.Grup_No, "")
    If Not NewRecord Then
        Onceki = Nz(DLast("Grup_No", "[öğrenci görüşme]", "[sıra]<" & Me.Sıra), 1)
        Yeni = Nz(DLast("Grup_No", "[öğrenci görüşme]", "[sıra]<" & Me.Sıra), 1) + 1
    Else
        Onceki = Nz(DLast("Grup_No", "[öğrenci görüşme]"), 1)
        Yeni = Nz(DLast("Grup_No", "[öğrenci görüşme]"), 1) + 1
    End If
End Sub
.rar öğrenci kayıt_hy.rar (Dosya Boyutu: 27,36 KB | İndirme Sayısı: 6)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da