sayın yorum70,
uygulamanız incelendiğinde aşağıdaki hususlara yönelik olarak açıklamalar yapılması gerekli görülmüştür.
UYGULAMANIZDA MEVCUT OLANLAR ve ÇÖZÜMLERİ
1) harici olarak hazırlanmış ve içeriğinde rapor görselleri ön izleme olarak seçilen kayıtlar için Güncelleme yapılıp yapılmamasına dair tercihlerin oluşturulduğu kapat adlı bir form mevcut.
ÇÖZÜM
neden sırf bir tercih yapılması için,harici bir form hazırlama gerek duydunuz?
bu hem gereksiz hem de uygulamaya boşuna bir form külfetine yol açar.örnekte bu form,varlık olarak bırakılmış fakat kodlamalarda geçersiz kılınmıştır.
2) ustyazi2 adlı raporunuzun Kapandığında Olay Yordamı içeriğinde,sadece
Kod:
DoCmd.OpenForm "kapat", acNormal
kod ifadesi yazılıydı.raporunuz kapatıldığında,kapat adlı formunuz açılmakta.
ÇÖZÜM
Kapandığında Olay Yordamı içerisine aşağıdaki kodlamayı dahil etmek yerinde olacaktır.
Kod:
Private Sub Report_Close()
Select Case MsgBox("Kayıtlarda değişiklik görüldü, değişiklik kaydedilsin mi?", vbYesNo, "Kaydedilsin mi?")
Case vbYes
DoCmd.SetWarnings False
DoCmd.OpenQuery "Sorgu1", , acReadOnly
DoCmd.SetWarnings True
DoCmd.OpenForm "veriler", acNormal
DoCmd.Close acForm, "cokluyazdir"
[Forms]![veriler]![listem1].Requery
[Forms]![veriler].Requery
DoCmd.GoToRecord , , acLast
Case vbNo
DoCmd.OpenForm "veriler", acNormal
DoCmd.Close acForm, "cokluyazdir"
[Forms]![veriler]![listem1].Requery
[Forms]![veriler].Requery
DoCmd.GoToRecord , , acLast
Exit Sub
End Select
End Sub
son oalrak,sayın yorum70,
EK'te;bütün bu bahsi yapılan açıklamaların uygulandığı ve gerekli düzeltmelerin yapılarak hazırlandığı örnek uygulama mevcuttur.inceleyebilirsiniz.bilginize...iyi çalışmalar,saygılar.
19 martsiteye2003-ATOZ.rar
(Dosya Boyutu: 116,58 KB | İndirme Sayısı: 12)
#1
