Formada denetimlere buton yardımyla sayı yazdırmak

[serkandemirci]

Ekte gönderdiğm veri dosyasında butonlar yardımıyla denetimlere sayı yazdırmak istiyorum yanlız seçili öğrenciye yazsın
Teşekkürler

 

[serkandemirci]

ekteki dosyayı tekrar gönderiyorum

 

[gulsum1]

cevap

ben yaptım ama sen makrodaki sorguyu eğer kodda kullanırsan kendi mesajını yayınlayabilirsin

 

[serkandemirci]

çeçeve 60 olay kısmın ayazdığın kodun açıklaması ne

"DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70"

 

[gulsum1]

cevap

o kod sen tıkladığında veryi yazdıktan sonra formu güncelliyor yoksa bir ileri bir geri yapmadan verileri göremezsin bilirsin accessin tek problemi formu yenilemeden girdiğin veriyi göremiyon

o kodu unutma sana bir çok yerde lazım olacak istersen bir tek o kısmı sil ve dene 18 kaydı güncelemek üzeresiniz der tama dersin ama ekranda bir şey göremezsin taki bir sonraki kayda gidip sonra geri dönene kadar
işte o kod gidip gelme olayını kaldırıyor

 

[gulsum1]

cevap

kod bu

DoCmd.RunSQL "UPDATE Davranışlar SET Davranışlar.[2Dönem] = [Formlar]![DavranışGirişi]![Çerçeve60] WHERE (((Davranışlar.D_Id)=[Formlar]![DavranışGirişi]![No])); ", -1

 

[serkandemirci]

saygıdeğer gülsüm1

excel activcell diye bir durum var yada şöyle anlatayım imlecin içinde bulunduğu sütunu seçe biliyorsun ve ona göre kod yazabiliyorsun

şimdi benim istediğim şu gerek 1dönem gerekse 2 döneme not buton yardımyıla not verirken hangi denetim içinde ise o sütuna not versin bunu becerebilirmiyiz

 

[serkandemirci]

cevap yok mu arkadaşlar

 

[gulsum1]

cevap

forma bir toggle buton koy değeri 1 olunca banim yazdığım kod çalışşsın 0 olunca ilgili alana yazssın sana ne yapman gerektiğini söylüyorum çünkü eğer hepsini ben yaparsam sen bir şey öğrenemessin dene yapamassan ben yine yaparım hatta bekle bir iki güne kadar f1 f2 f3 tuşları ilede dediklerini yapan kodun olduğpu access kod deposunu ekleyecem

 

[serkandemirci]

Teşekkürler Gülsüm1
forma katkılarınız inanılmaz
iyiki varsınız
tabiki deneyeceğim hatta geçen gün bir kardeşimize tabi siz ve modalıdan öğrendiklerimizle haddimiz aşmadan sizin gibi arkaşlarımıza olan hayranlığı da dile getirerek yardım ettik ama inanılmaz bir tepkiyle karşılaştım ama yinede bildiklerimizi paylaştık

tekrar teşekkürler

"Bana bir harf öğretenin kırk yıl kölesi olurum" (Hz Ali)

 

[serkandemirci]

denedim fakat bir arpa boyu yola gidemedim,

yardım bekliyorum

 

[modalı]

Sayın serkandemirci,

Çözüm bazen deişik olabiliyor. Görünce ah ah nasıl düşünemdeim diyeceksiniz.

İyi çalışmalar

 

[serkandemirci]

çalışmanıza teşekürler

hocam gördüm yanlız siz her seferinde butonlara tıklayarak gösteriyorsunuz
ben ise o alnın bütün notlarını girmek istiyordum farklı ve güzel bir açıdan bakmışsınız bu uygulamayı başka yerlerde kullanabilirim fakat ben burda gülsüm1 verdiği cevapta olduğu gibi sonuç döndürsün istiyorum aynı zaman imleç 1 dönem üzerindeyken yada odaklanmışken notları birinci döneme versin
imleç 2 döneme odaklanmışken 2döneme not versin istiyorum bilmem anlatabildimi

 

[modalı]

Anlamadığım bir öğrencinin tüm notları aynı mı oluyor? Farklılık oluşmuyor mu?

 

[serkandemirci]

bazı öğrenciler her alanda iyidirler ve tümüne 3 verir öğretmen
tek tek vermek yerine hepsine birden vermek gerekiyor
okul programım olgunlaştı yardımlarınızla bitince yorumlarınızı isteyeceğim
teşekkürler

 

[modalı]

Bakın düğümeye bastığınız an fokus olayı düğümeye taşındığından ancak benim örnek de yaptığım gibi eğer ilk dönemi etkisiz hale getirirseniz o zaman ikinci döneme (terside mümkün) aynı notu yazdırabiliyorsunuz.

If txtdönem1.Enabled=True Then
txtdnem1=1 ' 2 veya 3
Else
txtdönem2=1
End If

gibi birşey olabilir.

İyi çalışmalar

 

[serkandemirci]

alimle oturan alim cahille oturan cahil olurmuş
sizi tanıdığıma çok memnum oldum kardeşim teklif halen geçerli
bizim burada iskender çok lezetli