Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
08/04/2009 12:14
Konu Sahibi
nacre
Yorumlar
6
Okunma
4045
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ı: 39)
Cevapla

C*e*l*o*y*c*e

Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.986
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Bugün,19:46
Çö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ı: 84)
Cevapla

mehmetdemiral

.
Kullanici Avatari
Uzman
M.... D....
4.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
21/09/2017,23:03
Çö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ı: 90)
İ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


Kullanici Avatari
Altın Üye
1.715
01/11/2008
416
-
Ofis 2003
24/12/2016,00:18
Çö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.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
21/09/2017,23:03
Çö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ü Otomatik Yapmak sormaneden07 3 112 12/09/2017, 16:59 sormaneden07
Çözüldü Kayıt Silme Hatası burhanb 6 186 08/09/2017, 14:01 burhanb
Çözüldü Müşteri İşlemlerini Tek Formda Takip U.ALTUN 7 371 05/09/2017, 09:10 U.ALTUN
Çözüldü Sürekli Formda Kayıt Girdisi Üstte Olması Yardım... bilservisci 13 365 28/08/2017, 01:42 bilservisci
Çözüldü Formdaki Kaydı Farklı Formda Yeniden Kayıt U.ALTUN 7 336 21/08/2017, 12:04 direnist

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.