Skip to main content

AccessTr.neT


Formüllerin forma veri işlerken çalışmama (güncellememe) sorunu

Formüllerin forma veri işlerken çalışmama (güncellememe) sorunu

Çözüldü #1
Değerli üstatlarım,
Ben okulda kullanmak üzere ücret onayı hazırlıyorum. Daha doğrusu hazırladım. Vba dan formülleri girdim. İlgili kutuların ve onay kutuların "güncelleştirme sonrasında" kısmına kodları oluşturdum. Form(Form Adı=Ücret Onayı alt2) içinse "Geçerli Olduğunda" kısmına kodları oluşturdum. Verileri girdiğim zaman veya değiştirdiğim zaman ilgili onay kutuları duruma göre anında güncelleniyor ancak değer yazması ve hesap yapması gereken kutular işlem yapmıyor. Bunun için forma YENİLE düğmesi de ekledim. Lakin yine hesaplama yapmıyor. Taki yaptığım kayıtları tek tek üzerlerine tıklayınca verileri hesalıyor. Hesaplama ve istenen veriyi yazm noktasında sıkıntı yok. Sıkıntı, bu işlemi veri girerken yapmaması. Örneklerde veri girişi yaptım ne demek istediğimi her bir satıra fare ile tıklayınca daha iyi anlarsınız. Yardımlarınız için şimdiden teşekkürler.

Ek Dosyalar
 ücretonayı2003.rar(139.32 KB)


Ek Dosyalar
 ücretonayı2010.rar(320.05 KB)
Gün gelecek herkes beni ve Access'i anlayacak!!!
Son Düzenleme: 20/01/2012, 02:50, Düzenleyen: kursad05.
Cevapla
Çözüldü #2
Onay kutularının olmadığını farzedersek, hesaplamanın neye göre yapılacağını kısaca anlatır mısınız ?
Cevapla
Çözüldü #3
(19/01/2012, 19:57)sledgeab yazdı: Onay kutularının olmadığını farzedersek, hesaplamanın neye göre yapılacağını kısaca anlatır mısınız ?

Tabi ki hocam.
Öncelikle [a]=[c] ve =[ç] olacak.
j= ç + d + e + f + g + ğ + h + ı + i (bu da son toplam olacak)

Onun haricinde geri kalan hesaplamayı ekteki excel(2003) dosyasında tablo halinde gösterdim.
En kısa şekilde ancak böyle anlattım hocam.
Ek Dosyalar
 hesaplama.xls(29 KB)
Gün gelecek herkes beni ve Access'i anlayacak!!!
Son Düzenleme: 19/01/2012, 20:44, Düzenleyen: kursad05.
Cevapla
Çözüldü #4
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.
Cevapla
Çözüldü #5
Hocam ben bu verdiğiniz kodları nereye yazacağım? Tüm kodları silip yapıştırdım olmadı. Modül olarak yaptım yine olmadı. yapıştırdığım zaman hepsi kırmızı renkte oluyorlar.
Gün gelecek herkes beni ve Access'i anlayacak!!!
Cevapla
Çözüldü #6
"Ücret Onayı alt2" formunun vb sayfasını aç, option compare database harici hepsini sil, Sub Hesapla() kodunu yapıştır.

Ek Dosyalar
 ücretonayı2003_sled.rar(126.21 KB)


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task