Onay kutusu

[akd]

Merhaba arkadaşlar,
Her satıra yazıcıya gitmesi için bir onay kutusu eklemiştim,
bu onay kutularının hepsini birden nasıl onaylarım,
etiketlerin yanına bir onay kutusu kayup onu işaretleyince satırlardaki bütün onay kutularının işaretlenmesi nasıl yaparım.
İyi çalışmalar...

 

[beab05]

Merhaba;

Sorunuzu hiç net sormamışsınız. Eğer form üzerinde ise checkboxlar;

Dim ctl As Control

For Each ctl In Me.Controls
  If ctl.Tag = "[COLOR="Red"]bb[/COLOR]" Then ' alanın özelliklerinden tag (im) bb olarak yazılmıştır.
     ctl.Value = True
  End If
Next ctl

Eğer tabloda ise evet/hayır alanınız update etmeniz gerekir bunu da if..then..else ile istediğiniz şartlara bağlı olarak yapabilirsiniz...

Dim guncelle As String
guncelle = "UPDATE tablo_ismi SET kutuismi=TRUE;"
DoCmd.SetWarnings False
DoCmd.RunSQL guncelle
DoCmd.SetWarnings True

 

[akd]

Merhaba sayın Beab05,
Konrolu formda yapıyorum,
yukarıdaki kodu aşşagıdaki gibi yazdım ama, birşeyi anlamadım,
işaretleyecegim onay kutularını ismini nereye yazıyorum kodda
İşaretlenmesini istedigim onay kutusunun adı: Yazdir
kod bu şekilde iken hiç bir işlev yapmıyor.
yazdır onay kutusunun im 'ine bb yazdım yine aynı

Private Sub Onay123_Click()
Dim ctl As Control

For Each ctl In Me.Controls
If ctl.Tag = "bb" Then ' alanın özelliklerinden tag (im) bb olarak yazılmıştır.
ctl.Value = True
End If
Next ctl
End Sub

 

[beab05]

Merhaba;
Bu bir sürekli form mu ve alt form mu? Altform da yer almayan bir elemanla yapmanız gerekiyorsa; "For Each ctl In altform.Me.Controls" olması gerekir sanırım.

Üstünde işlem yapmak istediğiniz elemanların "im" ine "bb" yazamanız gerekli . Bu da demek oluyor ki imi "bb" olan bütün elemanlara bu kodu uygula. Sizin tasarımı hala anlayabilmiş değilim.!!

 

[akd]

onay kutusu

sürekli formda işlem yapıyorum,
ama dediginiz şeyleri yaptım,
yinede kod çalışmadı
formun resmi aşağıda

 

[beab05]

Olur o, bence sizin o seçenek kutuları için o formun dayandığı tabloda evet/hayır alanı da var!!

 

[akd]

sayın beab05, malesef form için verdiginiz kodu çalıştıramadım,
tablo için olanı kullandım,
Çok teşekkür ederim,
Bundada sorun, bütün tablodakileri onaylıyor,
halbuki ben formdaki müşterininkilerini onaylamak istiyordum.
İyi çalışmalar...

 

[beab05]

Merhaba;

Where şartıyla müşteriye göre de yapabilirsiniz.

”UPDATE tablo_ismi SET kutuismi=TRUE WHERE müsteri = ‘akd’”

gibi..

Siz istediğinize yakın örnek koymamakta ısrar ediyorsunuz. 1 tablo, 1 form hepsi buydu.

 

[remzi1991]

paylaşım için teşekkürler,
çok işime yaradı.

 

[akd]

Çok teşekkür ederim sayın beab05
İyi günler dilerim...

 

[assenucler]

Rica

Küçükte olsa, bunu bir örnek dosya üzerinde görmemiz mümkün mü? Öğrenmek adına... Teşekkürler.

 

[katastrof]

bende bu tip bir örnek arıyorum ama bulmadım bir türlü