Skip to main content

AccessTr.neT


İsteğe bağlı sorgu çalıştırma

İsteğe bağlı sorgu çalıştırma

Çözüldü #1
İyi Akşamlar.

Veriler formundan sonyanıt tarihi gelmiş evraklar, cokluyazdir formu açılarak toplu yazdırılıyor.

Tarih:19,03,2024
raportarihi:19,03,2024
listele
coklurapor - açıldığında yazdır denilip çıkınca tarihler tabloda guncelleniyor..

Burada komutla sormasını ıstiyorum, evet dersem guncelleme sorgusu çalışsın, hayır dersem hiç bir değişiklik yapmadan çıksın...zira yanlış tarih girildiğinde otomatik olarak tum tarihler guncelleniyor.

Form:cokluyazdır
AnaForm:Veriler
Rapor:Ustyazı2
Sorgu:Sorgu1
Tablo:veriler.

Tşk.
.rar 19 martsiteye2003.rar (Dosya Boyutu: 122,64 KB | İndirme Sayısı: 4)
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
#2
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.
.rar 19 martsiteye2003-ATOZ.rar (Dosya Boyutu: 116,58 KB | İndirme Sayısı: 12)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
Sn.ATOZ112, Kapat formunu en son çare olarak siteden, Sn.CELOYCE'nin bir katkısından aldım.

Öncesinde, Select Case deyimiyle bayağı bir çalıştım, Yes yordamında sorun çıkmamakla beraber;

Case vbNo

DoCmd.RunCommand acCmdUndo (Geri Al komutu hata vermişti)


       DoCmd.OpenForm "veriler", acNormal
       DoCmd.Close acForm, "cokluyazdir"
       [Forms]![veriler]![listem1].Requery
       [Forms]![veriler].Requery

      DoCmd.GoToRecord , , acLast

Bu şekilde çalışmıştım, eklentinizi indirip yanıt vereceğim.

Sn.ATOZ112, gayet başarılı olmuş.Teşekkür ediyorum.

Konu, çözümlenmiştir.
Saygılarımla.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Son Düzenleme: 19/03/2015, 21:50, Düzenleyen: yorum70. (Sebep: 2.mesaj)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task