Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Giúp] Lồng Select SQL vào trong VBA
#1
Em muốn chuyển dữ liệu từ append query đến table, append query nằm trong Form
Em có tham khảo trên mạng đc một đoạn code, viết tới đoạn này thì vướng chỗ From :
Mã:
Private Sub CMD_UPDULIEU_Click()
Dim AppLopVh As String
DoCmd.SetWarnings (False)
AppLopVh = "INSERT INTO LOPVH ( MaLopVH )" & _
"SELECT Q_SELECT_XEPLOP.MaLopVH "
FROM Q_SELECT_XEPLOP & _
" GROUP BY Q_SELECT_XEPLOP.MaLopVH; "
DoCmd.RunSQL AppLopVh
MsgBox "Da cap nhat xong du lieu !"
DoCmd.SetWarnings (True)
End Sub
Nhưng khi chạy thì bị lỗi chỗ From.
Q_SELECT_XEPLOP là một Query
Mã:
SELECT HOCSINH.MSSV, IIf([TRINHDOVH]="12","Miễn Văn Hóa",[TRINHDOVH]+1 & [KHOIKHOA] & "1" & Year(Date())) AS MaLopVH, HOCSINH.TRINHDOVH, HOCSINH.LOPNGHE
FROM HOCSINH INNER JOIN Q_KHOINGHE ON HOCSINH.LOPNGHE = Q_KHOINGHE.MALOP
WHERE (((HOCSINH.TRINHDOVH)=[cbx_lopnghe]) AND ((HOCSINH.LOPNGHE)=[cbx_trinhdovh]))
ORDER BY IIf([TRINHDOVH]="12","Miễn Văn Hóa",[TRINHDOVH]+1 & [KHOIKHOA] & "1" & Year(Date()));
. Em chép code của Query này vào vào phần From của câu App trên cũng lối Confused_smile. Sửa câu select thế nào cũng lỗi ở cái chỗ "", do chưa viết SQL trong VBA bao giờ nên 029029 thôi. Giờ em muốn Sửa lại chỗ From của App bằng câu Select của Query trên thì làm thế nào ạh.
Cám ơn Anh/Chị đã đọc tin.
Chữ ký của dieuchinhlu
Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Cao nhân tất hữu cao nhân trị
CAO NHÂN TẮT THỞ VÔ PHƯƠNG TRỊ
ღღღღღTài sản của dieuchinhlu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
Trong VBA, dấu nháy kép " để bắt đầu và kết thúc 1 chuỗi của đoạn query được thay thế bằng dấu nháy đơn '
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Không biết em có hiểu ý anh không nữa nhưng em thay " = ' thì nó ra thành chú thích luôn. Chắc em hiểu sai rồi, Anh Noname có thể nói rõ hơn cho em hiểu không ạh ?
Chữ ký của dieuchinhlu
Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Cao nhân tất hữu cao nhân trị
CAO NHÂN TẮT THỞ VÔ PHƯƠNG TRỊ
ღღღღღTài sản của dieuchinhlu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
ví dụ bạn muốn phát biểu 1 câu SQL có điều kiện thì thế này:
Mã:
dim s as String
s=" select * from table 1 where mahang='mahang01' "

Tức là dấu nhảy đơn nhưng phát biểu trong dấu nháy kép thì không vấn đề gì cả
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn dieuchinhlu
#5
Hjhj, vậy là hiểu rồi, Thank anh No nhiều nha.
Chữ ký của dieuchinhlu
Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Cao nhân tất hữu cao nhân trị
CAO NHÂN TẮT THỞ VÔ PHƯƠNG TRỊ
ღღღღღTài sản của dieuchinhlu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] K biết là lỗi hay gì cần trợ giúp. nhocdevill11 2 14 46 Phút trước
Bài mới nhất: nhocdevill11
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 229 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Hỏi] File chạy chậm vì trong quá trình design phải chỉnh sửa và test thử nhiều. toancvp 4 265 29-07-16, 11:36 PM
Bài mới nhất: toancvp
  [Hỏi] Sử dụng phần mềm viết bằng Access trong mạng LAN chantroi_19 9 753 21-06-16, 10:33 AM
Bài mới nhất: lmthu
  [Help] Nhờ anh em trong diễn đàn giúp mình thiết kế chương trình báo dịch hàng ngày vinhpaint 1 258 21-06-16, 09:15 AM
Bài mới nhất: zinzin8x

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ