Skip to main content

AccessTr.neT


Personel Sorgulama

Personel Sorgulama

Çözüldü #1
Hayırlı akşamlar.
Ekte göndermiş olduğum dosyada personel sorgulama formunda personel sorgula sorgulandığında bulunan kayıt sayısı görüntüleniyor.
Sorun bulunan kayıtta güncelleme seçeneğini işaretleyip değişiklik yapıldıktan sonra kaydedip sorgu temizlenince bulunan kayıt kutusununda temizlenmesi. bunu nasıl çözebilirim. teşekkürler.
.rar PERSONEL.rar (Dosya Boyutu: 465,44 KB | İndirme Sayısı: 56)
Cevapla
#2
Merhaba;
Kaydet butonuna ait kodların en altına Me.A1 = "" yazın.
İyi çalışmalar
Cevapla
#3
Cevabınız için teşekkürler. Çözülmedi
Cevapla
#4
Sorun kaydet butonunda değil. Temizle butonuna bastığımda ContactCount kutusunun da temizlenmesi.
Cevapla
#5
Temizlenmesi derken tamamen boş olması ise o zaman Temizle butonu en altına Me.ContactCount = "" yazın.

Yok siz yine form açılışındaki gibi "1/7 Kayıt Bulundu" yazısına geri dönsün istiyorsanız zaten kodlarınız içinde de var olan aşağıdak kodu Temizle butonu kodları en altına yapıştırın. 
Güzel bir tasarım yapmışsınız ama kod tarafında buton isimlendirmeleriniz, değişken adlarınız ileride çok kafanızı karıştıracak. Keşke tasarımdaki sabır ve özeni koda tarafında da gösterseymişsiniz. Ama inşallah hiç sorun çıkmaz.
İyi çalışmalar.
Set rst = Me.RecordsetClone
       With rst
               .MoveLast
               If Not .EOF Then
                       intContactCount = Nz(.RecordCount, 0)
               Else
                       intContactCount = 0
               End If
       End With
       If intContactCount > 0 Then
               If Me.NewRecord = True Then
                       Me.ContactCount = "Yeni Kayıt -- " & intContactCount & " contact" & IIf(Expression:=intContactCount <> 1, truepart:="s", falsepart:=vbNullString)
               Else
                       Me.ContactCount = Me.CurrentRecord & " / " & intContactCount & " Kayıt Bulundu" & IIf(Expression:=intContactCount <> 1, truepart:=" ", falsepart:=vbNullString)
               End If
'        Else
'                Me.ContactCount = " Kayıt Bulunamadı"
       End If
Cevapla
#6
Teşekkürler. Şimdilik bir sıkıntı görünmüyor. Yarın sabah tam olarak inceleyebileceğim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task