[sql]Private Sub btn_savunmayzadir_Click()
On Error Resume Next
Dim Gorusid As Integer
Dim kimo As String
Gorusid = [frm_gorusu_alinanlar].Form![ogrenci_id]
If MsgBox([frm_gorusu_alinanlar].Form![adi_soyadi] & " davet çağrısı yazdırılsın mı?", vbQuestion + vbYesNo) = vbYes Then
kimo = Me.frm_gorusu_alinanlar.Form![txtdavetyeri]

If kimo = "Rehber Öğretmen" Then
DoCmd.OpenReport "rpr_gorusrehberogretmen", acViewPreview, "ogrenci_id FROM tbl_gorusler WHERE (((ogrenci_id)=" & kimo & "))"

Merhabalar,
Ustalarımız,   https://accesstr.net/konu-sorguya-sira-n...tml?page=2   konusunda tek kritere göre sorguda sıra numarası eklemeyi çok güzel örneklendirmişler. Fakat üzerinde çalıştığım bir projede birden fazla kritere göre sıra numarası vermem gerekiyor.
Örneğin, [url=https://accesstr.net/konu-sorguya-sira-no-verdirmek.html?pid=17632#pid17632]https://accesstr.net/konu-sorguya-sira-no-verdirmek.html?

Yardımlarınız için şimdiden teşekkürler.

Üyelerimizin durumu aylık olarak değişmektedir.Amacım belirlediğim 2 farklı aya göre  üyelerimin veri tabanımdaki kayıt durumlarını takip etmek.

"Rapor" isimli sürekli form üzerinde veri tabanımdaki kayıtlarımı gruplayarak listeliyorum.

Form üzerindeki açılır kutu değerlerine ve grupladığım listede yer alan tc numaralarına göre veri tabanında kayıt olup olmadığını denetleyerek uyuşan kayıt var ise  "Üyelik1" ve "Üyelik2"  isimli metin kutularında "VAR"

Merhabalar...

Tarım İl Müdürlüğünde kullanılacak, basit bir program yapmaya çalışıyorum.

Kişilerin ödedikleri senet bilgileri var. ÜÇ SENE ÜST ÜSTE ödemedikleri taktirde cezalı duruma düşüyorlar. Örnek Formda Yunus Turan 2100-2001-2002 yıllarında düzenli ödemiş ancak sonra 2016 yılında ödemiş. Üç yılı geçtiği için cezalı duruma düşmüş. İki sene üst üste ödemediği taktirde, cezalı bir durumu yok. Ancak üç sene üst üste ödemediğinde cezalı oluyor. Bunları listelemesi mümkün olabilir mi?

İki t

Arkadaşlar merhaba nasılsınız iş yerinde kullandığımız bir programimiz var bu programda zaman içinde girilen değerlerin tutulduğu bir tablomuz var. Form üzerinden buton ile tetiklenen sorgulama işleminde Sorgu ile bu tablodan sevk edilen farklı birliklere karşılık gelen en büyük sandik numarasını nasil alabilirim. Sorgu uyguladim ancak toplamlar sekmesini aktif edip birlik kodlarina grupla, sandik numaralarina da en çok seçince "ifadede tanımlanmamış En çok işlemi" hatasi aliyorum. Programı iş

İyi akşamlar değerli arkadaşlar. Ekte eklediğim örnek veritabanında İlçe, Mahalle ve onay durumu adında üç alan var. Tablonun raporlamasında ilk iki alana göre gruplandırdım. Onay durumunda üç durum var Evet, Hayır, Beklemede
=DCount("t_onaydurumu";"tbl_basvurukayit";"t_onaydurumu= 'EVET' ")
=DCount("t_onaydurumu";"tbl_basvurukayit";"t_onaydurumu= 'HAYIR' ")
=DCount("t_onaydurumu";"tbl_basvurukayit";"t_onaydurumu= 'BEKLEMEDE' ")

deyimiyle kayıt saydırıyorum fakat gruplara indirgediğimde s

[vb]Private Sub Komut184_Click()
Dim GItem As Variant
Dim Gders_id, xList As Integer
Dim Gis_id As Integer
Dim Galan_id As Integer
Dim Gdersadi As String
Dim Galani As String
Dim Gsinifi As Variant
Dim Gderssaati As Integer
Dim Gprogramturu As String


For xList = 1 To Me.listedersler.ListCount - 1
Gders_id = Me.listedersler.Column(0, xList)
Gis_id = Me.listedersler.Column(1, xList)
Galan_id = Me.listedersler.Column(2, xList)
Gdersadi = Me.listedersler.Column(3, xList)
Galani =

Veri satırları aşağıya doğru uzamaktadır.
Verileri  Kriter olarak Sonuç başlığında DEVAM EDEN satırları Liste sayfasına H başlığına göre 1.Grup, 2.Grup ve 3.Grup a göre sıralatmak istiyorum. Veri aralığı değişmektedir. Son veriyi baz alarak işlem yapılabilir mi?
Veri sayfasından verileri Veri süze göre alıp liste sayfasında sıralatabilirim ama macro ile işi kolay bir şekilde tıkladığım zaman aktarsın istiyorum. Liste sayfasından da farklı bir şablona göre otomatik yazdırma yapacağım. Yardımcı

[code]Public Function NobetHaftaIciSonu(kimo, Zaman As Long, Hangi As String) As Integer
Dim Veri As New ADODB.Recordset, Sayac, Hft(1), Hane As Long
Veri.Open "SELECT TblNobet.* FROM TblNobet " & _
"WHERE (((TblNobet.OgretmenId)=" & kimo & ") AND ((Format(" & IIf(CLng(Right(Zaman, 2)) > 0, "[donem],'yyyymm'", "[donem],'yyyy'") & "))=" & IIf(CLng(Right(Zaman, 2)) > 0, Zaman, Left(Zaman, 4)) & ")) Order By [donem]", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
If CLng(Right(Zaman,

merhaba arkadaşlar, iki kritere göre filtre yapıyorum; and ile birleştiriyorum tür uyuşmazlığı hatası veriyor, ayrı ayrı sırayla yapıyorum bu defa da "ve " bağlamında olmuyor hangisi işine geliyorsa onu filtreliyor, oysa ben iki kritere göre form filtresi uygulamak istiyorum bi yardımcı olabilir misiniz?

Me.surecAltForm.Form.Filter = " siniflar.sinifAdi='" & Me.acilan.Column(1) & "'" And Me.surecAltForm.Form.Filter = "surec.İslemTarihi Between #" & Format(Me.tarih1, "mm\/dd\/yyyy") & "# And