Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
21/10/2010 13:27
Konu Sahibi
nekeba
Yorumlar
9
Okunma
2286
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

nekeba

Üye
Kullanici Avatari
Üye
18
4
30/10/2008
0
Eskişehir
18/11/2015,17:43
Çözüldü 
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

resim


Cevapla

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
18/09/2017,01:08
Çözüldü 
Sayın nekeba;
Şu komutu sorguları çalıştırmadan önce yazın

Visual Basic Code
 docmd.setwarnings false 

ile uyarıları kapatıp,
sorgunuz çalıştıktan sonra da

Visual Basic Code
 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

nekeba

Üye
Kullanici Avatari
Üye
18
4
30/10/2008
0
Eskişehir
18/11/2015,17:43
Çözüldü 
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

C*e*l*o*y*c*e

Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.986
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Çözüldü 
bence örneginizi ekleyin ,başka birşeyde olabilir bakmak lazım,yada siz tam yapamadınız kolay gelsin


Cevapla

nekeba

Üye
Kullanici Avatari
Üye
18
4
30/10/2008
0
Eskişehir
18/11/2015,17:43
Çözüldü 
İ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.


Ek Dosyalar
.zip   VTB2.zip (Dosya Boyutu: 16,36 KB / İndirme Sayısı: 11)
Cevapla

ayhan2122

accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
23/02/2017,01:00
Çözüldü 
Sn nekeba;
Chrw(13) ile bir alt satıra geçersiniz.
Aşağıdaki kodu inceleyip kendinize göre uyarlamaya çalışın.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Yardım : Tablodaki Bir Verinin Combobox İle Secilerek Tutarının Gösterilmesi orba 2 91 18/09/2017, 04:55 orba
Çözüldü Sürekli Formda Kayıt Girdisi Üstte Olması Yardım... bilservisci 13 365 28/08/2017, 01:42 bilservisci
Çözüldü Msgbox Tamam Tıklayınca Form Kapansın bentürk 2 208 07/06/2017, 15:27 bentürk
Çözüldü Buton Ve Msgbox Sorunu onurgs59 9 533 25/05/2017, 20:42 atoz112
Çözüldü Formdan Çıkıldığında Metin Kutularını Temizlenmesi Hk. Yardım sadooo 20 1.092 11/05/2017, 22:59 sadooo

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.