msgbox konusunda yardım
Tarih
21/10/2010 13:27
Konu Sahibi
nekeba
Yorumlar
9
Okunma
1907
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.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çö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.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,14:13
Çö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
Dün,00:25
Çö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
  Sorguda kriteri boş bırakma için yardım. okumas 3 174 24/09/2016, 11:43 okumas
Exclamation ACCES mde yardim Mehemmed Fehradli 3 169 24/09/2016, 00:18 ozanakkaya
  access Formu Tam ekran yapma yardım Onur Akgül 10 414 06/08/2016, 20:39 atoz112
  STOK TAKİP PROGRAMI YARDIM. IceMan7 6 478 21/06/2016, 15:16 atoz112
  Msgbox genel bilgi megasoftware 4 233 25/05/2016, 21:55 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya