Form Açılıp Kapandıkça Boş Kayıt Yapıyor
Tarih
14/02/2011 15:51
Konu Sahibi
durkheim
Yorumlar
2
Okunma
1330
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ü 
Sponsor Reklam
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.306
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Dün,16:03
Çözüldü 
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ü 
Sponsor Reklam
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
Çözüldü Altformda Yeni Kayıt-Kaydet Vb İşlemler koruyucu 2 69 16/02/2017, 20:00 koruyucu
  Kayıt Kontrol Eksik Verileri Bulma Ve Hesaplama hknct 10 117 11/02/2017, 18:11 hknct
  Tablolara Tek Formdan Kayıt Girmek Ve Kayıtları Görmek ozer1971 5 56 09/02/2017, 13:32 atoz112
  Raporu Pdf Olarak Kayıt Etmek. m_demir 9 73 08/02/2017, 22:34 atoz112
Çözüldü bir kod ile birden fazla kayıt ekleme sfenksturk 4 1.184 31/01/2017, 12:44 atoz112


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