AccessTr.neT
Üst Formdan Alt Forma Veri Aktarma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Üst Formdan Alt Forma Veri Aktarma (/konu-ust-formdan-alt-forma-veri-aktarma.html)

Üst Formdan Alt Forma Veri Aktarma - teo81a - 21/08/2017

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.

Cvp: Üst Formdan Alt Forma Veri Aktarma - ozanakkaya - 21/08/2017

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


Cvp: Üst Formdan Alt Forma Veri Aktarma - teo81a - 21/08/2017

Merhaba;

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