Uyarı Mesajı Ekleme
Tarih
07/11/2009 15:48
Konu Sahibi
preconti
Yorumlar
3
Okunma
2297
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



preconti
Üye
Kullanici Avatari
Üye
18
3
21/03/2009
0
İstanbul
Ofis 2003
28/12/2015,19:30
Çözüldü 
hocam, ben aynı işlemi form yoluyla değilde, ekleme sorgusu vasıtasıyla yapmak istiyorum. Çünkü başka hesaplamalar var.
Neticede alınacak mesaj aynı: Tabloda mükerrer kaydı kabul etmeyen fiş numarası var.

Bu durumda sizin "Yeni kayıt ekle" butonuna eklediğiniz komut, nasıl olmalı?
Yani ben butona bastığımda, ekleme sorgusu çalışacak, tabloda mükerrer kayıt olup olmadığına bakacak. Varsa "mükerrer kayıt var" uyarısı verecek. Yoksa "x adet kayıt eklendi" uyarısı verecek.
preconti, 21-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ayhan2122
accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
Bugün,00:25
Çözüldü 
Örneği inceleyin. SeriNOsu kaçtan başlayacağı ve kaç adets satır ekleneceğini belirtin, mükerrer kayıtta ve kaç kayıt eklendiği bilgisi versin.


Ek Dosyalar
.rar   preconti.rar (Dosya Boyutu: 14,28 KB / İndirme Sayısı: 51)
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


preconti
Üye
Kullanici Avatari
Üye
18
3
21/03/2009
0
İstanbul
Ofis 2003
28/12/2015,19:30
Çözüldü 
Hocam, teşekkür ederim. Ancak tam olarak yapmak istediğim bu değil. Ekte gönderdiğim database de, Form2 den girdiğinizde ünite ve tarih seçildikten sonra, ekleme sorgusu çalıştırılıyor. Burada "mesaikontrol" alanında "yineleme yok" kısıtı var. Dolayısıyla mükerrer kayıt durumunda uyarı mesajı geliyor.
Ben,
-Mükerrerlik yok ise ilk 2 kayıt ekleme uyarı mesajı yerine "X adet kayıt eklenmiştir." şeklinde mesaj gelmesini,
-Mükerrerlik var ise 3.uyarı yerine "Mükerrer Kayıt Var" şeklinde kayıtların eklenmediğini gösteren mesaj gelmesini istiyorum.

Database ve resimler ekte.


Ek Dosyalar Ekran Görüntüleri
           

.mdb   preconti2.mdb (Dosya Boyutu: 252 KB / İndirme Sayısı: 12)
preconti, 21-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ayhan2122
accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
Bugün,00:25
Çözüldü 
Sn preconti;
Öncelikle Araçlar/Seçenekler tıkla ve açılan pencerede Düzen/Bul sekmesindeki Onayla çerçevesindeki EylemSorgularını kutucuğundaki işareti kaldır.

Gelelim çözüme.
Ölçüt olarak Form2 ('deki ölçütleri:UNITEKODU ve TARIH) 'yi alan ve kayıt kaynağı PERMESAI olan bir sorgu oluştur. PMSorgu diyelim buna.
Yine ölçüt olarak Form2yi alan, kaynağı PERSONEL olan ve kayıtları sayan bir sorgu daha oluştur. SQL:""SELECT Count(PERSONEL.TCNO) AS SayTCNO FROM PERSONEL WHERE (((PERSONEL.UNITESI)=[Formlar]![Form2]![UniteKodu])); Bu sorgunun adı da MTEklencekler olsun.
Komut4 (PERSONELİ LISTEYE EKLE) 'ün OlayYordamına:

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
Private Sub Komut4_Click()
On Error GoTo Err_Komut4_Click 'Bu satır hata durumunda gidilecek satır
'Koşulumuz;
If IsNull(DLookup("Kimlik", "PMSorgu")) Then 'PMSorguda listelenmiş kayıt var mı yok mu?? ve
'IsNull ise yani yoksa kayıt eklemeye uygundur demektir ,
'Kaç personel eklendiğini bulmak ve mesaj olarak göstermek için;
    MsgBox (DLookup("SayTCNO", "MTEklenecekler") & " personel eklendi")
'Ekleme Sorgusunu çalıştırmak için;
    DoCmd.OpenQuery "MESAITABLOSUNAEKLE", acNormal, acEdit
Else    'Şimdi koşulumuz olumsuz ise yani aynı ölçütlerde kayıt var ise;
'Hata için mesajımız;
    MsgBox "Mükerrer kayıt hatası" & ChrW(13) & _
           "Lütfen UNITEKODU ve TARIH kutularını kontrol ediniz."
'UniteKodu kutusuna yeniden odaklanması için kodumuz;
    UniteKodu.SetFocus
End If

Exit_Komut4_Click:   'ÇIKIŞ satırı
    Exit Sub

Err_Komut4_Click:
    MsgBox Err.Description ' Accessin hata iletisi
    Resume Exit_Komut4_Click     'ÇIKIŞ satırına dön
    
End Sub


Acaba oldu mu ? Img-grin

Ben yaptım oldu Img-grin

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
  Liste kutusu işlem yapma ekleme silme de sorun nightashes 7 105 29/11/2016, 20:24 nightashes
  Access Formda Tümünü Seç Buton Olay Yordamı Ekleme ? mehami 7 301 25/11/2016, 18:36 mehami
  Tablo dan Açılır Kutu ya alınan verilerek Sabit Ekleme yapma ask200075 7 269 21/11/2016, 18:49 ask200075
  Sorgudaki değişime göre formda uyarı vermek mehmetb84 4 144 16/11/2016, 23:08 mehmetb84
  Liste Kutusuna Kayıt ekleme mmert06 6 195 28/10/2016, 22:59 mmert06


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