Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
14/02/2011 15:51
Konu Sahibi
durkheim
Yorumlar
2
Okunma
1539
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ı: 9)
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.883
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,19:18
Çö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
Çözüldü Formdaki Kaydı Farklı Formda Yeniden Kayıt U.ALTUN 11 391 19/10/2017, 17:29 U.ALTUN
Çözüldü Formdaki Kaydı Farklı Formda Yeniden Kayıt U.ALTUN 9 441 04/10/2017, 19:53 ozanakkaya
Çözüldü Sorgulama Sonrası Tabloya Mükerrer Kayıt U.ALTUN 2 119 30/09/2017, 11:27 U.ALTUN
Çözüldü Kayıt Silme Hatası burhanb 6 241 08/09/2017, 14:01 burhanb
Çözüldü Döneme Göre Kayıt Etme haziran4 5 230 17/08/2017, 08:22 haziran4

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