AccessTr.neT

Bul · 27/04/2009, 09:04

personel.rar (Dosya Boyutu: 19,27 KB | İndirme Sayısı: 135)

selamün aleyküm arkdaşlar
yollamış olduğum programda bir sorunla karşılaştım.sorunum askerlik yapmışı tıkladığımda altına görev yeri,görev tarihi,görev süresi, sınıfı,rütbe,terhis yeri,terhis tarihi gelecek
tıklanmadığında da askerlik yapmış yazısı askerlik yapmamş olarak değişecek ve muhtemel gidiş gelecektir.

Bul · 27/04/2009, 09:30

Dosyanızı 2003 formatında ekleyecek olursanız daha fazla kişi bakabilir ve siz de daha çabuk yardım alabilirsiniz. Sitemiz üyelerinin % 90'lık bir bölümünün 2003 kullandığını düşününce, 2003 olarak eklemeniz sizin açınızdan daha iyi olacaktır...

Bul · 27/04/2009, 09:37

personel.rar (Dosya Boyutu: 15,95 KB | İndirme Sayısı: 95)

Bul · 27/04/2009, 09:44

1- Kodda Visible özelliğine başvurulan şey tablodaki alan değil formdaki denetimdir. Yani denetimin özelliğine başvurulur. Denetimlerinizin (Metin Kutusu, Açılan Kutu, Liste Kutusu vb) adlarını değiştirdim.

2- Etiket5 yoktu. Etiketin adını Askerlik_Etiket yapmışsınız galiba. Bir de onu değiştirdim. Hepsi bu...

Kod:

Private Sub askerlik_Click()

gorevyeri.Visible = False

gorevtarihi.Visible = False

gorevsuresi.Visible = False

sinif.Visible = False

rutbe.Visible = False

terhistarihi.Visible = False

terhisyeri.Visible = False



If askerlik.Value = False Then

If gorevyeri.Value <> "" Then

askerlik.Value = True

MsgBox "Personelin Görev Yeri tanımlı iken Askerlik Durumunu iptal edemezsiniz", , "Mantıksal Hata!"

Else

askerlik_Etiket.Caption = "Askerlik Yapmamış"



    gorevyeri.Visible = False

    gorevtarihi.Visible = False

    gorevsuresi.Visible = False

    sinif.Visible = False

    rutbe.Visible = False

    terhistarihi.Visible = False

    terhisyeri.Visible = False

    muhtemelgidis.Visible = True



Exit Sub

End If

End If



askerlik_Etiket.Caption = "Askerlik Yapmış"

    gorevyeri.Visible = True

    gorevtarihi.Visible = True

    gorevsuresi.Visible = True

    sinif.Visible = True

    rutbe.Visible = True

    terhistarihi.Visible = True

    terhisyeri.Visible = True

    muhtemelgidis.Visible = False

End Sub

Bul · 27/04/2009, 09:55

teşekkür edeerimmm

personel.rar (Dosya Boyutu: 15,95 KB | İndirme Sayısı: 72)

birşey daha sorabilir miyim?
formlarda personel bilgi giriş ekranında personel no nun yanında ara düğmesi var.orayı tıkldığımda kişi listesi geliyor.ondan birini seçtiğimde o kişi ile ilgili bilgiler o forma yazılcak...

Bul · 27/04/2009, 10:19

Bununla ilgili örnek koymamışsınız. Zaten örnek göndermenize de gerek yok. Ben size bununla ilgili bir örneğin linkini veriyorum: https://accesstr.net/konu-access-mimaris...1#pid16711

Bu linkteki örneğe bakarak yapılanı kendi örneğinize aktarın. O konuyu iyice okuyacak olursanız zaten bunu kendiniz yapabilirsiniz.

Hem Forum Kuralları gereği biz sadece "Balık tutmayı" öğretiyoruz. Balık vermiyoruz...

Kolay gelsin...

AccessTr.neT

personel program

personel program

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

Giriş yap

Hesap oluştur

Konu Linkleri