Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
30/01/2019 19:15
Konu Sahibi
zaferlacin
Yorumlar
3
Okunma
228
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
zaferlacin

zaferlacin

Aktif Üye
56243
Za.... La....
 50
 17
 58
 11/08/2013
0
 Balıkesir
 Emekli
 Ofis 2016 64 Bit
 Dün,23:29
Çözüldü 
Herayın = malzeme girişin her ayın 1 yada 3-5 oluyor

tablo2 ye her ayın 27 ile 29 günlerinde girenleri aktarmak istiyorum
ayın 1 ile 31 olan tarih seçimlerimde sıkıntı yok
lakin örneğin ilk seçimim 30.01.2019 ile 4.02.2019 olunca yani ayar farklı olunca 30 u ile 4'ü arası değil 4'ü ile 30'u arasını getiriyor

nasıl bir sorgu yapmalıyım 

teşekkürler



haliliyas

haliliyas

Uzman
65596
Ha.... Ya....
 26
 1.155
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,02:28
sorun tablonuzun yapısıyla ilgili olabilir, tablonuzda sadece günler var ve hangi gün hangi aya ait belli değil. tablonuzda ayları/yılları  belirten bir alan olmadığından bu haliyle istediğiniz verileri almayı başaramazsınız gibime geliyor



...........
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.099
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,02:59
Merhaba, butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Kod:
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
Dim rs As DAO.Recordset
A1 = InStr(Me.Metin3, ".")
Me.Metin1 = Left(Me.Metin3, A1 - 1)

A2 = InStr(Me.Metin4, ".")
Me.Metin2 = Left(Me.Metin4, A2 - 1)




Me.Recordset.Requery
Set rs = Me.RecordsetClone

DoCmd.SetWarnings False 'Hata vermemesi için gerekli




If Val(Me.Metin1) > Val(Me.Metin2) Then

DoCmd.RunSQL "INSERT INTO Tablo2 ( kimlik, malzeme, Herayın ) SELECT kimlik, malzeme, Herayın FROM Tablo1 WHERE (((Herayın)>=" & Me.Metin1 & " Or (Tablo1.Herayın)<=" & Me.Metin2 & "));"

Else


DoCmd.RunSQL "INSERT INTO Tablo2 ( kimlik, malzeme, Herayın ) SELECT kimlik, malzeme, Herayın FROM Tablo1 WHERE (((Herayın) Between " & Me.Metin1 & " And " & Me.Metin2 & "));"

End If




DoCmd.SetWarnings True 'Hata vermemesi için gerekli
Me.Liste5.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. 

zaferlacin

zaferlacin

Aktif Üye
56243
Za.... La....
 50
 17
 58
 11/08/2013
0
 Balıkesir
 Emekli
 Ofis 2016 64 Bit
 Dün,23:29
tamamdır teşekkür ederim



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Raporda Boş Alan Sorunu Yunus Bozkurt 7 215 03/06/2019, 04:22
Son Yorum: haliliyas
Çözüldü Kayıt Silindiğinde Silinenler Tablosuna Aktarma haziran4 4 185 20/05/2019, 11:58
Son Yorum: haziran4
Çözüldü Mükerrer Kayıt Sorunu Fatih34 5 328 13/05/2019, 16:08
Son Yorum: haliliyas
Çözüldü Yazdırma Sorunu m_demir 8 178 10/05/2019, 16:31
Son Yorum: m_demir
Çözüldü Metin Tipinde Ayarlanmış Sürelerle İşlemlerde Toplama Sorunu yücel üzülmez 9 391 08/05/2019, 23:09
Son Yorum: haliliyas

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