sayın kenan827,
öncelikle,
Site Kuralları sayfasında yazılı hususları tekrar incelemenizin yerinde olacağını ve Yönetim tarafından uyarı puanları almamanız adına bu kurallar çerçevesinde lütfen,konu başlığınız ile ilgili sorununuz çözüldüğü takdirde konunuzda bu çözümün sağlandığını ve konunun Cevaplanmış Sorular kategorisi içerisine taşınmasını talep etmeyi ihmal etmemenizi ve ayrıca açtığınız konularınızda konudaki sorununuzun veya talebinizin dışında harici sorunuz ya da talebiniz söz konusu olduğunda bunu mevcut konunuzun dışında yeni konular açarak ve özellikle de her bir konuda tek soru sormak sureti ile danışmaya ve yazmaya gayret ediniz.
böylce,hem kurallara uyulmasını göstermiş olursunuz hem de benzer sorunlara maruz kalabilecek olan üyelerimizin de rahatlıkla aradıklarında bu sorunları içeren konulara ulaşabilmelerini de sağlamış olursunuz.
takdir edersiniz ki,bir konu içerisinde farklı içeriklerde ve taleplerde sorular yanıtlandığında arama durumlarında hem mesaj yoğunluğu nedeni ile pek rağbet görmeyecektir konu hem de inceleme imkanı daha verimli olması sağlanır.
son olarak,konunuzu;
başlığına uygun olarak çözüldü düşüncesi ile Cevaplanmış Sorular kategorisi içerisine taşımadan önce,bu son belirttiğiniz talebinize dair şu yanıtın verilmesi uygun görülmüştür.
ilgili butonun içeriğini komple iptal edip yerine aşağıdaki kod satırlarını dahil ediniz.bilginize...iyi çalışmalar,saygılar.
Kod:
Private Sub Komut33_Click()
'YAZDIRMA İÇİN MESAJ BİLDİRİMİ
If Me.FaturaID = "" Or IsNull(Me.FaturaID) Then
'EĞER KAYIT BOŞSA,KAYIT SEÇİMİNİN YAPILMASI İÇİN
MsgBox ("Lütfen FATURA işlemi için kayıt seçiniz"), vbCritical, "KAYIT SEÇME UYARISI"
Exit Sub
Else
DoCmd.OpenReport "FaturaDokum", acPreview
End If
End Sub
