Form Açılıp Kapandıkça Boş Kayıt Yapıyor
Tarih
14/02/2011 15:51
Konu Sahibi
durkheim
Yorumlar
2
Okunma
1344
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
durkheim
Aktif Üye
Kullanici Avatari
Aktif Üye
320
13/09/2010
20
Belirtilmemiş
Ofis 2003
15/09/2013,13:39
Çözüldü 
Merhaba Arkadaşlar.
1-Ekteki formu açıp kapattığımda bile kayıt yapıyor. Toplam kayıt kısmı sürekli artıyor. Neden olduğunu anlayamadım. Metin kutularına "Adı alanı boş geçilemez" uyarısınıda ekledim ama olmuyor. Neden olabilir? Teşekkür ederim.



Ek Dosyalar
.rar   BOŞ.rar (Dosya Boyutu: 50,09 KB / İndirme Sayısı: 8)
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.592
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
Form özelliklerinden "Kapat Düğmesi" özelliğini Hayır olarak değiştir. Forma kapat butonu ekle. Butonun tıklandığında olayına

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
    If IsNull(txt_TC_KİMLİK_NO) Then
        Me.Undo
        DoCmd.Close
    Else
        If MsgBox("Değişiklikler Kaydedilsin mi?", vbYesNo, "Kaydediliyor...") = vbYes Then
            DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
            DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
            DoCmd.Close
        Else
            Me.Undo
        DoCmd.Close
        End If
    End If


kodunu yaz.


Ayrıca, "txt_TC_KİMLİK_NO" Metin kutusunun çıkıldığında olayındaki kodu aşağıdaki ile değiştir.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub txt_TC_KİMLİK_NO_Exit(Cancel As Integer)

Dim var_mi As Byte

If IsNull(txt_TC_KİMLİK_NO) Then
Exit Sub
    var_mi = DCount("TC_KİMLİK_NO", "KURULKARARI", "TC_KİMLİK_NO='" & Me.txt_TC_KİMLİK_NO & "'")
    
    If var_mi > 0 Then
    
        MsgBox "Bu TC Kimlik Numarası İle Daha Önce Kayıt Yapılmış. Kontrol Ediniz", vbCritical + vbOKOnly, "Mükerrer Kayıt"
        Me.txt_TC_KİMLİK_NO = Empty
        Me.txt_TC_KİMLİK_NO.SetFocus
        Else
        
        Me.Undo
                
    End If
  End If
End Sub


Cevapla

durkheim
Aktif Üye
Kullanici Avatari
Aktif Üye
320
13/09/2010
20
Belirtilmemiş
Ofis 2003
15/09/2013,13:39
Çözüldü 
Sayın Sledgeab yardımınız için çok teşekkür ederim.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Araç Takip kayıt sorunu IceMan7 10 615 18/05/2017, 19:12 ozanakkaya
  Tabloda Kayıt Yoksa Formu Açma barcins 3 112 16/05/2017, 11:20 barcins
  Formdan Tabloya Kayıt Butonu Ismail Kalan 7 162 14/05/2017, 12:21 atoz112
  Tekrarlanan Kayıt Ve Ortalama Sorunu ALTANs 2 105 26/04/2017, 12:06 ALTANs
  Kişisel Kayıt Paneli Oluşturma Hk. volger 9 378 22/04/2017, 19:53 atoz112


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