Skip to main content

AccessTr.neT


Excel Userform Combobox'dan Secilen Kayda Ait Bilgileri Çekmek.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
12
907

Excel Userform Combobox'dan Secilen Kayda Ait Bilgileri Çekmek.

#7
(21/03/2021, 12:07)feraz yazdı: ThisWorkbook.Sheets("ORDER_LIST")
        Set bul = .Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)

Burdaki sayfa ismini ve aranacak alanı değiştirip denermisiniz benim müsait olacağım zamana kadar.
Ayrıca sadece change kısmına yazmak yeterli.
Change olmayınca bir de exit olayında deneyeyim demiştim. Kodunuzu incelemeyip bodoslama yazmasaydım eğer Order_List sayfasında arama yaptırdığınızı keşfeder ve o sayfayı ana_sayfa sekmesi ile değiştirmeyi akıl edebilirdim ama acele etmişim. Bu şekilde halloldu Feraz hocam ama günün tarihi maalesef combodan seçim yapılınca siliniyor.
[Resim: do.php?img=10818]
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 21/03/2021, 12:49, Düzenleyen: Oğuz Türkyılmaz.
#8
(21/03/2021, 07:58)Oğuz Türkyılmaz yazdı: If kontrol.Name <> Me.ComboBox_FirmaUnvani.Name Then
Burayada tarih silinmemesi için şart yazarmısınız
and kontrol.name<>....tarihtextboxu.name
Gibi abey.
Tarihtextboxunu attım kafadan.
Name yazılmasın derseniz  çift tırnak içinde sadece adı yazılmalı.
#9
Feraz hocam tarih sorununu da

exit yordamına yazdığım kodla çözdüm. Tekrar teşekkürler.

Private Sub ComboBox_FirmaUnvani_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox_SiparisTarihi = Format(Date, "dd.mm.yyyy")

End Sub

(21/03/2021, 12:54)feraz yazdı:
(21/03/2021, 07:58)Oğuz Türkyılmaz yazdı: If kontrol.Name <> Me.ComboBox_FirmaUnvani.Name Then
Burayada tarih silinmemesi için şart yazarmısınız
and kontrol.name<>....tarihtextboxu.name
Gibi abey.
Tarihtextboxunu attım kafadan.
Name yazılmasın derseniz  çift tırnak içinde sadece adı yazılmalı.

Yanıtınızı kendi çözümümü yazdıktan sonra gördüm hemen deneyeyim.
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 21/03/2021, 13:29, Düzenleyen: Oğuz Türkyılmaz.
#10
Feraz hocam sizin çözümü beceremedim benim yazdığımla halloldu nasılsa, benim çözüm çok abes değilse uğraşmanıza gerek yok zaten . Tekrar Teşekkürler
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 21/03/2021, 13:32, Düzenleyen: Oğuz Türkyılmaz.
#11
Alttaki gibi olacaktı abey.

If kontrol.Name <> Me.ComboBox_FirmaUnvani.Name And kontrol.Name <> Me.TextBox_SiparisTarihi.Name Then

Yada

If kontrol.Name <> "ComboBox_FirmaUnvani" And kontrol.Name <> "TextBox_SiparisTarihi" Then
#12
(21/03/2021, 13:39)feraz yazdı: Alttaki gibi olacaktı abey.

If kontrol.Name <> Me.ComboBox_FirmaUnvani.Name And kontrol.Name <> Me.TextBox_SiparisTarihi.Name Then

Yada

If kontrol.Name <> "ComboBox_FirmaUnvani" And kontrol.Name <> "TextBox_SiparisTarihi" Then

Feraz Hocam uyguladım gayet güzel çalışıyor. Tekrar teşekkürler. Konuyu taşıyabilirsiniz.
Access Çekirgesi 
[Resim: img-cray.gif]


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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task