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
3519
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ü 
Sponsor Reklam
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ı: 37)
Cevapla

C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.862
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Bugün,01:20
Çö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ı: 82)
Cevapla

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.750
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
13/02/2017,02:22
Çözüldü 
Sponsor Reklam
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
24/12/2016,00:18
Çözüldü 
Sponsor Reklam
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.750
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
13/02/2017,02:22
Çö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
Çözüldü Altformda Yeni Kayıt-Kaydet Vb İşlemler koruyucu 2 62 16/02/2017, 20:00 koruyucu
  Formda İskonto Veya Kdvden biri Girildiğinde Geliş Fiyatı Değişsin haziran4 2 45 15/02/2017, 12:19 haziran4
  Formda Veri girişi yapılan bir alanın raporda gözükmemesi murat dikme 2 34 15/02/2017, 06:10 murat dikme
  Kayıt Kontrol Eksik Verileri Bulma Ve Hesaplama hknct 10 114 11/02/2017, 18:11 hknct
  Tüm Kayıtları Kontrol Edip Düzeltme hknct 16 238 10/02/2017, 09:39 hknct


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