Kod:
SELECT Stok.[No], Stok.Ürün, Stok.Fiyatı FROM Stok ORDER BY Stok.Ürün;
Sütun genişlikleri: 0cm;2,542cm;0cm
Açılır kutunun güncellenme sonrasında olayına aşağıdaki kodu yaz.
Kod:
Private Sub Ürün_AfterUpdate()
Me.Fiyatı = Me.Ürün.Column(2)
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub