AccessTr.neT

Ustam

Eğer ComboBox3 = Hizmet Sınıfı Eğitim Öğretim Hizmetleri Sınıfı ve ComboBox2= Öğretmen ise
TextBox7
a) Ek göstergesi 8000 ve daha yüksek olan kadrolarda bulunanlar TextBox8= 61,65
b) Ek göstergesi 5800 (dahil) – 8000 (hariç) olan kadrolarda bulunanlar TextBox8= 57,55
c) Ek göstergesi 3000 (dahil) – 5800 (hariç) olan kadrolarda bulunanlar TextBox8= 54,05
Eğer ComboBox3 = Hizmet Sınıfı Eğitim Öğretim Hizmetleri Sınıfı ve ComboBox2= Öğretmen değil ise
TextBox4
d) Aylık/kadro derecesi 1-4 olanlar TextBox8= 47,65
e) Aylık/kadro derecesi 5-15 olanlar TextBox8= 46,35

Sayfa1 de ki harcırah durumunu formda uygulamak istedim olmadı rica etsem yardım edebilir misiniz?

Merhaba Sayın @malatyalı

Örneğinizde textbox4'ün değiştiğinde olayında textbox8'e değer atamasına çalışmışsınız hangisi baz alınacak? Combobox2 ve 3 e göre mi işlem yapılmalı yoksa textbox4 mü?

Combobox 2 ve 3' e göre ustam

Textbox4_Change olayını silip Textbox5_Cahnge olayında aşağıdaki kodu dener misiniz istediğiniz bu mu?

Private Sub TextBox5_Change()

 Me.TextBox6.Value = gosterge(TextBox4.Value, TextBox5.Value)

 Me.TextBox7.Value = EKGOSTERGEBUL(ComboBox3.Value, ComboBox4.Value, TextBox4.Value, TextBox5.Value)

  

If ComboBox3.Value = "Eğitim Öğretim Hizmetleri Sınıfı" And ComboBox2.Text = "Öğretmen" Then GoTo 1

If ComboBox3.Value <> "Eğitim Öğretim Hizmetleri Sınıfı" And ComboBox2.Text <> "Öğretmen" Then GoTo 2



1

    Dim i As Integer

    i = CInt(TextBox7.Value)

    

    If i >= 8000 Then

    Me.TextBox8.Value = Sheets("Sayfa1").Range("C3").Value

    ElseIf i < 8000 And i >= 5800 Then

    Me.TextBox8.Value = Sheets("Sayfa1").Range("C4").Value

    ElseIf i < 5800 And i >= 3000 Then

    Me.TextBox8.Value = Sheets("Sayfa1").Range("C5").Value

    End If

    Exit Sub

    

    



2

    Dim j As Integer

    j = CInt(TextBox4.Value)



    If j <= 4 And j >= 1 Then

    Me.TextBox8.Value = Sheets("Sayfa1").Range("C6").Value

    ElseIf j <= 15 And j >= 5 Then

    Me.TextBox8.Value = Sheets("Sayfa1").Range("C7").Value

    Else

    MsgBox "Geçerli bir derece girmediniz"

    End If



End Sub

Ustam
Textbox4
i = CInt(TextBox7.Value)
kısmı bende hata veriyor. Rica etsem form içinde eklenerek yüklemeniz mümkün mü?

Bende bir hata vermiyor ekli dosyayı inceler misiniz lütfen?