P
Datetime format trong SQL- VBA
Mình có một vấn đề thật hóc búa về Access, xin các Bạn và các Anh chị giúp đỡ. Vấn đề này như sau:
Mình có 3 Table T-CHUNGTUTH ,T_PHIEUTH,T_PHATSINH, bây giờ muốn tập hợp số liệu từ hai Table đầu vào T_PHATSINH trong một khoảng thời gian bằng cách sử dụng thủ tục TINHPS như sau, nhưng Access báo lỗi không chạy được (dòng gạch dưới bị Access tô màu vàng). Xin các Bạn và anh chị xem và chỉ giùm minh vớI, mình không biết bị mắc lỗI gì cả. Cảm ơn rất nhiều.(Mình muốn đưa các Table lên WKT nhưng không biết cách làm,ai biết chỉ mình với)
Public Sub TINHPS(BatDau As Date, ChoDen As Date)
Dim BatDau
Dim ChoDen
Dim db As Database
Dim rs As Recordset
Dim SQL1 As String
Dim SQL2 As String
Set db = CurrentDb
SQL1 = "INSERT INTO T_PHATSINH ( MaTK, SoCT, Ngay, PSNo, DT, TKDU, DienGiai ) SELECT T_CHUNGTUTH.TKNO, [loaiphieu] & [sophieu] AS SOCT, T_PHIEUTH.Ngay, T_CHUNGTUTH.SoTien, T_CHUNGTUTH.DTNO, T_CHUNGTUTH.TKCO, T_CHUNGTUTH.DienGiai FROM T_PHIEUTH INNER JOIN T_CHUNGTUTH ON T_PHIEUTH.KEY = T_CHUNGTUTH.Key WHERE (T_PHIEUTH.ngay) between BatDau and ChoDen"
SQL2 = "INSERT INTO T_PHATSINH ( MaTK, SoCT, Ngay, PSCo, DT, TKDU, DienGiai ) SELECT T_CHUNGTUTH.TKCO, [loaiphieu] & [sophieu] AS SOCT, T_PHIEUTH.Ngay, T_CHUNGTUTH.SoTien, T_CHUNGTUTH.DTCO, T_CHUNGTUTH.TKNO, T_CHUNGTUTH.DienGiai FROM T_PHIEUTH INNER JOIN T_CHUNGTUTH ON T_PHIEUTH.KEY = T_CHUNGTUTH.Key WHERE (T_PHIEUTH.ngay) between BatDau and ChoDen"
db.Execute ("DELETE * FROM T_PHATSINH WHERE ngay between BatDau and ChoDen")
db.Execute (SQL1)
db.Execute (SQL2)
End Sub
Mình có một vấn đề thật hóc búa về Access, xin các Bạn và các Anh chị giúp đỡ. Vấn đề này như sau:
Mình có 3 Table T-CHUNGTUTH ,T_PHIEUTH,T_PHATSINH, bây giờ muốn tập hợp số liệu từ hai Table đầu vào T_PHATSINH trong một khoảng thời gian bằng cách sử dụng thủ tục TINHPS như sau, nhưng Access báo lỗi không chạy được (dòng gạch dưới bị Access tô màu vàng). Xin các Bạn và anh chị xem và chỉ giùm minh vớI, mình không biết bị mắc lỗI gì cả. Cảm ơn rất nhiều.(Mình muốn đưa các Table lên WKT nhưng không biết cách làm,ai biết chỉ mình với)
Public Sub TINHPS(BatDau As Date, ChoDen As Date)
Dim BatDau
Dim ChoDen
Dim db As Database
Dim rs As Recordset
Dim SQL1 As String
Dim SQL2 As String
Set db = CurrentDb
SQL1 = "INSERT INTO T_PHATSINH ( MaTK, SoCT, Ngay, PSNo, DT, TKDU, DienGiai ) SELECT T_CHUNGTUTH.TKNO, [loaiphieu] & [sophieu] AS SOCT, T_PHIEUTH.Ngay, T_CHUNGTUTH.SoTien, T_CHUNGTUTH.DTNO, T_CHUNGTUTH.TKCO, T_CHUNGTUTH.DienGiai FROM T_PHIEUTH INNER JOIN T_CHUNGTUTH ON T_PHIEUTH.KEY = T_CHUNGTUTH.Key WHERE (T_PHIEUTH.ngay) between BatDau and ChoDen"
SQL2 = "INSERT INTO T_PHATSINH ( MaTK, SoCT, Ngay, PSCo, DT, TKDU, DienGiai ) SELECT T_CHUNGTUTH.TKCO, [loaiphieu] & [sophieu] AS SOCT, T_PHIEUTH.Ngay, T_CHUNGTUTH.SoTien, T_CHUNGTUTH.DTCO, T_CHUNGTUTH.TKNO, T_CHUNGTUTH.DienGiai FROM T_PHIEUTH INNER JOIN T_CHUNGTUTH ON T_PHIEUTH.KEY = T_CHUNGTUTH.Key WHERE (T_PHIEUTH.ngay) between BatDau and ChoDen"
db.Execute ("DELETE * FROM T_PHATSINH WHERE ngay between BatDau and ChoDen")
db.Execute (SQL1)
db.Execute (SQL2)
End Sub
Sửa lần cuối bởi điều hành viên: