Skip to main content

AccessTr.neT


msgbox konusunda yardım

msgbox konusunda yardım

Çözüldü #1
Yaptığım çalışmada birden fazla sorguyu çalıştıran bir buton var. Butona tıklandığında sorgular çalışıyor herhangi bir sorun yok. Ama her sorgu için ayrı ayrı uyarı çıkıyor. Güncellenen tüm kayıtları tek mesaj kutusunda gösterebilmemin bir yolu var mı? Uyarılarla ilgili 2 örnek resim ekledim. Bunun gibi 7-8 tane art arda çıkıyor.

[Resim: 2ikv9j.jpg]

[Resim: 5nn19z.jpg]
Cevapla
Çözüldü #2
Sayın nekeba;
Şu komutu sorguları çalıştırmadan önce yazın
 docmd.setwarnings false 
ile uyarıları kapatıp,
sorgunuz çalıştıktan sonra da
 docmd.setwarnings true
komutu ilede uyarıları açarsınız.
Gerekirse sorgularınız çalışmadan önce kendiniz bir mesaj ekleyebilirsiniz.
Kolay gelsin.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #3
Sayın Kural ilginiz için teşekkürler. "DoCmd.SetWarnings False" komutunu sorgulardan önce yazdım ve uyarılar kapandı. "DoCmd.SetWarnings true" komutunu sorguların en sonuna yazdım ("End Sub" dan önce) ama değişsen bişey olmadı. Sorguların yaptığı güncellemeleri bana tek uyarı kutusunda gösterebilme imkanı var mı? Aynı uyarı kutusunda sorguya devam etmek için "evet" yada "hayır" seçenekleri olabilir mi?
Cevapla
Çözüldü #4
bence örneginizi ekleyin ,başka birşeyde olabilir bakmak lazım,yada siz tam yapamadınız kolay gelsin
Cevapla
Çözüldü #5
İstediğim şeyle ilgili örnek bir dosya ekledim. Formdaki güncelle butonuna basıldığında birden fazla uyarı çıkıyor. Tüm uyarıları tek bir uyarı kutusunda gösterebilme imkanım var mı? Tek bir uyarı kutusu çıkacak ve üzerinde şurada 3 kayıt güncellendi, burada 5 kayıt güncellendi gibi alt alta tüm güncellemeleri gösterecek. Böyle bir şey yapılabiliyorsa yardımcı olabilirseniz sevinirim. Şimdiden teşekkürler.

Not: Uyarıların görünmesi için Sn. Kural'ın verdiği "docmd.setwarnings false" ve "docmd.setwarnings true" komutlarını kapattım.
.zip VTB2.zip (Dosya Boyutu: 16,36 KB | İndirme Sayısı: 11)
Cevapla
Çözüldü #6
Sn nekeba;
Chrw(13) ile bir alt satıra geçersiniz.
Aşağıdaki kodu inceleyip kendinize göre uyarlamaya çalışın.

Kod:
Private Sub Komut1_Click()

DoCmd.SetWarnings False
Dim SQ1, SQ2, SQ3

SQ1 = DCount("P_DOKUM", "SIPARISPARCA", "YOL_YAZAN='MEKANİK' AND MALZ_ALAN='PİK DÖKÜM'")
DoCmd.RunSQL "UPDATE SIPARISPARCA SET SIPARISPARCA.P_DOKUM= '1', SIPARISPARCA.BAHCE= '2', SIPARISPARCA.B_TEZGAH= '3' WHERE (((SIPARISPARCA.YOL_YAZAN)='MEKANİK') AND ((SIPARISPARCA.MALZ_ALAN)='PİK DÖKÜM'));"

SQ2 = DCount("P_DOKUM", "SIPARISPARCA", "YOL_YAZAN='TESVİYE' AND MALZ_ALAN='PİK DÖKÜM'")
DoCmd.RunSQL "UPDATE SIPARISPARCA SET SIPARISPARCA.P_DOKUM = '1', SIPARISPARCA.BAHCE = '2', SIPARISPARCA.B_TEZGAH = '3', SIPARISPARCA.TESVIYE = '4' WHERE (((SIPARISPARCA.YOL_YAZAN)='TESVİYE') AND ((SIPARISPARCA.MALZ_ALAN)='PİK DÖKÜM'));"

SQ3 = DCount("P_DOKUM", "SIPARISPARCA", "YOL_YAZAN='MEKANİK' AND MALZ_ALAN='ÇELİK DÖKÜM'")
DoCmd.RunSQL "UPDATE SIPARISPARCA SET SIPARISPARCA.C_DOKUM = '1', SIPARISPARCA.BAHCE = '2', SIPARISPARCA.B_TEZGAH = '3' WHERE (((SIPARISPARCA.YOL_YAZAN)='MEKANİK') AND ((SIPARISPARCA.MALZ_ALAN)='ÇELİK DÖKÜM'));"


DoCmd.SetWarnings True

MsgBox "1.sorguda " & SQ1 & " kayıt" & ChrW(13) & _
       "2.sorguda " & SQ2 & " kayıt" & ChrW(13) & _
       "3.sorguda " & SQ1 & " kayıt" & ChrW(13) & _
       "güncellendi ...", vbInformation, "Bilgi"
SQ1 = 0
SQ2 = 0
SQ3 = 0

End Sub

Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task