If Len(cboSehir & "") < 1 Then GoTo son
hocam IlceAktar yordamındaki If cboSehir ="" Then GoTo son satırı da aşağıdaki gibi değişmeli bence; kaydet dedikten sonra açılır kutular boşaldığında bende hata verdi