sayın haziran4,

'Tıklandığında



If Len(DLookup("uygulama_adi", "gecici_tbl_ilaveler", "uygulama_adi='" & Me.CboBacalar.Column(2) & "'")) > 0 Then

Me.Undo

MsgBox ("Bu kayıt mevcuttur."), vbCritical, "MÜKERRER KAYIT UYARISI"

Exit Sub

Else

DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO gecici_tbl_ilaveler (uygulama_adi,daire,satis_fiyati,vadeli_fiyati) VALUES ('" & Me.CboBacalar.Column(2) & "','" & Me.BacaAdet & "','" & Me.BacaSatisFiyat & "','" & Me.BacaSatisFiyatVadeli & "')"

DoCmd.SetWarnings True



Me.Liste177.Requery

End If

ilgili olay yordamı içerisindeki kodları,yukarıdaki kodlar ile değiştirerek kullanınız.

NOT
.COLUMN(2) kullanımının açıklaması şu:
sayısal değerin olmasının nedeni Me.CboBacalar şeklinde yazıldığında Açılan Kutu(ComboBox) denetimin ilk sütun değerinin yazılması demektir.

fakat,eğer bu denetimin içerisindeki herhangi bir sütun değeri aktarılmak isteniyorsa (talebinizde geçerli olan UrunAdi sütunu gibi);o zaman,içeriğinde çoklu sütun değeri barındıran ComboBox ya da Listbox denetimlerinde ilk sütun 0 (Sıfır) olarak sayılır ve sonrasında gelen ilk sütun 1 ile başlar ve devamında diğerleri 2,3,4,... diye ilerler.

ÖRNEK
Me.CboBacalar adlı denetimin içeriğinde (SQL Sorgusunda),

UrunID,UrunGrup,UrunAdi ve ToplamGelisFiyati adlı sütunlardan oluşan 4 adet alan mevcut.bunları sayarken;
0,1,2,3 diye sayılır.

sizin talep ettiğiniz sütun sayı değeri 2 dir.

dolayısı ile de,ilgili kod satırında kullanılan Me.CboBacalar.Column(2) kod ifadesi de bu sütuna denk gelen değerdir.bilginize...iyi çalışmalar,saygılar.