Skip to main content

#EvdeKal


Aktarma Sorunu

Aktarma Sorunu

Çözüldü #1
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
.rar aktar.rar (Dosya Boyutu: 39,96 KB | İndirme Sayısı: 4)
Cevapla
#2
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
Cevapla
#3
Merhaba, butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Kod:
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. 
Cevapla
#4
tamamdır teşekkür ederim
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da