SendKeys "{F5}" sorunu ve çoklu kayıtlardan sadece birini gösterme - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: SendKeys "{F5}" sorunu ve çoklu kayıtlardan sadece birini gösterme (/konu-sendkeys-f5-sorunu-ve-coklu-kayitlardan-sadece-birini-gosterme.html) Sayfalar:
1
2
|
SendKeys "{F5}" sorunu ve çoklu kayıtlardan sadece birini gösterme - berduş - 30/07/2014 iyi akşamlar, benim 2 tane sorum olacaktı 1 - SendKeys "{F5}" komutunu her çalıştırdığımda "numlock" tuşu açıksa kapalı kapalıysa açık oluyor, "numlock" tuşunun değerinin değişmesini nasıl engellerim? 2 - oluşturduğum sorguda aynı kayıtların değerinin toplanmasını nasıl sağlarım? mesela 1 haziran için 4 farklı yemek seçmişim ve bu yemeklerin üçünde ayçiçek yağı kullanılıyor benim amacım bu 4 farklı yemekte kullanılan malzeme miktarını hesaplamak ama bu hesabı yaparken bu 3 faklı yemekte kullanılan ayçiçek yağının toplam miktarını tek satıra yazmak. 1. yemekte 3 kilo domates ,5 kilo patlıcan ve 100gr ayçiçek yağı 2. yemekte 2 kg patates, 3kg tavuk ve 150gr ayçiçek yağı 3. yemekte 1kg pirinç, 2 kg mercimek ve 200gr ayçiçek yağı 4. yemekte ise 500gr mercimek, 1 kg bulgur ve 2 litre su malzeme Kullanılan malzeme İktarı domates 3 kg patlıcan 5 kg ayçiçek yağı 450gr (100 + 150 + 200) patates 2 kg tavuk 3kg pirinç 1 kg mercimek 2,5 kg (2+0,5) bulgur 1 kg Su 2 litre Cvp: SendKeys "{F5}" sorunu ve çoklu kayıtlardan sadece birini gösterme - mehmetdemiral - 30/07/2014 2. sorunuzun yanıtı için bazı uyarılar: Eğer yemek bazında malzeme toplamı almayacaksanız o zaman formda alttaki "malzemelist" liste kutusunu 3 sütun yapacaksanız. Çünkü hem malzemeleri yemeklerdeki toplamıyla isteyip hem de tek tek alamazsınız. Bu durumda o liste kutusunun Sql görünümü şöyle olacak:
İlk sorunuza henüz bakmadım. Onda nerede f5 yaptığınıza bakacağım. Gerekirse her f5 eyleminde aynı yöntemle Numluck açtırabilirsiniz. Yani senkeys kullanarak. Denediniz mi? Cvp: SendKeys "{F5}" sorunu ve çoklu kayıtlardan sadece birini gösterme - berduş - 30/07/2014 (30/07/2014, 20:22)mehmetdemiral yazdı: 2. sorunuzun yanıtı için bazı uyarılar: Eğer yemek bazında malzeme toplamı almayacaksanız o zaman formda alttaki "malzemelist" liste kutusunu 3 sütun yapacaksanız. Çünkü hem malzemeleri yemeklerdeki toplamıyla isteyip hem de tek tek alamazsınız. Bu durumda o liste kutusunun Sql görünümü şöyle olacak: verdiğiniz Sql komutu 2. sorumu (ve sormadığım 3. gizli sorumu) çözdü çok teşekkür ederim. ) (30/07/2014, 20:22)mehmetdemiral yazdı: İlk sorunuza henüz bakmadım. Onda nerede f5 yaptığınıza bakacağım. Gerekirse her f5 eyleminde aynı yöntemle Numluck açtırabilirsiniz. Yani senkeys kullanarak. Denediniz mi? 1. sorum için önerdiğiniz (eğer sizi yanlış anlamadıysam) aynı komutu 2 defa ard arda yazmayı daha önce denemiştim çalışmamıştı siz önerdikten sonra tekrar denedim ama maalesef hala aynı sorun devam ediyor, "numlock" kafasına göre takılıyor Cvp: SendKeys "{F5}" sorunu ve çoklu kayıtlardan sadece birini gösterme - mehmetdemiral - 31/07/2014 F5'i nerede kullandığınızı söylerseniz onda da yardımcı olmaya çalışırım. Ben aramayayım, s,z yazın lütfen. Bekliyorum. Cvp: SendKeys "{F5}" sorunu ve çoklu kayıtlardan sadece birini gösterme - berduş - 31/07/2014 1 - ilk kullandığım yer "tarihgir" metin kutusunda değişiklik olduğunda çalışıyor böylece belirtilen tarihe göre veri tabanını ve list boxların hepsini yeniliyor Private Sub TarihGir_Change() SendKeys "{F5}" 'SendKeys "{NUMLOCK}" 'DoCmd.RefreshRecord 'Me.SyList.Requery 'Me.Ara1List.Requery 'Me.OYlist.Requery 'Me.ara2List.Requery 'Me.AYList.Requery 'Me.Ara3List.Requery End Sub 2 - 2. kullandığım yer ise "sil" butonu kayıt silme onaylanınca yine veritabanını ve listboxları yenilemek için: Private Sub Sil_Click() x = MsgBox("Bu kaydı Silmek İstediğinize Emin misiniz?", vbYesNo + vbQuestion, "DİKKAT") If x = vbYes Then DoCmd.RunSQL " DELETE *" & _ " FROM MenuTbl" & _ " WHERE (((MenuTbl.Tarih)=[Formlar]![Menueklefrm]![TarihSil])" & _ " AND ((MenuTbl.Ogun)=[Formlar]![Menueklefrm]![OgunSil]) " & _ " AND ((MenuTbl.Yemek)=[Formlar]![Menueklefrm]![YemekSil]));" SendKeys "{F5}" Else Undo End If End Sub Cvp: SendKeys "{F5}" sorunu ve çoklu kayıtlardan sadece birini gösterme - mehmetdemiral - 31/07/2014 Siz F5 gönderme işini yanlış kullanıyorsunuz. Bu iş için klasör yeniler gibi f5 yapmaya gerek yok. O komutun yerine değiştiğinde olayına Kod:
docmd.requery 2. durumda da aynı şey geçerli.Yalnız oradaki kodlarınız hatalı. Öncelikle silme onayını göstermeyin. Bunun için siz kendiniz soru sordurun ve evet hayır durumuna göre silme ya da vazgeçme koyun.Bunu yapmışsınız ama tam değil. Mesela silmeyi onaylama penceresinde ilk soruya (msgbox ile sorduğunuz soruya) Evet deyip Eylem sorgusundaki soruya Hayır deyince hata döner. Debug ekranı gelir. Bu yüzden orayı da şöyle yapmalısınız: Kod:
Private Sub Sil_Click() Bu arada yerleştirdiği err_hata yapısını da kullanın kodlarınızda. Zarar etmezsiniz. Kolay gelsin. |