Access Ado İle Bağlantılı Comboboxlar Yardım

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

(14/01/2020, 16:06)berduş yazdı: nz() eğer içerik boşsa varsayılan olarak değer atamakta kullanılır
Nz(AlanAd,"Burda değer yok")--> eğer AlanAd alanı boş ise "Burda değer yok" yazar Yalnız alan özellikleriyle uymlu olması gereken durumlar olabilir
mesela alan eğer sayısalsa ve gösterileceği metin kutusu da sayısalsa siz metin aktarmaya çalışırsanız sorun çıkabilir

Sağolunuz açıklama için.
Normalde Len fonksiyonuda yeterliydi galiba accesste tam çalışmıyor.excelde sadece len kullanmak yeterli oluyor.

Akşama teferruatlıca inceleyeceğim.

Elinize sağlık çok güzel olmuş.Benim gereksiz kodları sildim.Ac ve Combo olanı.
ve NZ fonksiyonsuzda denedim ve çaloştı koddan sildim sizin belki hata verir yazınızdan dolayı.

3 adet OptionButton ekledim.Birini seçince sadece o işaretli olması gerekirken olmuyor yani hangi optionbuttonsa basarsam neden sadece o seçilmiyor.
Bu yüzden Class ile yapmaya çalıştım ve kod çalışmıyor.
Kolar altta.Acaba Class kodda hata nerede?

Ve neden optionbuttonlar bağımsız değil birbirinden?

Option Compare Database



Public WithEvents opt As OptionButton







Private Sub opt_Click()

    

    Dim xx As Control

    For Each xx In Forms("Listbox")

        If TypeOf xx Is OptionButton Then

          MsgBox xx.Name

        End If

    Next

    

End Sub







Dim kontrol() As New ClsCheckBox







Private Sub Form_Load()

    txtid.Enabled = False

    txtTelefon.InputMask = "\(000) 000\ 00\ 00"

  Call Ara

  

    

    Dim cont As Control

    Dim say As Integer

    

    For Each cont In Forms("Listbox")

        If TypeName(cont) = "OptionButton" Then

            say = say + 1

            ReDim Preserve kontrol(1 To say)

            Set kontrol(say).opt = cont

        End If

    Next

  

End Sub

Option butonları çerçeve içine al

(15/01/2020, 00:18)accessman yazdı: Option butonları çerçeve içine al

Çerçeveye alıncada olmadı.

Class işlemini CommanButton için uygulayınca çalışıyor çak garip olay.

Eğer Class ile olmazsa alttaki gibi kod yazdım onu kullanacağım artık uzun yoldan

Sub opt(xx As OptionButton)

    

    Dim cont As Control

    Dim say As Integer



    For Each cont In Forms("Listbox")

        If TypeName(cont) = "OptionButton" Then

            cont = False

        End If

        xx = True

    Next

    

End Sub



Private Sub optilk_Click()

    Call opt(ActiveControl)

End Sub



Private Sub optEsittir_Click()

    Call opt(ActiveControl)

End Sub



Private Sub Opticerik_Click()

    Call opt(ActiveControl)

End Sub

Önceki mesajdaki kodlarla dosyayı hazırladım.
Class olayı için yeni konu açmakta fayda var.

Teşekkürler herşey için.
Dosyayı ekleyeyim belki lazım olur birilerine ileride.

böyle olsa daha güzel olurdu

mesela isminde "ırım" olan aynı zamanda
soyismi "as" ile başlayan ve
yaşı "7" ye eşit olan bir aramayı nasıl yapacaksınız

iç içe bir kaç tane daha if else kullanarak kolayca yapılabilir

sadece seçenek grubuna örnek olması açısından ekledim
-sizin çalışmanıza dokunmadım eklediğim son örnek üzerinden yaptım.
seçenek butonları yerine seçenek grubu eklemeniz daha uygun olur
iyi çalışmalar[attachment=31184]
Not: ilgimi çekti sayın @feraz animasyonlu resim eklemeyi nasıl yaptınız)
daha doğrusu o animasyonu nasıl yaptınız

(15/01/2020, 08:29)accessman yazdı: böyle olsa daha güzel olurdu

Ben örnek olarak sade biçimde yaptım daha değiştireceğim sonradan.Birde optionbuttonların görüntüsü büyümüyor heralde(Label değil)

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19