• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Lỗi trong append query

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Query
  • Lỗi trong append query
• Lỗi trong append query

• Lỗi trong append query

  darkmoon > 09-01-12, 03:00 PM

  Mình không chạy được SQL này. Báo lỗi đoạn Select đầu tiên, hix. Các bạn xem hộ.
  

  Trích dẫn:DoCmd.RunSQL "INSERT INTO tblSoDuCongNo (MaTaiKhoan,MaDoiTac,TenDoiTac) VALUES (SELECT TaiKhoanNoPhaiThu AS TaiKhoan, MaDoiTac, TenDoiTac " & _
  "FROM tblDanhMucDoiTac WHERE TaiKhoanNoPhaiThu<>""; " & _
  "UNION SELECT TaiKhoanNoPhaiTra AS TaiKhoan, MaDoiTac, TenDoiTac " & _
  "FROM tblDanhMucDoiTac WHERE TaiKhoanNoPhaiTra<>"");"

  
  Xin cám ơn./.

• RE: Lỗi trong append query

  Noname > 09-01-12, 04:25 PM

  Trong VBA, bạn thử đóng ngoặc các String điều kiện là dấu nháy đơn thay vì dấu nháy kép thử xem.
  
  

  Mã:

  DoCmd.RunSQL "INSERT INTO tblSoDuCongNo (MaTaiKhoan,MaDoiTac,TenDoiTac) VALUES (SELECT TaiKhoanNoPhaiThu AS TaiKhoan, MaDoiTac, TenDoiTac " & _
"FROM tblDanhMucDoiTac WHERE TaiKhoanNoPhaiThu<>'' " & _
"UNION SELECT TaiKhoanNoPhaiTra AS TaiKhoan, MaDoiTac, TenDoiTac " & _
"FROM tblDanhMucDoiTac WHERE TaiKhoanNoPhaiTra<>'');"

  
  

• RE: Lỗi trong append query

  darkmoon > 09-01-12, 04:30 PM

  (09-01-12, 04:25 PM)Noname Đã viết: Trong VBA, bạn thử đóng ngoặc các String điều kiện là dấu nháy đơn thay vì dấu nháy kép thử xem.
  
  

  Mã:

  DoCmd.RunSQL "INSERT INTO tblSoDuCongNo (MaTaiKhoan,MaDoiTac,TenDoiTac) VALUES (SELECT TaiKhoanNoPhaiThu AS TaiKhoan, MaDoiTac, TenDoiTac " & _
"FROM tblDanhMucDoiTac WHERE TaiKhoanNoPhaiThu<>'' " & _
"UNION SELECT TaiKhoanNoPhaiTra AS TaiKhoan, MaDoiTac, TenDoiTac " & _
"FROM tblDanhMucDoiTac WHERE TaiKhoanNoPhaiTra<>'');"

  
  Mình cũng thử nhưng vẫn không thể append được. Dù đã thay thế dấu " bằng chr(39). Lỗi hiện lên thông báo đoạn

  Trích dẫn:SELECT TaiKhoanNoPhaiThu AS TaiKhoan

• RE: Lỗi trong append query

  Noname > 09-01-12, 08:32 PM

  (09-01-12, 04:30 PM)darkmoon Đã viết:

  (09-01-12, 04:25 PM)Noname Đã viết: Trong VBA, bạn thử đóng ngoặc các String điều kiện là dấu nháy đơn thay vì dấu nháy kép thử xem.
  
  

  Mã:

  DoCmd.RunSQL "INSERT INTO tblSoDuCongNo (MaTaiKhoan,MaDoiTac,TenDoiTac) VALUES (SELECT TaiKhoanNoPhaiThu AS TaiKhoan, MaDoiTac, TenDoiTac " & _
"FROM tblDanhMucDoiTac WHERE TaiKhoanNoPhaiThu<>'' " & _
"UNION SELECT TaiKhoanNoPhaiTra AS TaiKhoan, MaDoiTac, TenDoiTac " & _
"FROM tblDanhMucDoiTac WHERE TaiKhoanNoPhaiTra<>'');"

  
  Mình cũng thử nhưng vẫn không thể append được. Dù đã thay thế dấu " bằng chr(39). Lỗi hiện lên thông báo đoạn

  Trích dẫn:SELECT TaiKhoanNoPhaiThu AS TaiKhoan

  Bạn up file lên xem thử, Giữ nguyên hiện trường chỗ sai để mình xem luôn hén
  

• RE: Lỗi trong append query

  darkmoon > 10-01-12, 02:58 PM

  Run-time error '3075'
  Syntax error in query expression 'SELECT TaiKhoanNoPhaiThu AS TaiKhoan'

• RE: Lỗi trong append query

  Noname > 10-01-12, 03:50 PM

  Gửi file lên đi bạn!

• RE: Lỗi trong append query

  darkmoon > 10-01-12, 04:26 PM

  Nếu tạo union query riêng rồi append vào table thì lại không vấn đề gì.
  
  http://www.mediafire.com/?ghube7znf2k0154

• RE: Lỗi trong append query

  Noname > 10-01-12, 10:11 PM

  Mình xem qua rồi. Đối tượng table, query không trả về 1 mảng hay một giá trị, vì vậy bạn không dùng tham số Values trong câu trên.
  Đồng thời, hàm union là sinh ra 1 table mới mà Access nó không hiểu được cấu trúc table này để insert vào table tblSoDuCongNo
  
  Để tránh nhập nhằng, bạn nên tách câu query trên thành 2 câu query độc lập như sau:
  

  Mã:

  Dim sqlN, sql1, sql2 As String
DoCmd.SetWarnings False

sqlN = "INSERT INTO tblSoDuCongNo (MaTaiKhoan,MaDoiTac,TenDoiTac) "
DoCmd.RunSQL sqlN & "SELECT TaiKhoanNoPhaiThu, MaDoiTac, TenDoiTac FROM tblDanhMucDoiTac WHERE TaiKhoanNoPhaiThu<>''"
DoCmd.RunSQL sqlN & "SELECT TaiKhoanNoPhaiTra, MaDoiTac, TenDoiTac FROM tblDanhMucDoiTac WHERE TaiKhoanNoPhaiTra<>''"
DoCmd.SetWarnings True

• RE: Lỗi trong append query

  haquocquan > 11-01-12, 02:30 PM

  Hoặc bạn dùng đoạn code này:
  

  Mã:

  DoCmd.RunSQL "INSERT INTO tblSoDuCongNo (MaTaiKhoan,MaDoiTac,TenDoiTac)" & _
" SELECT query1.MaTaiKhoan, query1.MaDoiTac, query1.TenDoiTac" & _
" FROM  ([SELECT tblDanhMucDoiTac.TaiKhoanNoPhaiThu AS MaTaiKhoan, MaDoiTac, TenDoiTac" & _
" FROM tblDanhMucDoiTac WHERE tblDanhMucDoiTac.TaiKhoanNoPhaiThu<>''" & _
" UNION SELECT tblDanhMucDoiTac.TaiKhoanNoPhaiTra AS MaTaiKhoan, MaDoiTac, TenDoiTac" & _
" FROM tblDanhMucDoiTac WHERE tblDanhMucDoiTac.TaiKhoanNoPhaiTra<>'']. as query1)"
• Bài trước Bài tiếp