+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Personel Sorgulama (/konu-personel-sorgulama.html)
Sayfalar:
1
2
Personel Sorgulama - metin02 - 23/10/2017
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.
Cvp: Personel Sorgulama - direnist - 23/10/2017
Merhaba;
Kaydet butonuna ait kodların en altına Me.A1 = "" yazın.
İyi çalışmalar
Cvp: Personel Sorgulama - metin02 - 23/10/2017
Cevabınız için teşekkürler. Çözülmedi
Cvp: Personel Sorgulama - metin02 - 23/10/2017
Sorun kaydet butonunda değil. Temizle butonuna bastığımda ContactCount kutusunun da temizlenmesi.
Cvp: Personel Sorgulama - direnist - 23/10/2017
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
Cvp: Personel Sorgulama - metin02 - 23/10/2017
Teşekkürler. Şimdilik bir sıkıntı görünmüyor. Yarın sabah tam olarak inceleyebileceğim.