Hocam ilginize tşk. ederim.
evet farklı mamulkodu olacak where nereye eklenmesi gerekiyor.
birde bu komutta hata veriyor. If rs.Record
DCount <> 0 Then
Saygılarımla,
sayın yenginoglu,
Alıntı:...birde bu komutta hata veriyor. If rs.Record DCount <> 0 Then...
ifadenize yönelik olarak,sadece bir düzeltmede bulunmak adına;
sayın ozan bey kodları eklerken sanırım size cevap yazabilmiş olması için aceleye gelmiş olacak ki,BOŞLUK olarak yazılmıştır.
yapmanız gereken;ilgili satırdaki kodu
If rs.RecordCount <> 0 Then
şeklinde değiştirmektir.
bilginize...iyi çalışmalar,saygılar.
Kodun tamamını aşağıdaki ile değiştiriniz
Kod:
Dim GPresNo As Integer
GPresNo = "-" & Me.PRES.Column(0)
Dim rs As DAO.Recordset
Sorgu = "TBL_URUNLER" & GPresNo
Set rs = CurrentDb.OpenRecordset("SELECT Kimlik, * FROM [" & Sorgu & "] WHERE [MAMULKODU]=" & "'" & Me.MAMULKODU & "'")
If rs.RecordCount <> 0 Then
With rs
Me.PRESADI = .Fields("PRES_ADI")
Me.OC1 = .Fields("OC1")
Me.OC2 = .Fields("OC2")
Me.OC3 = .Fields("OC3")
Me.OC4 = .Fields("OC4")
Me.OC5 = .Fields("OC5")
Me.OC6 = .Fields("OC6")
Me.OC7 = .Fields("OC7")
Me.YOLLUK_AD = .Fields("YOLLUK_AD")
Me.YOLLUK_TIPI_SOGUK = .Fields("YOLLUK_TIPI_SOGUK")
Me.YOLLUK_TIPI_SICAK = .Fields("YOLLUK_TIPI_SICAK")
Me.BOYA_ADI = .Fields("BOYA_ADI")
End With
Else
MsgBox ("prese ait veri bulunamadı")
End If
rs.Close
Set rs = Nothing
Hocam çok teşekkür ederim. Aynı ürün kodunu açtığımda en son hangi presi açtım ise o kayıtlar geliyor. Presi değiştirdiğimde en son presin bilgileri kalıyor açıldığında boş gelmesini nasıl sağlayabilirim.
Saygılarımla,
Ahmet Yenginoğlu
Açılan kutudan 2 nolu presi seçtiğinizde ürün-2 tablosunda aynı mamulkodlu veri yok ise metin kutularındaki veri değişmiyor.
Eğer bundan bahsediyorsanız kodda bulunan
MsgBox ("prese ait veri bulunamadı") kodu yerine
Me.PRESADI = ""
Me.OC1 = ""
Me.OC2 = ""
Me.OC3 = ""
Me.OC4 = ""
Me.OC5 = ""
şeklinde kod eklemeniz gerekli.
Mevzu bu değil ise, örneklendirerek yeni örnek uygulama ekleyiniz.
hocam ellerine sağlık teşekkür ederim.
Konuyu taşıyabilirsiniz.
Saygılarımla,