mükerrer kayıt kontrolü olan formda düzeltme yapmak isteyince mukerrer uyarısı
Tarih
08/04/2009 12:14
Konu Sahibi
nacre
Yorumlar
6
Okunma
3378
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



nacre
Üye
Kullanici Avatari
Üye
10
4
28/01/2009
0
İstanbul
Ofis 2003
29/08/2009,20:39
Çözüldü 
selam arkadaşlar,
musterilistefrm formumda yeni kayıt için ekle ,eski kayıtta değişiklik için düzelt ve silmek için sil butonu var.Ekle ve düzelt butonlarına basıldığında musterifrm formum açılıyor bu formda Gurubu açılan kutusunun boş geçilmemesi için uyarı verdiremedim bir de Adı metin kutusunda mükerrer kayıt kontrolü var bu kontrol yeni kayıtlarda sorun çıkarmıyor fakat eski bir kayıtı düzeltme yapmak için açtığımda mevcut kayıt mükerrer kayıt olarak görüyor. bu iki sorunuma cevap verirseniz sevinirim
kolay gelsin


Ek Dosyalar
.rar   DENEME.rar (Dosya Boyutu: 34,81 KB / İndirme Sayısı: 35)
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,13:29
Çözüldü 
Sanırım istediğin bu şekilde kontorl edin


Ek Dosyalar
.rar   DENEME-Celoyce cevap.rar (Dosya Boyutu: 34,42 KB / İndirme Sayısı: 78)
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.732
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
Bugün,02:10
Çözüldü 
Sayın Nacre

Önce neden açılan kutuda boş denetimi yapamadığınızı söyleyeyim. Çünkü oradan çıkışta if ile yaptığımız tüm işlemlerde null veya "" olmasına göre kod yazıyoruz. Oysa sizin açılan kutunuz 2 sütunlu ve görünmeyen sütununuzda da "0" var. Yani varsayılan sıfır olduğu için, if ifadesi içine "0" ı da almak gerekiyordu. Ben de açılan kutunun çıkıldığında olayına şu kodu yazdım:


Kod:
If IsNull(Me![musterigurubkodu]) Or Me.musterigurubkodu = "" Or Me.musterigurubkodu = 0 Then
MsgBox "Alana veri giriniz"

End If


Dikkat ederseniz alanın hem null (yokluk) hem "" (boşluk) ve "sıfır" olma durumlarında uyarı veriliyor. Sonra da bir sonraki alana girildiğinde

Kod:
If IsNull(Me![musterigurubkodu]) Or Me.musterigurubkodu = "" Or Me.musterigurubkodu = 0 Then
Me.musterigurubkodu.SetFocus
End If


yazarak alandan çıkılmamasını sağladım.

Gelelim kayıt ve değişiklik durumuna. Bir modül içine global bir değişken tanımladım. Adı memo. Siz yeni kayıt tuşuna basınca memo=1, değişime basınca memo=2 değerini aldı. Eğer yeni kayıt tuşuyla açılmışsa memo= 2, değişiyorsa memo= 1 değeri aldığı için artık if ile ne yapmak isterseniz yapabilirsiniz. Buna bağlı olarak Ok tuşunuzun kodlarını şöyle yaptım:

Kod:
1
2
3
4
5
6
7
8
9
If memo <> 2 Then
MsgBox "Girmekte Oldugunuz " _
& SID & " isimi Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"
Exit Sub
Else
End If
End If


Gördüğünüz gibi mükerrer kayıt uyarısı vermek için memo=2 olmamalı.

Bu arada Ramazan aylarında yumurtalı-susamlı pide yapanlar kullandıkları o kadar yumurtanın beyazını ne yaparlar diye sorayım? Tabii ki ATOM adındaki beyaz tatlıyı yaparlar. Biz de bir atom yapalım dedik ve bir etiketin captionuna case select ile
"Yeni Kayıt Yapılıyor" ya da "Kaydı Değiştiriyorsunuz" ifadelerini form current olayına yazdık. O da eşantiyondur. Para istemezImg-grin)))

Kod:
1
2
3
4
5
6
Select Case memo
Case 1
Etiket32.Caption = " Yeni Kayıt Yapılıyor"
Case 2
Etiket32.Caption = " Kaydı değiştiriyorsunuz"
End Select



Ek Dosyalar
.rar   DENEME_MDEMİRAL.rar (Dosya Boyutu: 52 KB / İndirme Sayısı: 84)
İnadına, ille de Accesstr.net...
Cevapla


nacre
Üye
Kullanici Avatari
Üye
10
4
28/01/2009
0
İstanbul
Ofis 2003
29/08/2009,20:39
Çözüldü 
Sayın , C*E*L*O*Y*C*E ve mehmetdemiral cevaplarınız için teşekkürler.Bir kez daha yardımlarınızla sorunlarım çözüldü.mehmetdemiral açıklamalarınız ve Atom tarifiniz içinde ayrıca tesekkürler.
kolay gelsin
Cevapla


Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
29/10/2016,20:35
Çözüldü 
Teşekkürler Mehmet Hocam ve Celoyce Hocam ellerinize sağlık
Bizlerde bir şeyler öğreniyoruz sayenizde ...
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.732
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
Bugün,02:10
Çözüldü 
Konu tarafımdan Cevaplanmış Access soruları bölümüne taşınmıştır.
İnadına, ille de Accesstr.net...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Mükerrer Kayıt Hk. Serkan Çevik 2 69 01/12/2016, 22:37 Serkan Çevik
  Run-Time error "2450" uyarısı mmert06 3 117 01/12/2016, 21:00 accessdelisi
  Aynı Kişi adı ile Yeni Kayıt eklemek Mesut Kaytan 6 210 29/11/2016, 13:49 Mesut Kaytan
  Formda İsim yazdığımda tablodan veri gelmesi 53rize 6 153 27/11/2016, 13:36 53rize
  Access Formda Tümünü Seç Buton Olay Yordamı Ekleme ? mehami 7 294 25/11/2016, 18:36 mehami


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