Skip to main content

AccessTr.neT


Harcırah Cetveli

Harcırah Cetveli

Çözüldü #1
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?
.zip sor Harcırah.zip (Dosya Boyutu: 30,86 KB | İndirme Sayısı: 12)
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
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ü?
Cevapla
#3
Combobox 2 ve 3' e göre ustam
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
Textbox4_Change olayını silip Textbox5_Cahnge olayında aşağıdaki kodu dener misiniz istediğiniz bu mu?

Visual Basic Code
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
Cevapla
#5
Ustam
Textbox4
i = CInt(TextBox7.Value)
kısmı bende hata veriyor. Rica etsem form içinde eklenerek yüklemeniz mümkün mü?
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
Bende bir hata vermiyor ekli dosyayı inceler misiniz lütfen?
.rar soru_editted.rar (Dosya Boyutu: 37,17 KB | İndirme Sayısı: 3)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da