+- 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ığı: Kayıt Ekle Butonu (/konu-kayit-ekle-butonu.html)
Kayıt Ekle Butonu - Sümeyye_ - 16/12/2022
Merhabalar
1-cboMachineName ve cboCurrentUsers değer seçilirken Kayıt ekle butonuna tıklayınca sıfırlanmıyor.
2-Eklenen kaydı MachineName numarasına göre sıralamak istiyorum.
Örneğin ilk MachineName numaram A43569236556 bu.
ben ise A43569236557 kaydını yeni eklemek istiyorum.
Kaydın sona değil sırasına göre eklemek istiyorum
3-cboMachineName'e aramak için bir değer yazınca enter a basınca "Böyle bir kayıt yok" diye uyarı mesajı vermek istiyorum.
RE: Kayıt Ekle Butonu - berduş - 17/12/2022
(16/12/2022, 10:29)Sümeyye_ yazdı: 1-cboMachineName ve cboCurrentUsers değer seçilirken Kayıt ekle butonuna tıklayınca sıfırlanmıyor.o 2 alan ilişkisiz olduğu için silinmiyor makro yerine yeni kayda gitme kodunu eklerseniz o koda ekleyeceğiniz yeni kodlarla ilgili alanlar sıfırlanabilir
Me.cboMachineName = Null
Me.cboCurrentUsers = Null
DoCmd.GoToRecord , , acNewRec(16/12/2022, 10:29)Sümeyye_ yazdı: 2-Eklenen kaydı MachineName numarasına göre sıralamak istiyorum.bildiğim kadarıyla kayıt her zaman en sona eklenir ama siz verilerle işlem yaparken order by kodunu kullanarak kayıtları istediğiniz sıraya göre çağırabilirsiniz
RE: Kayıt Ekle Butonu - berduş - 17/12/2022
(16/12/2022, 10:29)Sümeyye_ yazdı: 3-cboMachineName'e aramak için bir değer yazınca enter a basınca "Böyle bir kayıt yok" diye uyarı mesajı vermek istiyorum.bunun için ilgili koda .NoMatch ile denetleme kodu eklenebilir. aşağıya kaba bir örnek ekledim
Me.RecordsetClone.FindFirst "[MachineName] = """ & Me![cboMachineName] & """"
If RecordsetClone.NoMatch Then
MsgBox "ilgili kaydı bulamadık."
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
cboCurrentUsers = Me.RecordsetClone!CurrentUsers
End Ifiyi çalışmalar