Alfabetik Seçim - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Alfabetik Seçim (/konu-alfabetik-secim.html) |
Alfabetik Seçim - fenerli6774 - 12/09/2021 İyi günler KOlay gelsin PrPrivate Sub DtDonem_AfterUpdate() Dim txtDonem As Date Dim OgRs As New ADODB.Recordset Dim sOrGu As String If IsNull(Me.DtDonem) Then Exit Sub 'Tarih alanı boşsa çık sOrGu = "select * from tblOgretmen WHERE (Durumu='Aktif');" 'öğretmenler tablosundan öğretmen seç" Me.DtDonem = Format(Me.DtDonem, "yyyymm") 'Dönem Formatla txtDonem = DateSerial(Left(Me.DtDonem, 4), Mid(Me.DtDonem, 5), 1) 'Tarih If DCount("*", "TblNobet", "format([donem],'yyyymm')=" & Me.DtDonem) = 0 Then 'ilgili döneme ait kayıt yoksa OgRs.Open sOrGu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic Do While Not OgRs.EOF 'her öğretmen için NÖBET tablosuna isim ekle CurrentDb.Execute "insert into TblNobet (BelId,donem) values (" & OgRs.Fields(0) & ", " & CLng(txtDonem) & ")" OgRs.MoveNext Loop End If Me.Filter = "Donem=" & CLng(txtDonem) 'sadece ilgili dönemi göster Me.FilterOn = True RenkGor (txtDonem) 'hy___cuma,ct,pazar günleri kırmızı, aydaki gün sayısı kadar metin kutusu görünür End Sub kodunda 6. Satırda sOrGu = "select * from tblOgretmen WHERE (Durumu='Aktif');" 'öğretmenler tablosundan öğretmen seç" Öğretmen seçiminde hangi sıra göz önünde bulunduruluyor. ifadesi ile seçilen öğretmenler alfabetik sıraya göre seçim nasıl sıralayabilirim. RE: Alfabetik Seçim - berduş - 12/09/2021 sOrGu = "select * from tblOgretmen WHERE (Durumu='Aktif') ORDER BY [öğretmenAdınınolduğuAlanAdı];" kodunu dener misiniz? |