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.
(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
ö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.
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 .
ilk kayıttaysak ya da kendisinden önce değer yoksa "1" olacak yani 1 den başlayacak.
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