+- 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ığı: Araç Takip programı hakkında. (/konu-arac-takip-programi-hakkinda.html)
Sayfalar:
1
2
Araç Takip programı hakkında. - IceMan7 - 25/06/2016
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?
Cvp: Araç Takip programı hakkında. - ozanakkaya - 25/06/2016
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.
Cvp: Araç Takip programı hakkında. - atoz112 - 01/07/2016
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.
Cvp: Araç Takip programı hakkında. - atoz112 - 10/07/2016
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.
RE: Araç Takip programı hakkında. - Mikail Yılmaz - 21/05/2020
slm giriş bilgileri verebilirmisiniz
RE: Araç Takip programı hakkında. - Mikail Yılmaz - 21/05/2020
,