Araç Takip programı hakkında.

1 2
25/06/2016, 18:40

IceMan7

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?
25/06/2016, 20:56

ozanakkaya

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.
01/07/2016, 23:00

atoz112

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.
10/07/2016, 14:29

atoz112

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.
21/05/2020, 14:46

Mikail Yılmaz

slm giriş bilgileri verebilirmisiniz
21/05/2020, 14:54

Mikail Yılmaz

,
1 2