AccessTr.neT

Sayın hocalarım ;

Kolay gelsin hayırlı ramazanlar. Çok soru sorduğumun farkındayım ama birşeyler öğrenmek didikleyerek kurcalayarak birşeyler yapmak istiyorum....

Simendifer arkadaşımızın yazmış olduğu araç takip programına bir kaç düzenleme yaptım. Ama bir kaç eksik yada gözümden kaçan ayar var. Misal bir aracı kaydediyorum. Sonra bakım menüsüne tıkladığım zaman en son kaydettiğim araç  2 tane oluyor. muayene butonuna tıklayınca 3 diğer butonlara sırayla tıkladıkça kaydettiğim son araç hep 1 artıyor.

C*e*l*o*y*c*e hocamım yazmış olduğu araç takip programından aldığım birkaç kısmı bu programa entegre etmeye çalışytım.

Mevlüt hocam senin araç takip programındaki arama kısmında şoför adı plaka araç ismi ne yazarsan yaz buluyordu. O butonu da bu programa ekledim fakat sadece o arama yerini çalıştıramadım sana zahmet olmazsa bakarmısın?

Sayın iceman7

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.

sayın IceMan7,

konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.

şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.site içi aramalarınız neticesinde sitede yer alan konuları ve örnekleri incelemelerinizin sonucu ile bazı gelişimler elde etmiş de olabilirsiniz...bilgilendirmek ister misiniz lütfen.teşekkürler.

bilginize...iyi çalışmalar,saygılar.

Konu;

gerek paylaşılan bilgiler neticesinde çözüme kavuşturuldu düşüncesi ile ve gerekse de
konu sahibinin zaman zarfında ayrıntılı geri dönüş bildirimleri olmaması nedeni ile,
(gerektiğinde konu sahibinin geri bildirim hakkı saklı kalmak üzere)

Cevaplanmış Sorular kategorisi içerisine taşınmıştır.

bilginize.

slm giriş bilgileri verebilirmisiniz

,