Skip to main content

AccessTr.neT


Ü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ı: 9)
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.

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
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
Task