AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Alt Formda İstenilen Sayıda Onay İşaretlenmesi

26/05/2024, 20:02

karaayhan

örnekte
alt formdaki onay kutularının istenilen sayıda işaretlenmesi
27/05/2024, 13:52

onur_can

Ö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"
27/05/2024, 20:22

karaayhan

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
03/06/2024, 12:38

berduş

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
03/06/2024, 21:41

karaayhan

(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
03/06/2024, 22:21

berduş

rica ederim
iyi çalışmalar