Skip to main content

AccessTr.neT


Alt Formda İstenilen Sayıda Onay İşaretlenmesi

Alt Formda İstenilen Sayıda Onay İşaretlenmesi

Çözüldü #1
örnekte
alt formdaki onay kutularının istenilen sayıda işaretlenmesi
.zip onay.zip (Dosya Boyutu: 65,78 KB | İndirme Sayısı: 21)
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
#2
Öncelikle Tbl1 tablonuzda yon alanını arama sihirbazı seçip sol ve sağ değerlerini ekleyin. kaydedip kapatın, Daha sonra satış_onay formunuzu tasarım modunda açıp Yön açılır kutunun Güncelleştirme Sonrasında olayına aşağıdaki kodu ekleyin.

Kod:
Dim strSQL As String
strSQL = "UPDATE tbl1 SET tbl1.onay = True " & _
         "WHERE (((tbl1.Yön)=[Formlar]![SATIŞ_ONAYLA]![Açılan Kutu115]))"
    DoCmd.SetWarnings False
    DoCmd.RunSQL (strSQL)
    DoCmd.SetWarnings True
Me.alistansatisa.Requery
MsgBox "Belirtilen Yöndeki Tüm Kayıtlar Onaylanmıştır.", vbInformation + vbOKOnly, "SATIŞLAR"

 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
Cevapla
#3
hocam seçilen yöne ait tüm kayıtları işaretliyor(onaylıyor)
miktar yazan kutuya girilen miktar kadar işaretleme yapılması
talebim imkan varsa
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
#4
aşağıdaki kodu dener misiniz?
Me.alistansatisa.Requery satırının hemen üstüne eklenecek.
çalıştırmak istediğiniz diğer sorgunu amacını bilmediğimden ona dokunmadım gereksizse o kısım silinebilir
xSQL = " update tbl1 set onay=-1 " & _
" where alisNo in (select top " & Me.Metin149 & " alisNo from tbl1 where yön like ""*" & Me.Açılan_Kutu115.Value & "" & "*"") "
CurrentDb.Execute xSQL
Cevapla
#5
(03/06/2024, 12:38)berduş yazdı: xSQL = " update tbl1 set onay=-1 " & _ " where alisNo in (select top " & Me.Metin149 & " alisNo from tbl1 where yön like ""*" & Me.Açılan_Kutu115.Value & "" & "*"") "CurrentDb.Execute xSQL


mükemmel sayın berduş tam istediğim gibi bir çözüm olmuş ellerinize sağlık
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
#6
rica ederim
iyi çalışmalar
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task