AccessTr.neT

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

kursad05

ercansahin

kursad05

ercansahin