(11-05-2015, 17:07)tolgooo17 demiş ki: hocam açıkcası bu dediklerinizide nasıl yapacağımı bilmiyorum yavaş yavaş öğrenme aşamasındayım örnek olması acısından ekli dosya üzerinde veya daha önce yapmış oldupunuz bir dosya var ise ekleyebilirmisiniz
![[Resim: attachment.php?aid=17288]](http://www.access-sql.com/attachment.php?aid=17288)
1. ARAÇ TAKİP formunu tasarlayip, tekli bicimine resimde ki gibi cevirin.
2. ARAÇ tablosuna odaklanip, form sihirbazi ile surekli form(Alt_Arac) olusturun.
3. ARAÇ TAKİP formunu yeniden tasarlayin, Alt_Arac surekli formu surukleyip, form alt bolumune yerlestirin ve form ust ve alt bolum bag kismi bos olmali.
4. Alt_Arac ayrinti bolumu paint olay yordamina
Private Sub Ayrıntı_Paint()
Me.Ayrıntı.BackColor = IIf(Me.NewRecord, vbWhite, IIf(Me.ARAÇ_BOŞALTMA_TAMAMLANDI = 0, vbWhite, vbYellow))
End Sub
yazin.
5. Ust form kaydini alt form uzerinde bulmasi icin ust form gecerli oldugu oly yordamina
Private Sub Form_Current()
If Me.NewRecord = False Then
Me.Alt_ARAÇ.Form.RecordsetClone.FindFirst "[SIRA NO]=" & Me.[SIRA NO]
Me.Alt_ARAÇ.Form.Bookmark = Me.Alt_ARAÇ.Form.RecordsetClone.Bookmark
End If
End Sub
ıle yapılabılır.
ARAÇ TAKİP V.1.0.1.rar (Boyut: 137,05 KB / İndirilme: 152)
Sizin orneginiz uzerinde ki VT inceleyebilirsiniz.