Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
13/05/2009 19:02
Konu Sahibi
mehmeser
Yorumlar
2
Okunma
3058
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

mehmeser

Aktif Üye
 135
 26
 07/02/2009
5
 -
 
 Ofis 2003
 17/01/2018,17:40
Çözüldü 
Merhaba,

Hazırladığım uygulamada sınıf listesi alırken parametreler frm_SinifListesi formunda verilmeli yoksa rapor hata mesajı veriyor.

Kullanımı kolaylaştırmak için rapora tıklandığında bu formu kontrol etmeli eğer açık değilse formu açmalı ve rapor kapatmalıyım.

Ben raporun açıldığında olayına şunları yazdım:

Kod:
1
2
3
4
5
6
7
8
9
10
11
'EĞER form açık değilse raporu kapat ve formu aç 13.05.2009 çarşamba
If SysCmd(acSysCmdGetObjectState, acForm, "frm_SinifListesi") <> 0 Then
'form açıktır
Else
 MsgBox "Öncelikle sınıf ve şube seçimi yapmalısınız."
 Dim stDocName As String
 Dim stLinkCriteria As String
 stDocName = "frm_SinifListesi"
 DoCmd.OpenForm stDocName, , , stLinkCriteria
 DoCmd.Close acReport, "rpr_SinifListesiResimli"
End If


Fakat rapor kendini kapatmıyor. Hata olarak ise olay anında bu komutu çalıştıramazsınız diyor.

Sadd Nasıl, raporu kapatabilirim ? Teşekkürler.


DoCmd.Close acReport, "rpr_SinifListesiResimli" yerine Cancel = True yazınca rapor da kapandı. Eğer yaptığımda bir hata varsa veya daha iyi bir yöntem varsa bekliyorum.


Ek Dosyalar Ekran Görüntüleri
   

Kullanici Avatari

okileturc

Aktif Üye
OK.... VA....
 60
 966
 113
 18/03/2009
464
 İzmir
 
 Ofis 2003
 23/05/2016,13:38
Çözüldü 
Ben ekteki modülü çok faydalı buluyorum
ve çok kullanıyorum

Kod:
1
2
3
4
5
6
7
8
9
10
Function IsLoaded(ByVal strFormName As String) As Boolean
 ' Returns True if the specified form is open in Form view or Datasheet view.
    Dim oAccessObject As AccessObject
    Set oAccessObject = CurrentProject.AllForms(strFormName)
    If oAccessObject.IsLoaded Then
        If oAccessObject.CurrentView <> acCurViewDesign Then
            IsLoaded = True
        End If
    End If
    End Function


Bu kodu, modüller bölümünde yeni kayıt açıp yapıştırın
ve kayıt edin

Sadece bu problemde değil artık nerede isterseniz açık form
kontrolü yaptıktan sonra eyleminizi gerçekleştirebilirsinz

If IsLoaded ( "kontrol_edilecekformadı" ) Then
Eylemi yap
Else
Vazgeç veya başka eylem yap
End If

Kolay gelsin


okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Bilgisayarcı

Aktif Üye
 Belirtilmemiş
 658
 34
 29/01/2008
410
 Antalya
 
 Ofis 2003
 01/11/2011,15:17
Çözüldü 
open da
cancel = true raporu kapatır.
Ayrıca isloaded fonksiyonu ile kontrol etmeniz daha kolay olacaktır. Nerdeyse standart bir fonksiyondur.


Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Raporu Önizleme İçin Yazılacak Vba Kodu Nedir. Oğuz Türkyılmaz 2 52 15/11/2018, 17:15
Son Yorum: Oğuz Türkyılmaz
Çözüldü Escape Tuşu İle Baskı Önizleme Raporu Kapatamıyorum hbal09 5 77 12/11/2018, 17:09
Son Yorum: hbal09
Çözüldü Buton Açık Kapalı golf2000 3 97 27/10/2018, 21:50
Son Yorum: golf2000
Çözüldü Liste Kutusunda Süzülen Veriye Tıklayınca Form Üzerinde O Veriye Nasıl Ulaşılır. Oğuz Türkyılmaz 8 204 22/10/2018, 02:28
Son Yorum: ozanakkaya
Çözüldü Butona Tıklandığında İlgili Form Yeni Kayıt Yapmaya Hazır Halde Açılsın.ama Nasıl? Oğuz Türkyılmaz 5 105 20/10/2018, 22:32
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444