AccessTr.neT

Sekmeli formda "form 102a" formunda dönemsel devir yapabiliyorum.örnek doğum kontrol hapında ocak 2012 dönemindeki hapkalan değerini şubat 2012 döneminde hapdevreden değerine atıyabiliyorum. bunu aşağıdaki kod ile ve bir adet global bir modülle yapabiliyorum. global modüle kayıt ac yaptım ve

Option Compare Database



Global a, b, c 

bu kodları yazdım. lakin sekmeli formda aşılar sekmesinde bulunan formasi altformunun içindeki sekmeli formda form 13a arka yüz sekmesinde bu devri yapamıyorum. dabt kalan kodunu yazmama rağmen dabt devredene değeri gelmiyor. bir yerde yanlış yapıyorum kodları aşağı yazdım ve eklemeyi yapması gereken kodlar ise kalın renkli. nerede yanlış yapıyorum bulamadım yardımlarınızı bekliyorum.şimdiden teşekkürler.

Private Sub YeniKayit_Click()

On Error GoTo Err_YeniKayit_Click

Call Text_Ac

DoCmd.Requery

a = Me.hapkalan

b = Me.kondomkalan

c = [Formasi].Form![dabtkalan]

DoCmd.GoToRecord , , acNewRec

Me.id = Nz(DMax("id", "tblana"), 0) + 1

Me.Donem.SetFocus

Me.hapdevreden = a

Me.kondomdevreden = b

[Formasi].Form![dabtdevreden] = c

Me.hapdevreden.Locked = True

Me.kondomdevreden.Locked = True

[Formasi].Form![dabtdevreden].Locked = True

Exit_YeniKayit_Click:

    Exit Sub



Err_YeniKayit_Click:

    MsgBox ("Yeni Kayıt Oluşturulamadı")

    Resume Exit_YeniKayit_Click



End Sub

c = [Formasi].Form![dabtkalan]
[Formasi].Form![dabtdevreden] = c
[Formasi].Form![dabtdevreden].Locked = True

Ek Dosyalar

Ahaylık.rar(441.83 KB)

"tblasialt" tablosuna "tblanaid" adında alan ekledim.
"frmana" formundaki "Formasi" altformunun üst alanları bağla: id, alt alanları bağla: tblanaid olarak değiştirdim.
Yeni Kayıt butonunun tıklandığında olayındaki kodu aşağıdaki ile değiştirdim.

On Error GoTo Err_YeniKayit_Click

Call Text_Ac

DoCmd.Requery

a = Me.hapkalan

b = Me.kondomkalan

c = Nz(DLast("[dabtkalan]", "tblasialt"),0)

DoCmd.GoToRecord , , acNewRec

Me.id = Nz(DMax("id", "tblana"), 0) + 1

DoCmd.SetWarnings False

DoCmd.RunSQL "Insert Into [tblasialt] ([tblanaid],[dabtdevreden]) values ('" & Me.id & "'," & c & ")"

DoCmd.SetWarnings True

Me.Donem.SetFocus

Me.hapdevreden = a

Me.kondomdevreden = b

Me.hapdevreden.Locked = True

Me.kondomdevreden.Locked = True

Exit_YeniKayit_Click:

   Exit Sub



Err_YeniKayit_Click:

    MsgBox ("Yeni Kayıt Oluşturulamadı")

    Resume Exit_YeniKayit_Click

Ek Dosyalar

Ahaylık.rar(590.19 KB)

Sayın sledgeab yanlış izah ettim herhalde dönem ve ahidifk alttablo ilişkisi kalacak rapor ve sorgu için birde bütün hepsinin devri bir seferde yapılabilirmi

---

hocam kusura bakmayın soruyu sorarken tam izah edemediğimden dolayı bir kaç yerde yanlışlıklar oldu. Devreden oluyordu sadece dabt aşısında diğerlerini ekleyince olmadı hem dabt yapmadı hemde diğerleri birde dönemi ve de ahidifk yı eklemem gerekiyor dönemi altforma bağlantı olarak ekleyince devredenler bu sefer hiç çalışmıyor.Benim dönemi ve ahidifk yı alt forma eklemem gerekiyor sorguyu ben dönem üzerinden yapıcam raporları ve sorguları.Bunun düzeltmem için nasıl bir yol izlemem gerekiyor neler yapmam lazım bir daha yardımcım olursanız sevinrim.

Kayıt ekle butonuna tıkladığınızda henüz ahidifk ve dönem yazılmamış olduğu için c değerini aktaramazsınız.
Bu yüzden tabloya "tblanaid" ekledim. "Ahkodifk" ve "Donem" verisini alttabloya aktarmak için kaydet butonuna

[Formasi].Form![Donem] = Forms![frmana]![Donem]

[Formasi].Form![Ahkodifk] = Forms![frmana]![ahidifk]

kodu ekleyiniz. aşı sekmesinden dönem ve ahidifk yazdıktan sonra kaydet butonunu tıklarsanız girilen veriyi alttabloya gönderir.

salih bey asm olarak mı yoksa toplam tsm bazındamı veri giriyorsunuz.

Bu form asm ler için yaptığım formdur. Aile sağlığı elemanlarının yanlış ve eksik veri vermesinden sıkıldım. Bu sebeble bu formu yaptım. Ben TSM Veri girişi Sorumlusuyum. Daha sonra TSM içinde yapacağım bir form var. Ben Sağlık Memuruyum ve Aylık Çalışma Tsim ahbs sorumluluğu bende veri girişleri eksiksiz ve tam olmalı.verilerin düzgün olmasını istiyorum.daha önce Excel kullanıyordum. formüllerle aram iyi lakin accesse geçtiğimden beri derdim bitmedi.Bu form bitsin artık. bundan sonra bu forma göre TSM Formunu yapacağım. Ama Access illallah dedirtti. Bizim Sağlık Bakanlığında devreden kalem çok örnek aile planlaması malzemeleri,d vitamini, demir damlası, vs vs. hele birde aşılar varki sormayın. aşılarda 8 kalem önemli aşı var. bunlar ocak ayında misal 10 pentaxim 10 kpa 15 td aşısı var diyelim şubata girdiğimizde şubat ayına devretmesi gerekiyor sağolsun sayın sledgeab epey yardımcı oldu lakin kendisine karşı hata yaptım zannedersem.yanlış yol izledik. çalışmada bir türlü düzen almadı. hala devirlerde sıkıntı yaşıyorum. ya ne zor işmiş vb ve Access le çalışmak. excelde bağ yapıştır davası vardı bir sıkıntı olmuyordu. accesste çok zor işmiş bu.aşıların devirleri canımı sıkıyor böyle giderse aşı kısmını çıkaracam çalışmadan. devredenlerin hepsini Excel e aktarmayı planlıyorum. Tsim diye veri giriş sitemiz var sağlık bakanlığının .bu site visual basicle yapılmış bir site. onda nasıl oluyorda bu kadar detaylı devir işlemi yapabiliyorlar anlamadım.