Form Açılıp Kapandıkça Boş Kayıt Yapıyor
Tarih
14/02/2011 15:51
Konu Sahibi
durkheim
Yorumlar
2
Okunma
1304
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.041
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:45
Çö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ü 
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
  Açılan kutuda seçilen ilk satır kayıt getiriyor sorunu nightashes 2 50 Dün, 18:23 nightashes
  Mükerrer Kayıt Hk. Serkan Çevik 2 76 01/12/2016, 22:37 Serkan Çevik
  Aynı Kişi adı ile Yeni Kayıt eklemek Mesut Kaytan 6 234 29/11/2016, 13:49 Mesut Kaytan
  Güncelleştirme Sorgusu Çalıştırınca Kayıt Kilit Hatası Hakkında shalala 2 54 23/11/2016, 00:39 shalala
  Evrak Kayıt uygulaması için nasıl bir yol izlemeliyim talebe10 7 231 06/11/2016, 13:57 atoz112


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