AccessTr.neT

Tam Versiyon: Formül Yardımı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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]
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
İ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.
Siz sağolun. Kolay gelsin. Saygılarımla