Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
22/01/2012 13:51
Konu Sahibi
saglikci_salih
Yorumlar
13
Okunma
2934
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

saglikci_salih

Aktif Üye
Aktif Üye
 38
 91
 19
 28/07/2009
17
 Amasya
 
 Ofis 2010
 24/08/2018,17:28
Çö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.

Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 41
 11.274
 464
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:40
Çö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)




"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

saglikci_salih

Aktif Üye
Aktif Üye
 38
 91
 19
 28/07/2009
17
 Amasya
 
 Ofis 2010
 24/08/2018,17:28
Çö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.

Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 41
 11.274
 464
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:40
Çö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.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

omerdd

Hesap Aktif Değil
Aktivasyon Bekleyen
 41
 39
 4
 07/04/2009
 Tekirdağ
 
 Ofis 2007
 09/05/2018,22:37
Çözüldü 
salih bey asm olarak mı yoksa toplam tsm bazındamı veri giriyorsunuz.



Kullanici Avatari

saglikci_salih

Aktif Üye
Aktif Üye
 38
 91
 19
 28/07/2009
17
 Amasya
 
 Ofis 2010
 24/08/2018,17:28
Çö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.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Alt Formda Seçilen Kategoriye Göre O Kategoride Bulunan Ürünlerin Süzülmesi 001hacker 2 76 20/09/2018, 23:07
Son Yorum: 001hacker
Çözüldü Otomatik Kaydetme Ve Pasif Yapma Sorunu hey 5 239 15/09/2018, 09:06
Son Yorum: hey
Çözüldü Alt Formda Yeni Kayıt Açma notrino 1 117 23/08/2018, 09:46
Son Yorum: notrino
Çözüldü Sürekli Formda Seçili Satırın Renk Değiştirmesi ielmacilar 4 123 19/08/2018, 13:22
Son Yorum: ielmacilar
Çözüldü Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme. antoryum 17 420 07/08/2018, 08:37
Son Yorum: antoryum

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.