(01/12/2015, 09:56)yenginoglu yazdı: her presin değerleri farklı olduğu için aynı ürünün farklı tablolardan yani 2 nolu presin değerleri TBL_URUNLER-2 tablosunda 3 nolu presin değerleri TBL_URUNLER-3 nolu tablodan tüm değerlerin gelmesi.
ekli dosyayı güncelledim.

Sayın yenginoglu, daha önce belirtmiştim. 2 nolu pres tblurunler2, 3 nolu pres tblurunler3 demişsiniz, ancak örnek uygulamanızdaki tablolarda veri yok. açılan kutudan 1'i seçtiğimizde verileri nereden alacak, tblurunler1 isimli tablo yok.



Açılan kutunun güncelleştirme sonrasında olayındaki tüm kodlar hatalı, tamamını sildim. Yerine

Dim GPresNo As Integer



If Me.PRES.Column(0) = "1" Then

GPresNo = ""

Else

GPresNo = "-" & Me.PRES.Column(0)

End If



Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("TBL_URUNLER" & GPresNo)

If rs.RecordCount <> 0 Then



With rs



Me.PRESADI = .Fields("PRES_ADI")



End With

Else



Me.PRESADI = ""



End If

rs.Close

Set rs = Nothing

şeklinde kod ekledim.
Açılan kutudan 3'ü seçerseniz 3. tablodaki PRES_ADI alanındaki veriyi aktarır.