Skip to main content

#EvdeKal


Üst Formdan Alt Forma Veri Aktarma

Üst Formdan Alt Forma Veri Aktarma

Çözüldü #1
Herkese merhabalar;

Hatırlatma formunda bulunan "tekrarla" alanındaki ve "tekrar sayısı" alanındaki bilgilere göre alt forma bilgileri aktarmak istiyorum. örneğin; "tekrarla"=aylık seçtiğimde ve "tekrar sayısı" nı 3 seçtiğimde, alt forma aylık olarak 3 satır kaydı oluşturmasını istiyorum, bu seçenekte de belli olduğu üzere günlük, haftalık ve de yıllık olarak da alt forma kayıtları açmak istiyorum. Sitede bulunan örnekleri kendime uyarlamayı beceremedim. Yardımcı olabilecek arkadaşlara ve üstatlara şimdiden çok teşekkür ederim.
.rar Hatırlatıcı.rar (Dosya Boyutu: 148,72 KB | İndirme Sayısı: 8)
Son Düzenleme: 21/08/2017, 01:02, Düzenleyen: teo81a.
Cevapla
#2
Merhaba,

Butonun tıklandığında olayına aşağıdaki kodu yazarak deneyiniz.

Visual Basic Code
Dim GSurem As String
Dim GTekrar As Integer
Dim rs As New ADODB.Recordset

Select Case Me.TEKRARLA

	Case "Günlük"
	GSurem = "d"

	Case "Haftalık"
	GSurem = "ww"

	Case "Aylık"
	GSurem = "m"

	Case "Yıllık"
	GSurem = "yyyy"

End Select

Set rs = New ADODB.Recordset
rs.Open "HATIRLAT_ALT_TB", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

	For GTekrar = 0 To Me.TEKRAR_SAYISI - 1
		With rs
			.AddNew
			![HAT_ID] = Me.HAT_ID
			![TEKRARLA] = Me.TEKRARLA
			![TEKRAR_SAYISI] = Me.TEKRAR_SAYISI
			![NOT] = Me.NOT
			![SORUMLU_KISI] = Me.SORUMLU_KISI
			![DURUMU] = Me.ONCELIK
			![HAT_BASL_TARIHI] = DateAdd(GSurem, GTekrar, Me.TARIH)
			![HAT_BITIS_TARIHI] = DateAdd(GSurem, GTekrar + 1, Me.TARIH)

			.Update
		End With
	Next GTekrar
rs.Close
Set rs = Nothing
Me.HATIRLAT_ALT_FR.Requery

"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. 
Cevapla
Çözüldü #3
Merhaba;

Ozan bey çok ama çok teşekkür ederim, konu çözülmüştür çok sağolun. Tesekkur  10806
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da