Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
21/08/2017 00:48
Konu Sahibi
teo81a
Yorumlar
2
Okunma
465
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

teo81a

Aktif Üye
1391
 38
 13
 68
 23/12/2008
0
 Düzce
 
 Ofis 2003
 02/05/2019,12:07
Çözüldü 
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.



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 481
 12.057
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,14:37
Merhaba,

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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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. 

teo81a

Aktif Üye
1391
 38
 13
 68
 23/12/2008
0
 Düzce
 
 Ofis 2003
 02/05/2019,12:07
Çözüldü 
Merhaba;

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




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Gruba Göre Form Çağırıp, Forma Ekleme magmar 8 199 21/05/2019, 12:28
Son Yorum: magmar
Çözüldü Kayıt Silindiğinde Silinenler Tablosuna Aktarma haziran4 4 114 20/05/2019, 11:58
Son Yorum: haziran4
Çözüldü Sorgulanacak Alanları Formdan Seçme Erhan5106 1 117 23/04/2019, 16:06
Son Yorum: Erhan5106
Çözüldü Access Formdaki Renkli Alanları Excele Renkli Olarak Aktarma IceMan7 6 378 10/04/2019, 15:27
Son Yorum: IceMan7
Çözüldü Access te başka bir dosyadan form aktarma te-kin 2 134 13/03/2019, 14:39
Son Yorum: te-kin

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.