Formül Yardımı

09/01/2010, 18:32

kursad05

Arkadaşlar, çalıştığım milli eğitim müdürlüğünün istatistik verileri için bir program hazırlıyorum. Son haliyle programı ekte sundum ancak

[attachment=6248]

resimde personel bilgilerini girerken mesela ünvanını Müdür olarak setiğimde aşağıdaki istatistik bölümünde Ünvanı Bölümündeki Müdür Onay kutusunun otomatik olarak seçilmesi için bir formül yazmak istedim başaramadım. Yani Ünvanı bölümüne ne seçerse aşağıdaki istatistik bölümünde yer alan ilgili kutunun otomatik olarak seçili olabilmesi için bir formül lazım. Bilgisi olan arkadaşlar yardımcı olabilirler mi bana? Şimdiden Teşekkür ederim ilgilenen herkese...
[attachment=6247]
09/01/2010, 18:48

ercansahin

Lütfen deneyin..

Kod:
Private Sub Form_Current()
If Me.Ünvanı = "Müdür" Then
Me.Müdür_Onay.Value = "-1"
Else
Me.Müdür_Onay.Value = "0"
End If

Private Sub Ünvanı_AfterUpdate()
If Me.Ünvanı = "Müdür" Then
Me.Müdür_Onay.Value = "-1"
Else
Me.Müdür_Onay.Value = "0"
End If
End Sub

Diğerleri için siz düzenlemelisiniz...Ben sadece Müdür'e yönelik düzenledim. Saygılarımla
09/01/2010, 18:57

kursad05

İlk başta hata verdi. En altta ki tane end sub vardı. Onlardan birini Private Sub Ünvanı_AfterUpdate() ifadesinin üzerine taşıdığım zaman çalıştı. Gayetde güzel oldu. Sağolasın hocam. Ellerin yüreğin ve beynin dert görmesin.
09/01/2010, 18:58

ercansahin

Siz sağolun. Kolay gelsin. Saygılarımla