Herkese günaydın. İşim gereği lazım olan ancak yapmayı bilmediğimden elimde bulunan bir programı değiştirerek acces üzerinde bir programı değiştirdim ancak eksiklikler var. Araştırdım ancak çözüme ulaşamadım. Program üzerinde yaptığım değişlikte aslında farazi düşünmüş oldum. Bir olayda bir müşteki, bir şüpheli de olabilir birden fazlada. Ben fazla olacağını düşünerek 3 er sekme yaptım ama bu sekmelerin tek kişi olduğunda görünmemesini istiyorum. Bunun içinde kaç müşteki ve şüpheli olduğuna dair sekmede yaptım. Bu sekmeye rakam yazıldığında o kadar sekmenin aktif hale gelmesini istiyorum. Birde yakınlığı diye bir buton var. Liste kutusundan yaptım, tablosunu da yaptım ama üzerine gelince yazamadım. Üç dört kez denedim o da olmadı. Ayrıca suçlar kısmı da eski programda yeni bir bilgi girişinde kayıt yapsın mı diye soruyordu ama bu sormuyor ve suçlar tablosuna yeni bilgiyi kayıt etmiyor. Bir de son olarak tedbir kararı geçen süre sekmesinde formülü yapamadım. Ben Excel gibi yapmaya çalıştım ancak bu günü excelde =bugün() yaptığımızda geliyor accesste de denedim ama olmadı, belki =date olur dedim oluyor ama çıkarma işlemi fonksiyonu eklemek istediğimde Ad! geliyor yani olmuyor.
1-Kısaca anlatmak gerekirse müşteki ve şüpheli sayısına göre sekmeler gizlenebilir mi?
2-Yakınlığı sekmesine bir şey yazamıyorum. Suçlar ve yakınlığı sekmesi sorgu tablosuna nasıl kayıt yapar?
3-Son olarak tedbir kararı bitiş tarihini nasıl formülize ederim?
Muhtemelen siz yardımcı olmak için buradan tarif edeceksiniz, ben deneyeceğim ve beceremeyeceğim ama ozan beyin dediği gibi tırmalamadan öğrenme olmaz.Yardımlarınızı bekliyorum. Şimdiden teşekkürler.
VBA şifresi:12
Form Üzerinde Sekme Gizleme
(13/12/2019, 09:41)270598 yazdı: 1-Kısaca anlatmak gerekirse müşteki ve şüpheli sayısına göre sekmeler gizlenebilir mi?evet gizlenebilir aşağıdaki kod işinize yarayabilir
If Me.Metin0 > 1 Then
Me.TabCtl2.Pages.Item(1).Visible = True
Me.TabCtl2.Pages.Item(2).Visible = True
Else
Me.TabCtl2.Pages.Item(1).Visible = False
Me.TabCtl2.Pages.Item(2).Visible = False
End If
(13/12/2019, 09:41)270598 yazdı: 2-Yakınlığı sekmesine bir şey yazamıyorum.denetim kaynağındaki =[YAKINLIĞI] yerine sadece YAKINLIĞI yazmayı deneyin
Not :çalışmanız hem şifre korumalı hem de başlangıçta tasarım ve düzenlemeyle ilgili alanların hepsi devre dışı bırakılmış.
şifreyi kaldırıp tasarım özelliklerini aktifleştirerek eklediğinizde çözüme daha kolay ulaşırsınız.
Not 2:her konunuzda tek soru sorun
not 3: forum kurallarını ve Yapılmaması Gereken Ölümcül Hatalar konularını mutlaka inceleyin.
Merhaba,
Dosya ektedir.
Bir de size tavsiyem, tablo ve alan adlarında türkçe karakter kullanmayın.
Dosya ektedir.
Bir de size tavsiyem, tablo ve alan adlarında türkçe karakter kullanmayın.
Herkes aynı şeyi düşünüyorsa, kimse yeterince düşünmüyor demektir
Sayın KJS program dediğim gibi olmuş lakin bir şey sormak istiyorum. Mesela müşteki sayısını girdiğimizde sekme kapanıyor ama form sekme açılıp kapandığında büyüyüp küçülmez mi? bu yapılabilir mi? yani sadece sayı girince sekme gizlenip açılması değilde formun genişleyip küçülmesi olmaz mı? Niye derseniz çok fazla sekme var ve ekrana sığmıyor.
formun ebatlarını belirlemek için formun yüklendiğinde olay yordamına
DoCmd.MoveSize 15900, 10200 yazarsanız bu ölçüde açılır
15900 genişlik 10200 yükseklik ölçüleridir siz kendi formunuzu istediğiniz ölçüye ayarlayınız
DoCmd.MoveSize 15900, 10200 yazarsanız bu ölçüde açılır
15900 genişlik 10200 yükseklik ölçüleridir siz kendi formunuzu istediğiniz ölçüye ayarlayınız
Konuyu Okuyanlar: 1 Ziyaretçi