Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
22/01/2012 13:51
Konu Sahibi
saglikci_salih
Yorumlar
13
Okunma
2888
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
28/07/2009
17
Amasya
Ofis 2010
11/09/2017,16:14
Çö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....
 40
10.957
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,03:29
Çö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
28/07/2009
17
Amasya
Ofis 2010
11/09/2017,16:14
Çö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....
 40
10.957
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,03:29
Çö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
28/07/2009
17
Amasya
Ofis 2010
11/09/2017,16:14
Çö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ü Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme. antoryum 12 173 Dün, 11:13
Son Yorum: antoryum
Çözüldü Sürekli Formda Matematiksel İşlem Hatası te-kin 2 79 03/07/2018, 19:33
Son Yorum: te-kin
Çözüldü Formda Silinecek Veri Yokken Butona Basıldığında Silme Uyarısının Ekrana Gelmesi mmert06 2 134 01/07/2018, 23:55
Son Yorum: mmert06
Çözüldü Sürekli Formda Filtreleme Sorunu mmert06 4 128 01/07/2018, 19:32
Son Yorum: mmert06
Çözüldü Sürekli Formda Etiketlerin İçerisindeki Metnin Dikey Olarak Ortalanması mmert06 2 78 22/06/2018, 12:29
Son Yorum: mmert06

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