Üst Formdan Alt Forma Veri Aktarma

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.

Merhaba,

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

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

Merhaba;

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