Optionbutton değerinin seçilmesi

[ahmedummu]

Merhaba arkadaşlar.

Verilerimi Excel'e kaydedip geri textboxlara alırken bir sorun çıkmıyordu ama şimdi Access'e kaydediyorum. Kaydetmede bir sorun çıkmıyor fakat bilgileri text ve diğer nesnelere alırken option button değerleri yanlış değer alıyor. Aşağıdaki kodları denedim veri tabanında değer "BAY" olmasına rağmen BAYAN olan option button değerini seçiyor.

If rs.fields(24).Value = "BAY" Then
      OptionButton1.Value = True
      Else
      OptionButton2.Value = True
      End If

If rs("CINSIYETI").Value = "BAY" Then
      OptionButton1.Value = True
      Else
      OptionButton2.Value = True
      End If

 

[ahmedummu]

Tamam düzeldi arkadaşlar.

Birşey daha sormak istiyorum. Listbox1'deki isimleri Textbox30' a girilen isim ile filtrelemek istiyorum. Veri tabanına kayıt ve veri tabanı yolu kodlarını aşağıdadır.

  On Error Resume Next
       'VERİLER VERİ TABANI DOSYASINDAKİ BİLGİLER TABLOSU TANIMLANIYOR
       Set rs = CreateObject("ADODB.recordset")
       Tanimlanan = "SELECT * FROM [bilgiler]"
       rs.Open Tanimlanan, AdoCN, 1, 3
       rs.AddNew
    'VERİLER KAYDEDİLİYOR
    rs("ADISOYADI") = TextBox1.Text
    rs("TCNO") = TextBox2.Text
    rs("ANNEADI") = TextBox3.Text
    rs("BABAADI") = TextBox4.Text
    rs("DOGUMYERİ") = TextBox5.Text
    rs("DOGUMTARİHİ") = TextBox6.Text
    rs("GOREVEBASLAMATARIHI") = TextBox7.Text
    rs("OKULDABASLAMATARIHI") = TextBox8.Text
    rs("GOREVI") = ComboBox1.Text
     rs("EMSICNO") = TextBox9.Text
      rs("MALIYENO") = TextBox10.Text
      
      rs("STATU") = ComboBox2.Text
      rs("BRNS") = ComboBox3.Text
      rs("GDUR") = ComboBox4.Text
      rs("MD") = ComboBox5.Text
      rs("MK") = ComboBox6.Text
      rs("MTTAR") = TextBox11.Text
      rs("ED") = ComboBox7.Text
      rs("EK") = ComboBox8.Text
      rs("ETTAR") = TextBox12.Text
      rs("NUFKAYITIL") = TextBox13.Text
      rs("ILCE") = TextBox14.Text
      rs("MAH") = TextBox15.Text
      
      If OptionButton1.Value = True Then
      rs("CINSIYETI") = "BAY"
      Else
      rs("CINSIYETI") = "BAYAN"
      End If
      
      rs("HESAPNO") = TextBox16.Text
      rs("SUBEADI") = TextBox17.Text
      rs("IBANNO") = TextBox18.Text
      rs("GSMTEL") = TextBox19.Text
      rs("EVTEL") = TextBox20.Text
      rs("EPOSTA") = TextBox21.Text
      rs("GOST") = TextBox22.Text
      rs("EKGOST") = TextBox23.Text
      rs("OZHIZTAZ") = TextBox24.Text
      rs("TAZ74") = TextBox25.Text
      rs("EKODOR") = TextBox26.Text
      rs("ISGUCLUGU") = TextBox27.Text
      rs("ISRISKI") = TextBox28.Text
      rs("KANGURUBU") = ComboBox9.Text
      rs("DEVRESI") = ComboBox10.Text
      rs("BOSGUNU") = ComboBox11.Text
      rs("ACIKLAMA") = TextBox29.Text
    rs.Update
Call yukle
Call yukle1
rs.Close
Set rs = Nothing
MsgBox TextBox1.Value & " adlı kişi veritabanına eklendi. ", vbInformation, "Kaydet"

Yardımcı olursanız sevinirim.