[SORGU] Seri Bulmak Ve Her Bir Seriye ıd Vermek

10pele · 22-11-2023, 22:56

Merhaba, ekte belirttiğim tabloda EVET olanları saymak ve bunların yürüyen bakiyelerini bulup, her bir grubada ID vermek istiyorum. Ekteki excel dosyasında açıklamaya çalıştım. Yardımlarınız için şimdiden teşekkür ederim.

dsezgin · 23-11-2023, 01:38

Tabloya SN adında uzun sayı türünde alan oluşturun, Prosedürü modül ıcıne taşıyın ve çalıştırın.

Visual Basic
Sub SNVer()
Dim Kyt As New ADODB.Recordset
Dim Sayac As Long, Bak As String
Kyt.Open "SELECT * FROM Table1 ORDER BY Kimlik", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
If Kyt.RecordCount = 0 Then Exit Sub
Do Until Kyt.EOF
If Bak <> (Kyt!Adı & Kyt!Sonuç) Then Sayac = 1 Else Sayac = Sayac + 1
Kyt!SN = IIf(Kyt!Sonuç = "HAYIR", 0, Sayac)
Kyt!Sayı = IIf(Kyt!Sonuç = "HAYIR", 0, 1)
Bak = (Kyt!Adı & Kyt!Sonuç)
Kyt.Update
Kyt.MoveNext
Loop
Kyt.Close
Set Kyt = Nothing
End Sub

NOT: Access uygulama dosyalarında alan adi ve nesne isimlerinde Türkçe Harf ve boşluk kullanmamanız kullanma kolaylığı getirecektir.

10pele · 24-11-2023, 21:57

Visual Basic konusunda bilgim yok maalesef, bu nedenle "Prosedürü modül içine taşıyın ve çalıştırın." kısmını anlayamadım, bunu nasıl yapacağım?

dsezgin · 25-11-2023, 01:07

(24-11-2023, 21:57)10pele demiş ki: Prosedürü modül içine taşıyın ve çalıştırın." kısmını anlayamadım, bunu nasıl yapacağım?

Sn Hocam Access uygulama dosyanızı açın, Alt+F11 ile VBA editörünü açın, forumdaki konudan ilgili prosedürü kopyala yapıştır ile açık olan pencerede kaydedin. Prosedürün herhangi satırına odaklanıp, F5 veya üst menü çubuğunda play tuşuna basın.

NOT: Forumdaki kütüphanede ilgili bilgi dokümanları inceleyip, access ile deneyiminizi arttırabilirsiniz.

VBA da kod yazma ile daha fazla bilgiye ulaşabilirsiniz.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Access Son Eklenen Kayıtları Bulmak	bilservisci	4	97	16-01-2024, 11:34 Son Mesaj: bilservisci
	[SORGU] Sınıfa Kayıtlı Aktif öğrenci Sayısını Bulmak Dcount Fonksiyonu	by_hayalci	2	138	24-08-2023, 08:38 Son Mesaj: by_hayalci
	[FORM] Günlük Sıra Numarası Vermek	M_Kemal_Askeri	3	283	25-05-2022, 23:00 Son Mesaj: M_Kemal_Askeri
	[FONKSiYON] Mevcut Tarih Verileri Baz Alınarak +iş Günü Ilavesi Ile Ileri Süreli Tarih Bulmak.	osmanorman	10	1.329	03-03-2021, 12:38 Son Mesaj: dsezgin
	[SORGU] Sorguda Yüzdelik Dilime Göre Büyükten Küçüğe Sıra Numarası Vermek	ctnerdal	9	1.100	22-02-2021, 13:55 Son Mesaj: userx53
	[FORM] Otomatik Sira No Vermek	ates2014	4	437	15-01-2021, 14:06 Son Mesaj: halily
	Yinelenenlere Ait En Buyuk Tarihi Bulmak	Satir	2	477	09-04-2020, 18:50 Son Mesaj: Satir
	aradaki silinen sayıları bulmak	mithrill74	23	15.735	19-01-2018, 21:47 Son Mesaj: golf2000

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL