Skip to main content

AccessTr.neT


personel program

fatmanur_fna_
fatmanur_fna_
9
4651

personel program

Çözüldü #1
.rar 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.
Cevapla
Çözüldü #2
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...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #3
.rar personel.rar (Dosya Boyutu: 15,95 KB | İndirme Sayısı: 95)
Cevapla
Çözüldü #4
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

NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #5
teşekkür edeerimmm
.rar 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...
Son Düzenleme: 27/04/2009, 10:12, Düzenleyen: fatmanur_fna_.
Cevapla
Çözüldü #6
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...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da