Skip to main content

AccessTr.neT


Açılan kutu sorunu

Açılan kutu sorunu

#7
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,
Ahmet Yenginoğlu
Cevapla
#8
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#9
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

Cevapla
#10
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
Ahmet Yenginoğlu
Cevapla
#11
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.
Cevapla
#12
hocam ellerine sağlık teşekkür ederim.
Konuyu taşıyabilirsiniz.

Saygılarımla,
Ahmet Yenginoğlu
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task