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.