+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Aktarma Sorunu (/konu-aktarma-sorunu.html)
Aktarma Sorunu - zaferlacin - 30/01/2019
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
Cvp: Aktarma Sorunu - berduş - 31/01/2019
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
Cvp: Aktarma Sorunu - ozanakkaya - 31/01/2019
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.RequeryCvp: Aktarma Sorunu - zaferlacin - 01/02/2019
tamamdır teşekkür ederim