2- Etiket5 yoktu. Etiketin adını Askerlik_Etiket yapmışsınız galiba. Bir de onu değiştirdim. Hepsi bu...
Kod:
Private Sub askerlik_Click()
gorevyeri.Visible = False
gorevtarihi.Visible = False
gorevsuresi.Visible = False
sinif.Visible = False
rutbe.Visible = False
terhistarihi.Visible = False
terhisyeri.Visible = False
If askerlik.Value = False Then
If gorevyeri.Value <> "" Then
askerlik.Value = True
MsgBox "Personelin Görev Yeri tanımlı iken Askerlik Durumunu iptal edemezsiniz", , "Mantıksal Hata!"
Else
askerlik_Etiket.Caption = "Askerlik Yapmamış"
gorevyeri.Visible = False
gorevtarihi.Visible = False
gorevsuresi.Visible = False
sinif.Visible = False
rutbe.Visible = False
terhistarihi.Visible = False
terhisyeri.Visible = False
muhtemelgidis.Visible = True
Exit Sub
End If
End If
askerlik_Etiket.Caption = "Askerlik Yapmış"
gorevyeri.Visible = True
gorevtarihi.Visible = True
gorevsuresi.Visible = True
sinif.Visible = True
rutbe.Visible = True
terhistarihi.Visible = True
terhisyeri.Visible = True
muhtemelgidis.Visible = False
End Sub