Hangi formdan bahsettiğnizi tam olarak anlayamasamda,
muayene bilgileri formunu açtığınızda yeni kayıt eklenmiş olarak form açılıyor.
Siz formdaki liste kutusunu tıkladığınızda
Me.PLAKA = Me.Liste376.Column(0)
Me.saseno = Me.Liste376.Column(3)
Me.motorno = Me.Liste376.Column(4)
Me.MARKA = Me.Liste376.Column(1)
Me.MODEL = Me.Liste376.Column(2)
Me.ŞOFÖR_ADI = Me.Liste376.Column(5)
Me.YIL = Me.Liste376.Column(7)
Me.TESCIL_TARIHI = Me.Liste376.Column(8)
Me.YAKIT_CINSI = Me.Liste376.Column(9)
Me.KATEGORI = Me.Liste376.Column(6)
Me.HESAP_NO = Me.Liste376.Column(10)
kodu çalıştığı için yeni kayıt eklemiş oluyorsunuz.
Bu kodun tamamını silin,
liste kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[PLAKA] = '" & Me![Liste376] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
ayrıca, bu kodda, liste kutusunun 1. sütunundaki veriye göre kayıt bulur.
kimlik bilgileri tablosuna otomatik sayı alanı ekleyip (birincil anahtar olmalı) liste kutusunun 1. sütununu yeni oluşturulan alan olarak belirleyin.
Şu anki haliyle, aynı plaka 2 kere girilirse sadece 1. plakayı görebilirsiniz.
Arama mevzusunun ilgili formunun ismini yazarsanız arama olayına çözüm bulabiliriz.