Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

msgbox konusunda yardım

nekeba
nekeba
Access Cevaplanmış Soruları
9
3810

msgbox konusunda yardım

Çözüldü #1
nekeba
Üye
nekeba
Bul
Üye
Adı Soyadı:
Yaşı: 43
Konum: Eskişehir
Ofis Versiyonu:
Son Oturumu: 08/10/2024,17:09
Yorumları: 23
Konuları: 6
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 0
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
Kur@l
AccessTR.Net
Kur@l
Bul
Uzman
Adı Soyadı:
Yaşı: 48
Konum: -
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 17/10/2024,00:40
Yorumları: 2.047
Konuları: 59
Kayıt Tarihi: 05/11/2008
Teşekkür Puanı: 1.658
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
nekeba
Üye
nekeba
Bul
Üye
Adı Soyadı:
Yaşı: 43
Konum: Eskişehir
Ofis Versiyonu:
Son Oturumu: 08/10/2024,17:09
Yorumları: 23
Konuları: 6
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 0
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
C*e*l*o*y*c*e
Uzman
C*e*l*o*y*c*e
Bul
Uzman
Adı Soyadı: Ce.... Ya....
Konum: Ankara
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: Bugün,02:44
Yorumları: 3.577
Konuları: 78
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.044
Mesleğiniz: Yazılım
bence örneginizi ekleyin ,başka birşeyde olabilir bakmak lazım,yada siz tam yapamadınız kolay gelsin
Cevapla
Çözüldü #5
nekeba
Üye
nekeba
Bul
Üye
Adı Soyadı:
Yaşı: 43
Konum: Eskişehir
Ofis Versiyonu:
Son Oturumu: 08/10/2024,17:09
Yorumları: 23
Konuları: 6
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 0
İ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
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
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