Skip to main content

AccessTr.neT


Buton Click Yordam Kodları Textboxchange Yordamı İçin Nasıl Revize Edilir.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
7
407

Buton Click Yordam Kodları Textboxchange Yordamı İçin Nasıl Revize Edilir.

Çözüldü #1
Merhaba uygulamamda ınternet derslerinde gördüğüm arama metodunu kullanmıştım butonun tıklanma olayına yazılan kod Bulmak istediğim firmanın ID numarasını girerek firma bilgilerini forma getiriyordu fakat bu kod çok kullanışlı gelmedi. Ve ben Textboxın change olayına yazdığım kodla İstediğim firmanın bilgilerini Checkboxlar hariç forma getirdim. Check boxlardaki bilgileri forma nasıl getirebilirim. Yardımlarınız için teşekkür ederim.
[Resim: do.php?img=10916]
Kod
Private Sub ComboBox_FirmaUnvani_Change()
    
    Dim bul As Range, kontrol As Control
    For Each kontrol In Me.Controls
        
        If kontrol.Name <> Me.ComboBox_FirmaUnvani.Name Then
            Select Case TypeName(kontrol)
                Case Is = "TextBox": kontrol.Value = Empty
                Case Is = "ComboBox": kontrol.Value = Empty
                Case Is = "CheckBox": kontrol.Value = Empty
                
            End Select
        End If
    Next
    With ThisWorkbook.Sheets("Ana_Sayfa")
        Set bul = .Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)
        If Not bul Is Nothing Then
            Me.TextBox_FirmaAdi.Value = .Range("B" & bul.Row).Value
            Me.TextBox_YetkiliKisi.Value = .Range("D" & bul.Row).Value
            Me.TextBox_Telefon.Value = .Range("E" & bul.Row).Value
            Me.TextBox_Gsm.Value = .Range("F" & bul.Row).Value
            Me.TextBox_Email.Value = .Range("G" & bul.Row).Value
            Me.TextBox_Adres.Value = .Range("H" & bul.Row).Value
            Me.TextBox_Aciklama.Value = .Range("I" & bul.Row).Value
            Me.ComboBox_Bolge.Value = .Range("L" & bul.Row).Value
            Me.ComboBox_Temsilci.Value = .Range("M" & bul.Row).Value
            Me.ComboBox_Sehir.Value = .Range("K" & bul.Row).Value
            Me.ComboBox_Ilce.Value = .Range("J" & bul.Row).Value
            Me.ComboBox_RouteDay.Value = .Range("N" & bul.Row).Value
            Me.ComboBox_YetkiliBayilik.Value = .Range("O" & bul.Row).Value
            Me.TextBox_Tarih.Value = .Range("Z" & bul.Row).Value
            
'            Me.CheckBox_BioClimatic.Value = .Range("P" & bul.Row).Value
'            Me.CheckBox_CamBalkon.Value = .Range("Q" & bul.Row).Value
'            Me.CheckBox_CamTavan.Value = .Range("R" & bul.Row).Value
'            Me.CheckBox_FotoselliKapi.Value = .Range("S" & bul.Row).Value
'            Me.CheckBox_Giyotin.Value = .Range("T" & bul.Row).Value
'            Me.CheckBox_İsicamliSurme.Value = .Range("U" & bul.Row).Value
'
'            Me.CheckBox_Pergola.Value = .Range("V" & bul.Row).Value
'            Me.CheckBox_RuzgarKirici.Value = .Range("W" & bul.Row).Value
'            Me.CheckBox_TavanPerdesi.Value = .Range("X" & bul.Row).Value
'            Me.CheckBox_ZipPerde.Value = .Range("Y" & bul.Row).Value
            
            
        End If
    End With
    Set bul = Nothing
    
End Sub
.rar WINPERAX - Master.rar (Dosya Boyutu: 134,18 KB | İndirme Sayısı: 4)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 17/04/2021, 16:03, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#2
Abey Function evetmi_Hayirmi(deger) As Boolean bunu iptal ettim normalde çalışması gerekirken çalışmıyor gerçi sizde bağlamamışsınız ve yanılmıyorsam bu kod bana aitti Img-grin

Alttaki kodu ekledim onun yerine.Call checkboxxx(.Range("P" & bul.Row).Value, Me.CheckBox_AlbertGenau) bu şekide devam edin diğerleri içinde.

Ayrıca Case Is = "CheckBox": kontrol.Value = False    False yerine  Empty imiş onuda False yaptım hepsini temizlemesi için
Visual Basic Code
Sub checkboxxx(deger, checboxad As MSForms.CheckBox)
    If deger = "Evet" Then checboxad.Value = True
    If deger = "Hayýr" Then checboxad.Value = False
End Sub
.rar WINPERAX - Master.rar (Dosya Boyutu: 123,13 KB | İndirme Sayısı: 3)
Cevapla
#3
Bu Projenin kodlarının çoğu size ait zaten. Img-grin Made By Feraz... Mail olayı ile uğraşıyorum bir noktaya getirdim son noktayı koyup dediğiniz gibi Outlook açılmadan gönderilebilir mi diye soracağım foruma hayırlısı bakalım. Birazdan bu konuya dönüp dediklerinizi uygularım.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#4
Img-grin
Bu forumdaki Excel konuları ya bana yada @berduş hocamıza ait olmaya başladı Img-grin
Mail olayı bana kabus gibi gelmeye başladı Img-grin
Normalde mail yollama kalıbı aynı ben incelikleri yapmıştım abey.
Dahada mail olayına bulaşmam Img-grin
Önceki koddaki function naıl çalımaz hayret o yüzden sub içine yazdım.
Cevapla
#5
Feraz Hocam bende pes ettim. Herşey tamamdı outlooka gönderiyordum, kalan mail sayısınıda geri saydırıyor ve outlooka girip gönder al yaptığımda mailler gönderiliyordu taki mallerin sayın ibaresinin devamına "B" hücresindeki firma ismi yerine "C" hücresindeki ünvanı getirsin diye B leri C yaptım. Ne alakaysa maillerin geri sayımıda durdu gönderimide durdu. Yani yeminle başka birşey yapmadım bu işlem buna sebep oldu çıldıracağım. Outlookuda batsın mailide batsın batsın bu dünya offffffff.Img-grin Kaldırıyorum mail gönderim butonunu mail gönderimi olmadan devam edeceğim. Çok teşekkür ederim kusura bakmayın sayemde az daha dünyadan soğutacaktım sizi.

(17/04/2021 23:59)feraz Adlı Kullanıcıdan Alıntı: Img-grin
Bu forumdaki Excel konuları ya bana yada @berduş hocamıza ait olmaya başladı Img-grin
Mail olayı bana kabus gibi gelmeye başladı Img-grin
Normalde mail yollama kalıbı aynı ben incelikleri yapmıştım abey.
Dahada mail olayına bulaşmam Img-grin
Önceki koddaki function naıl çalımaz hayret o yüzden sub içine yazdım.
Benim gibi bahtsız bedevi olunca çalışmaz Feraz Hocam çalışmaz....
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 18/04/2021, 00:13, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#6
Img-grin
Abey yollamada felan sorun yok sadece outlooka gidince orda bekliyor bildiğiniz gibi.
Son br defa daha mail içn yeni konu açın son dosyayı ekleyin bakalım,zaten ömrmüzü yedi bu outlook Img-grin

Arkadaş bir Allahın kuluda yardıma gelmiyor takviye kuvvet için Img-grin
Önceden @berduş hoca vardı oda yok piyasda şimdi.
Son Düzenleme: 18/04/2021, 01:08, Düzenleyen: feraz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da