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

#7
Çok Teşekkür ederim Berduş Hocam. İstediğim gibi olmuş. emeğinize sağlık
Cevapla
#8
Rica ederim
İyi çalışmalar
Yalnız dikkat edin eğer acilir kutunun içeriği yada içerikteki sıralama değişirse sorun çıkabilir.
Cevapla
#9
Tekrardan merhaba Berduş Hocam. Tam anlamıyla deneyememiştim, denediğimde kullanımda şu şekilde hatalar verdi. 
Örneğin bir kaç grup seçtikten sonra bireyselleri girmeye başladım. Daha sonra tekrar grup girdiğimde yeni grubu 1 den başlatıyor. Bir önceki dolu olan grup nosunu baz almıyor. 

Ben yapmak istediğim şeyi daha net açıklamaya çalışayım size.
Bu formla tabloma öğrencilerle yaptığım bireysel ya da grup görüşmelerimi kayıt ediyorum
Bireysel görüşmelerimde herhangi bir sıkıntı olmuyor. Ancak grup olarak seçtiğimde sene sonunda kaç grupla görüştüğüm hakkında bir bilgi elde edemiyorum, eğer grupları numaralandırsam sorgulardan bunu öğrenebilirim. aynı zamanda Numaralandırmaya göre de örnek olarak 5 nolu grupta kimlerle görüşmüşüm o öğrencileri de sorgu çalıştırarak görebileceğim.
Numaralandırmayı da şu şekilde yapmak istiyorum bir öğrenciyle yeni bir grup giriş kaydı yaptıktan sonra aynı gruptaki diğer öğrencileri de "bir önceki grup" seçeneğiyle kayıt edeceğim. bu şekilde bu öğrencilerin grup nosu aynı olacak.
Hem bireysel hem de grup görüşmeleri aynı tabloda yer aldığı için araya bireysel görüşmelerde girecek. Araya bireysel görüşmeler yani grup no su boş olan kayıtlar da girse, bir sonraki grup görüşmemi kayıt ederken dolu olan en son grup no yu baz alarak yeni değer getirmesini istiyorum.
Umarım yapmak istediğimi anlatabilmişimdir. 
Cevapla
#10
kodu aşağıdaki şekilde düzenleyip dener misiniz?
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 & " and [Grup_No]<>''"), 1)
Yeni = Nz(DLast("Grup_No", "[öğrenci görüşme]", "[sıra]<" & Me.Sıra & " and [Grup_No]<>''"), 1) + 1
Else
Onceki = Nz(DLast("Grup_No", "[öğrenci görüşme]", "[Grup_No]<>''"), 1)
Yeni = Nz(DLast("Grup_No", "[öğrenci görüşme]", "[Grup_No]<>''"), 1) + 1
End If
End Sub
Cevapla
#11
Teşekkürler Berduş. Şimdi sorunsuz çalışıyor. emeğinize sağlık
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task