Form Açılıp Kapandıkça Boş Kayıt Yapıyor
Tarih
14/02/2011 15:51
Konu Sahibi
durkheim
Yorumlar
2
Okunma
1318
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.189
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Dün,15:40
Çö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
  Metin Kutusu pasif iken formun işlem yapıyor gibi davranış sergilemesi murat dikme 10 252 28/12/2016, 17:05 murat dikme
  mükerrer Kayıt taha1234 7 225 25/12/2016, 03:17 taha1234
  Tabloya eklerken aynı kayıt varsa eklenmemesi. nightashes 4 134 18/12/2016, 18:09 nightashes
  Harita da Seçilen Checkbox ile Tabloya Kayıt sadikkavakli 2 140 10/12/2016, 15:42 sadikkavakli
  Form üzerinden hesaplanan alanın başka form üzerinden güncelleştirilmesi nightashes 16 314 08/12/2016, 21:40 alpeki99


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