(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.