Açılan kutu sorunu

1 2 3
08/12/2015, 16:42

yenginoglu

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,
08/12/2015, 18:13

atoz112

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.
08/12/2015, 19:15

ozanakkaya

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
09/12/2015, 09:54

yenginoglu

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
09/12/2015, 21:28

ozanakkaya

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.
09/12/2015, 21:53

yenginoglu

hocam ellerine sağlık teşekkür ederim.
Konuyu taşıyabilirsiniz.

Saygılarımla,
1 2 3