Aktarma Sorunu

30/01/2019, 19:15

zaferlacin

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
31/01/2019, 10:41

berduş

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
31/01/2019, 12:42

ozanakkaya

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
01/02/2019, 00:39

zaferlacin

tamamdır teşekkür ederim