Skip to main content

AccessTr.neT


Kritere Göre Rapor Açmak

Kritere Göre Rapor Açmak

Çözüldü #1
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 & "))"

Else


   
        DoCmd.SetWarnings False
      DoCmd.OpenReport "rpr_gorusogretmen", acViewPreview, "ogrenci_id =" & Gorusid
        DoCmd.SetWarnings True
    End If

End If
End Sub

tbl_gorusler tablosunda eklenen kişinin kim olduğu işleniyor. örneğin Rehber Öğretmen
alt formda aynı anda öğretmen, veli rehber öğretmen olanlar var

benim istediğim txtdavetyeri denetimindeki değer öğretmense öğretmen raporunu rehber öğretmense rehber öğretmen raporunu açtırmak.
.rar RAPOR.rar (Dosya Boyutu: 354,35 KB | İndirme Sayısı: 1)
Son Düzenleme: 04/04/2020, 23:41, Düzenleyen: SeferŞANLI.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Kritere Göre Rapor Açmak - Yazar: SeferŞANLI - 04/04/2020, 23:40
Cvp: Kritere Göre Rapor Açmak - Yazar: ozanakkaya - 05/04/2020, 00:18
Cvp: Kritere Göre Rapor Açmak - Yazar: SeferŞANLI - 05/04/2020, 01:15
Cvp: Kritere Göre Rapor Açmak - Yazar: ozanakkaya - 05/04/2020, 14:24
Cvp: Kritere Göre Rapor Açmak - Yazar: SeferŞANLI - 05/04/2020, 15:03