Skip to main content

AccessTr.neT


mükerrer kayıt kontrolü olan formda düzeltme yapmak isteyince mukerrer uyarısı

mükerrer kayıt kontrolü olan formda düzeltme yapmak isteyince mukerrer uyarısı

Çözüldü #1
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
.rar DENEME.rar (Dosya Boyutu: 34,81 KB | İndirme Sayısı: 43)
Cevapla
Çözüldü #2
Sanırım istediğin bu şekilde kontorl edin
.rar DENEME-Celoyce cevap.rar (Dosya Boyutu: 34,42 KB | İndirme Sayısı: 96)
Cevapla
Çözüldü #3
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:
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:
Select Case memo
Case 1
Etiket32.Caption = " Yeni Kayıt Yapılıyor"
Case 2
Etiket32.Caption = " Kaydı değiştiriyorsunuz"
End Select

.rar DENEME_MDEMİRAL.rar (Dosya Boyutu: 52 KB | İndirme Sayısı: 104)
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #4
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
Çözüldü #5
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
Çözüldü #6
Konu tarafımdan Cevaplanmış Access soruları bölümüne taşınmıştır.
İnadına, ille de Accesstr.net...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task