AccessTr.neT

Bul · 26/06/2011, 10:41

öncelikle ilginize çok teşekkür ederim..eerkut, duayen, BlackEagle
özür dileyerek istediğim şeyleri tekrar yazmak istiyorum, yani yapamadıklarımı..
BlackEagle sizin yaptığınız tam istediğim gibi, fakat bilgiler bölümünü tam kontrol edemiyorum, üzerine bilgi eklemek ve bilgileri güncellemek çok zor. bu bölüm önemli bizim için.
2)bu formda aramada yapmak istiyorum. ad ve tc mesela.
3) hem kişileri tek tek arama yapabileceğimiz, hem de topluca görebileceğim bir yer olmasını istiyoruz.
şimdiden herkese teşükkür ediyorum...

Bul · 26/06/2011, 12:35

Örnek ekleyin

Bul · 26/06/2011, 12:55

yazdığım şeyleri bunda yapmak istiyorum abicim...ektedir...

Bul · 26/06/2011, 13:05

Kod:

Private Sub CommandButton1_Click()

    Dim FirstMatch As String, strVal As String, MyMsg As String

    Dim MyData As Variant

        If Len(TextBox1) >= 1 Then

            Set MyData = Columns("C").Find(TextBox1)

                If Not MyData Is Nothing T

Bu kodu denerminiz olumlu veya olumsuz dönersiniz tekrar