Private Sub Liste16_DblClick(Cancel As Integer)
If URUNKODU = "" OR IsNull(URUNKODU) then Exit Sub '(veya If URUNKODU = "" AND SATILANMAL="" then Exit Sub gibi bir veya birkaç koula göre denetim ekleyebilirsiniz)
DoCmd.GoToRecord , , acNewRec
Me.URUNKODU = Me.Liste16.Column(1)
Me.SATILANMAL = Me.Liste16.Column(2)
Me.BIRIMFIYATI = Me.Liste16.Column(3)
Me.TOPLAMTUTARI = Me.ADEDI * Me.BIRIMFIYATI
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Liste22.Requery
End Sub
Aktarmakta olduğunuz verilerden hangisinde mutlaka değer olmak zorundaysa onun üzerinden bir kontrol ile yapabilirsiniz. Örneğin