msgbox konusunda yardım
Tarih
21/10/2010 13:27
Konu Sahibi
nekeba
Yorumlar
9
Okunma
2035
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
Dün,21:00
Çözüldü 
Sponsor Reklam
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.901
29/10/2008
916
Ankara
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
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ü 
Sponsor Reklam
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
  Formdan Çıkıldığında Metin Kutularını Temizlenmesi Hk. Yardım sadooo 20 318 11/05/2017, 22:59 sadooo
Photo Arama Kutusu Hakkında Yardım AloneX 6 121 05/05/2017, 13:52 AloneX
  Kasa Hareketleri İçin Yardım Tablodan Tabloya Otomatik Ekleme uMits 35 483 12/04/2017, 19:21 uMits
Sad Access'te Oluşturulan Formun Tablette Kullanılması Konusunda Destek damacanasu 2 133 11/04/2017, 10:29 murat dikme
  Msgbox Kullanımı hknct 2 73 13/03/2017, 21:56 hknct


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status