AccessTr.neT

Bul · 17/04/2021, 15:45

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

Bul · 17/04/2021, 23:13

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

Sub checkboxxx(deger, checboxad As MSForms.CheckBox)

    If deger = "Evet" Then checboxad.Value = True

    If deger = "Hayýr" Then checboxad.Value = False

End Sub

Bul · 17/04/2021, 23:18

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.

Bul · 17/04/2021, 23:59

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.

Bul · 18/04/2021, 00:11

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 yazdı:
Bu forumdaki Excel konuları ya bana yada @berduş hocamıza ait olmaya başladı
Mail olayı bana kabus gibi gelmeye başladı
Normalde mail yollama kalıbı aynı ben incelikleri yapmıştım abey.
Dahada mail olayına bulaşmam
Ö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....

Bul · 18/04/2021, 01:05

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.

AccessTr.neT

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

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

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

Giriş yap

Hesap oluştur

Konu Linkleri