Bỏ qua phím shift trong access project

[tuannhcs]

Chào các bạn
Mình có 1 vấn đề này trong access project(.adp)

1/Làm thế nào để vô hiệu hóa phím shift trong access project

Mình đã làm được cách vô hiệu hóa phím shift trong access mdb(.mdb)
Nhưng khi mình chuyển đoạn code đó sang access project(.adp) thì nó không chạy
Báo lỗi chỗ thuộc tinh AllowbyPasskey
Vậy có cách nào vô hiệu hóa phím shift trong access project(.adp) không

2/Tạo view động bằng code trong access project

-Trong access mdb mình có thể tạo Query động bằng code
set db=currentdb()
set qr=db.QueryDef("Ten Query")
qr.sql="Select * from table Where filename='ABC'"
-Trong Access project Query chính là cac view trong sql server
Vậy mình có thể tạo view động trong access project bằng code giống access mdb không

Rất Mong trợ giúp từ các bạn

 

[phatnq2002]

Ðề: Bỏ qua phím shift trong access project

1. Chỉ cần thay câu tương tự trong MDB bằng:
CurrentProject.Properties.Add "AllowBypassKey", False ' hoặc True tùy theo mục đích

2.
Dùng Recordset để mở, nếu không muốn làm thay đổi nội dung của view.
Dùng cú pháp sau nếu có thay đổi nội dung của view:
CurrentProject.Execute "EXEC (ALTER VIEW viewname AS select_statement)"

 

[tuannhcs]

Ðề: Bỏ qua phím shift trong access project

cảm ơn bạn phatnq2002
Mình chạy thử câu lệnh
CurrentProject.Execute "EXEC (ALTER VIEW view1 AS select * from dmmh)"
thì bị lỗi
runtime error 438
Object dosen't support this property or method
mình đang nghĩ method Execute không hỗ trợ cho CurrentProject
Bạn thử test lại câu lệnh CurrentProject.Execute "EXEC (ALTER VIEW view1 AS select * from dmmh)" xem
Mong ý kiến của bạn