Etiketler
|
|
|
etiketleri topluca görünür yapma
|
iyi günler arkadaşlar
bir formumuz var diyelim
bunda 20-30 tane etiketvar
etiket1
etiket2
..
..
etiket30
bir metin5 kutusundaki değere göre bunların topluca görünüp gizlenmesini nasıl sağlarız yani mesala değer 15 ,18 ,22 olduğunda görünecek
5, 8,12 olduğunda gizlenecek
acaba şöyle olabilirmi
----------------------------
if metin5= 15 then
for a=1 to 30
etiket(a).visible=true
next
end if
-----------------------
yardımlarınız iiçin teşekkürler
|
Formları topluca güncellemek
|
İki adet formum var.Birincisinde asgari ücret miktarı ve vergi dilimleri yazıyor.İkincisinde kişisel işçi föyleri var ve yaklaşık 1900 föyden oluşuyor. Dlookup yöntemiyle föylerin bulunduğu formun açıldığında olayına ilk formdaki oranlar vasıtasıyla bordrolarını hesaplattırıyorum ve bağlı olduğu tabloya yazdırıyorum.Temmuz ayında yeni asgari ücret geçerli olacak.İlk formumda asgari ücreti değiştirdiğimde işçi föylerinde de değişecek,ancak değişiklik, föyleri manuel olarak tek tek açtığımda geçer
|
Topluca Aidat Borçlandırılması yaptırabilirmiyiz
|
Ek'te sunduğum Üye Takip Programında Aktif olan üyelere aidat borçlandırılmasını topluca yaptırabilirmiyiz.Saygılarımla
|
Defterler için yürüyen cilt ve sayfa numaralrının topluca tabloya kaydedilmesi
|
Gider pusulalarını Access üzerinden takip etmek istiyorum tek tek girdiğimde herhangi bir sorun yok. Fakat 50 tane defter aldığımda bunların topluca girilmesi kısmında takıldım biraz defterin Adı, Cilt nosu ve Sayfa Numaraları( 50 yapraklık ciltler) aldığım tarih alanlarını topluca girmem mümkün müdür.
Gider pusulası
Alım Tarihi 05.05.2014
Cilt No : 101
Şimdi bu 101 nolu ciltten 50 defter birden giriş yapmam lazım
101 : 0001-0050
101 : 0051-0100
101 : 0101-0150 adı alım
|
Control Özelliklerini Topluca Değiştir
|
topluca kontollerdeki özellikleri değiştirmek için
Dim semptomText As String
semptomText = tagName
Dim ctl As Control
For Each ctl In Me.Form
If ctl.ControlType = acComboBox Then
If InStr(1, ctl.Tag, tagName) <> 0 Then
ctl.Enabled = True
End If
End If
Next ctl
Set ctl = Nothing
burada controller var
[url=https://docs.microsoft.com/en-us/office/vba/api/access.accontroltype]https://docs.microsoft.com
|
Excelde Tüm Sutunları Boş Olan Satırları Topluca Nasıl Silebiliriz
|
iyi günler
excelde satır silip alttakileri bir üste kaydırmak ile sadece satır içindekileri silmek arasında bir fark var mı
kod ile nasıl yapıyoruz
|
Topluca Listbox Eklemek
|
İyi günler sn. @berduş ve sn. @feraz ın yapmış olduğu takvim formundan mükemmel bir ajanda olabilir.
bu takvim formuna resimdeki gibi listbox eklemek istiyorum. sn. @berduş un eklemiş olduğu
[vb]DoCmd.OpenForm "FrmDnm", acDesign
'''''''''''
'İsim CtTop CtLeft CtHeight CtWidth
' 0,499cm 0,501cm
'Btnilk 60 65 283 284
'BtnAlt 363 60 283 284
'BtnSag 63 360 283 284
'DkyAralik = 20 YtyAralik = 11
'DkyAralik = 17 YtyAralik = 11
'YtyAralik = Me.BtnSag.Left - (Me.Btnilk.Left + Me.Btni
|