AccessTr.neT

Tam Versiyon: Üst Formdan Alt Forma Veri Aktarma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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. Tesekkur  10806