Merhaba arkadaşlar, ufak bir sorunum var yardımcı olabilirseniz sevinirim.
Modül içerisinde kayıtseti olarak kullanmak üzere şöyle bir sorgu var. yalnız bu sorgunun WHERE bölümündeki HaftaBasi ve HaftaSonu tarih değişkenlerinde aşağıda eklemiş olduğumu hata mesajını vermektedir. Yüksek oranda sorgu içerisinde tarihler için kullandığım değişkenlerde ayraç hatası var. Fakat ne kadar uğraştımsa tarihler için olan bu ayraç meselesini çözemedim.
Not : Affınıza sığınarak veritabanı örneği istemezseniz sevinirim çünkü gönderemem.
Kod:
Dim DTB As DAO.Database
Dim RST1, RST2, RST3, RST4 As DAO.Recordset
Dim STR1, STR4 As String
Dim HaftaBasi, HaftaSonu As Date
Dim Sirket As String
Dim AcenteID As String
...
STR4 = "SELECT Policeler.PoliceSirket, Policeler.AcenteID, Acente_AcenteBilgileri.Unvani, Policeler.PoliceTur, Policeler.PoliceTanzimTarihi, Policeler.PoliceBaslamaTarihi, Policeler.PoliceBitisTarihi, Policeler.PoliceNetPrim, Policeler.PoliceBrutPrim " _
& "FROM Policeler INNER JOIN Acente_AcenteBilgileri ON Policeler.AcenteID = Acente_AcenteBilgileri.AcenteID " _
& "WHERE (((Policeler.PoliceSirket)='" & Sirket & "') AND ((Policeler.AcenteID)='" & AcenteID & "') AND ((Policeler.PoliceTanzimTarihi)>=" & HaftaBasi & " And (Policeler.PoliceTanzimTarihi)<=" & HaftaSonu & " ))"
...
End Sub
![[Resim: 1718.jpg]](http://i0909.hizliresim.com/2009/9/8/1718.jpg)
"WHERE (((Policeler.PoliceSirket)='" & Sirket & "') AND ((Policeler.AcenteID)='" & AcenteID & "') AND ((Policeler.PoliceTanzimTarihi)>=" & HaftaBasi & " And (Policeler.PoliceTanzimTarihi)<=" & HaftaSonu & " ))"
ölçüt olarak tarih kullanılmasında sıkça rastlanan bir durum bu. öncelikle bilgisayarınızın tarih ayracını . değilde / olarak ayarlayın denetim masasından. sonrasında ölçük olarak belirttiğiniz tarihlerin başına ve sonuna # işareti koyun.
AND ((Policeler.PoliceTanzimTarihi)>=#" & HaftaBasi & "# And .... bunun gibi.
şu şekilde aynen yapıştırırmısın.
STR4 = "SELECT Policeler.PoliceSirket, Policeler.AcenteID, Acente_AcenteBilgileri.Unvani, Policeler.PoliceTur, Policeler.PoliceTanzimTarihi, Policeler.PoliceBaslamaTarihi, Policeler.PoliceBitisTarihi, Policeler.PoliceNetPrim, Policeler.PoliceBrutPrim " _
& "FROM Policeler INNER JOIN Acente_AcenteBilgileri ON Policeler.AcenteID = Acente_AcenteBilgileri.AcenteID " _
& "WHERE (((Policeler.PoliceSirket)='" & Sirket & "') AND ((Policeler.AcenteID)='"& AcenteID & "')" _
& "AND ((Policeler.PoliceTanzimTarihi)>=" & HaftaBasi & " And (Policeler.PoliceTanzimTarihi)<=" & HaftaSonu & " ))"
Teşekkürler Nurullah bey dediğiniz gibi yaptım oldu. yalnız tarih ayracını sistemde genel olarak değiştirmeden kod içerisinde değiştirebilsek aslında daha hoş olur. Biöyle bir imkanımız varmı?
Değişkenleri Variant yapınca ve atanacak değereide aşağıdaki gib değiştirince istediğim oldu.
HaftaBasi = Day(RST1!Baslama) & "/" & Month(RST1!Baslama) & "/" & Year(RST1!Baslama)
HaftaSonu = Day(RST1!Bitis) & "/" & Month(RST1!Bitis) & "/" & Year(RST1!Bitis)
tarih ayracının . veya / olmasının diğer kullandığınız programlarda hiç bir önemi yok diye düşünüyorum. kod kalabalığı ve tür değiştirmek yerine en güzeli tarih ayracını değiştirmek.
Ölçüt olarak belirttiğimiz ifadeyi yazarken dikkat edilmesi gerekli birkaç noktayı anlatmak istiyorum.
1-Ölçüt içinde tarih kullanacağımızı varsayarak bilgisayarımızın “.” olan tarih ayracını “/” olarak değiştirmemiz gerekmektedir. Kullanmış olduğumuz program İngiliz dilini kullanarak çalıştığından bizim kullandığımız “.” işareti hataya neden olmaktadır.
2- bu hatanın bir diğer nedeni hangi tür veride hangi ayracı kullanacağımız.
Metin için
…… Adi='" & me.adi & "' and Soyadi='" & me.soyadi & "' and …..
Sayı için
…. Id=" & me.Id & " and Sicili="& me.Sicili & " and ……
Tarih için
…… GirisTarihi=#" & me.GirisTarihi & "# AND CikisTarihi=#" & me.CikisTarihi& "# AND…..
Katkı ve paylaşımlarınız için emeği geçenlere teşekkürler.
Saygılar...