Tüm kodları silip aşağıdaki kodu vb sayfasına ekleyin.

Sub Hesapla()

Select Case Me.Ünvan.Value

Case "Okul Müdürü"

	Me.a.Value = "0"

	Me.d.Value = "20"

	Me.f.Value = "0"

	Me.g.Value = "0"

	Me.c = Me.a

	Me.ç = Me.b

Case "Müdür Yardımcısı"

	Me.a.Value = "0"

	Me.d.Value = "18"

	Me.f.Value = "0"

	Me.g.Value = "0"

	Me.c = Me.a

	Me.ç = Me.b

Case "Ücretli Öğretmen"

	Me.a.Value = "0"

	Me.d.Value = "0"

	Me.f.Value = "0"

	Me.g.Value = "0"

	Me.c = Me.a

	Me.ç = Me.b

Case "Öğretmen"

    If Me.mkod = "Rehber Öğretmen" Then

		Me.a.Value = "0"

		Me.d.Value = "18"

		Me.f.Value = "0"

		Me.g.Value = "0"

		Me.c = Me.a

		Me.ç = Me.b

    ElseIf Me.mkod = "Sınıf Öğretmenliği" Then

		Me.a.Value = "18"

		Me.d.Value = "0"

		Me.f.Value = "3"

		Me.g.Value = "0"

		Me.c = Me.a

		Me.ç = Me.b

    ElseIf Me.mkod = "Okul Öncesi" Then

		Me.a.Value = "18"

		Me.d.Value = "0"

		Me.f.Value = "3"

		Me.g.Value = "0"

		Me.c = Me.a

		Me.ç = Me.b

    Else

		Me.a.Value = "15"

		Me.d.Value = "0"

		Me.f.Value = "2"

		Me.c = Me.a

		Me.ç = Me.b

  

		If Me.c.Value + Me.ç.Value = "30" Then

			Me.g.Value = "3"

		ElseIf Me.c + Me.ç >= 20 And Me.c + Me.ç <= 29 Then

			Me.g.Value = "2"

		ElseIf Me.c + Me.ç >= 10 And Me.c + Me.ç <= 19 Then

			Me.g.Value = "1"

		Else

			Me.g.Value = "0"

		End If

    End If

End Select

j = ç + d + e + f + g + ğ + h + ı + i



Me.a.Requery

Me.b.Requery

Me.c.Requery

Me.ç.Requery

Me.d.Requery

Me.f.Requery

Me.g.Requery

Me.j.Requery

End Sub

dana sonra Ünvan, mkod ve b metin kutularının çıkıldığında olayına

Call Hesapla

kodu ekleyin.

birkaç ders ve ünvan denedim problem gözükmüyor.

Deneyip bilgi veriniz.