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

[Giúp] Lồng Select SQL vào trong VBA

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Giúp] Lồng Select SQL vào trong VBA
• [Giúp] Lồng Select SQL vào trong VBA

• [Giúp] Lồng Select SQL vào trong VBA

  dieuchinhlu > 16-05-11, 02:27 PM

  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 . 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 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.

• RE: [Giúp] Lồng Select SQL vào trong VBA

  Noname > 16-05-11, 02:47 PM

  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 '

• RE: [Giúp] Lồng Select SQL vào trong VBA

  dieuchinhlu > 16-05-11, 05:43 PM

  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 ?

• RE: [Giúp] Lồng Select SQL vào trong VBA

  Noname > 16-05-11, 10:04 PM

  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ả

• RE: [Giúp] Lồng Select SQL vào trong VBA

  dieuchinhlu > 17-05-11, 12:16 PM

  Hjhj, vậy là hiểu rồi, Thank anh No nhiều nha.
• Bài trước Bài tiếp