AccessTr.neT

Seçildiyse Evet seçilmediyse hayir mi olacak

Resimden anladığım kadarıyla zaten bitir: den önce exit sub yazılacak ve exiet sub satırının üst satırına kodlar eklenecek bence.
Bitir olayını hata durumu için eklenmiş

ilgili alanları aşağıdaki gibi düzenleyip dener misiniz?

ComboBox_Ilce.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 10) = "Evet", True, False)

ComboBox_Sehir.Text = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 11) = "Evet", True, False)

ComboBox_Bolge.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 12) = "Evet", True, False)

ComboBox_Temsilci.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 13) = "Evet", True, False)

ComboBox_RouteDay.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 14) = "Evet", True, False)

ComboBox_YetkiliBayilik.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 15) = "Evet", True, False)

CheckBox_AlbertGenau.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 16) = "Evet", True, False)

CheckBox_AsasPen.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 17) = "Evet", True, False)

CheckBox_ByErtTente.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 18) = "Evet", True, False)

CheckBox_Karpen.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 19) = "Evet", True, False)

CheckBox_OptimalYapi.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 20) = "Evet", True, False)

CheckBox_Palmiye.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 21) = "Evet", True, False)

CheckBox_Rsg.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 22) = "Evet", True, False)

CheckBox_Vizyon.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 23) = "Evet", True, False)

CheckBox_Winsa.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 24) = "Evet", True, False)

CheckBox_Diger.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 25) = "Evet", True, False)

(10/03/2021, 14:23)Oğuz Türkyılmaz yazdı: [ -> ]arama butonu ile çağırdığımız eski kaydın tarih alanında Tarih Bilgisi 0 olarak geliyor.

siz fonksiyonu tarih alanına da atamışsınız

TextBox_Tarih.Value = Bosmu(Worksheets("Ana_Sayfa").Cells(SatirSil, 26).Value)

buradaki bosmu olmayacak

Berduş hocamızın dediği gibi tarih içinde bosmu fonksiyon eklenmiş ve bende teklemişim checkbox zannedip.
O satırı normal yapın.Birde fonksiyon adı daha mantıklı olması için Evet_Hayir gibi olabilir

Function Evet_Hayir(deger) As Byte

    ' 0 demek checkboxtaki tik olmayacak 1 se olacak demektir

    If deger = "Evet" Then Evet_Hayir = 0

    If deger = "Hayýr" Then Evet_Hayir = 1

End Function

Zaman bulmuşken kodlarınızı düzenledim tekrar eden kodları tek sub içine aldım ve kısaldı.
Düzelttiklerimden biride örneğin  alttaki "" yerine False yaptım.Zaten onuda soracaktınız silmede felan neden checkboxların tiki kalkmıyor diye

CheckBox_AlbertGenau.Value = ""

CheckBox_AlbertGenau.Value = False