sekmeli formda aşılarda dönemsel devir yapma
Tarih
22/01/2012 13:51
Konu Sahibi
saglikci_salih
Yorumlar
13
Okunma
2270
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy



saglikci_salih
Aktif Üye
Kullanici Avatari
Aktif Üye
91
28/07/2009
17
Amasya
Ofis 2010
08/10/2015,00:57
Çözüldü 
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

Visual Basic Code
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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]
saglikci_salih, 28-07-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.033
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,19:25
Çözüldü 
"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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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]


Cevapla


saglikci_salih
Aktif Üye
Kullanici Avatari
Aktif Üye
91
28/07/2009
17
Amasya
Ofis 2010
08/10/2015,00:57
Çözüldü 
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.
saglikci_salih, 28-07-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.033
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,19:25
Çözüldü 
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

Visual Basic Code
[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.

Cevapla


omerdd
Üye
Kullanici Avatari
Üye
39
4
07/04/2009
0
Tekirdağ
Ofis 2007
06/11/2016,18:49
Çözüldü 
salih bey asm olarak mı yoksa toplam tsm bazındamı veri giriyorsunuz.
Denizin kenarına kadar, ayakların izi vardır. Ama denize girdikten sonra ne iz kalır, ne işaret.
Cevapla


saglikci_salih
Aktif Üye
Kullanici Avatari
Aktif Üye
91
28/07/2009
17
Amasya
Ofis 2010
08/10/2015,00:57
Çözüldü 
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.
saglikci_salih, 28-07-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  kayıtlarda arama yoluyla orantı kurarak hesap yapma mehmetb84 18 395 04/12/2016, 17:13 mehmetb84
  Liste kutusu işlem yapma ekleme silme de sorun nightashes 7 107 29/11/2016, 20:24 nightashes
  Formda İsim yazdığımda tablodan veri gelmesi 53rize 6 157 27/11/2016, 13:36 53rize
  Access Formda Tümünü Seç Buton Olay Yordamı Ekleme ? mehami 7 305 25/11/2016, 18:36 mehami
  access raporda guruplandır ve say işlevi yapma murat dikme 2 97 22/11/2016, 01:55 murat dikme


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya