Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Dbclick từ 1 kết quả trên subform để mở main form với dữ liệu của dòng đó
#1
Photo 
Hi các bạn. Mình đang gặp vấn đề khi muốn thực hiện thao tác click double vào 1 dòng record trong subform để mở main form chứa đúng dữ liệu của nó. Tuy nhiên khi làm, mỗi lần click double thì nó lại hiện lên 1 yêu cầu là nhập mã [Staffcode]. Mình chưa biết xử lý nó như nào, tìm hiểu trên diễn đàn nhưng vẫn chưa có answer. Mong các bạn chỉ dẫn nhé

Code VBA:
Private Sub Form_DblClick(Cancel As Integer)
DoCmd.OpenForm "Data Entry", , , "[Staffcode] = " & Me!Staffcode
End Sub

Kết quả như sau:

http://www.mediafire.com/view/o297j78kuu...h56_53.jpg
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn
#2
Ở phần OpenArgs bạn chỉ cần để "Me!StaffCode" là được rồi.
DoCmd.OpenForm "Data Entry", , , Me!Staffcode
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Hi ban Ongke0711
Mình thử như bạn nói nhưng vẫn không được. Nó vấn yêu cầu nhập giá trị trước khi mở form Data Entry
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn
#4
Sự kiện Form load của cái form "Data Entry" như thế nào?
Vd: 
Private Sub Form_Load()
   If IsNull(Me.OpenArgs) = False Then
        strSQL = "SELECT * FROM TableVidu WHERE [StaffCode] = '" & Me.OpenArgs & "'"
        ....
   End if
End Sub
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
Mình không có sự kiện nào trên Onload của form Data Entry cả. Khi dbclick thì nó hiện lên bảng thông bbáo Enter parameter value yêu cầu mình nhập thông số vào. Khi nhập đúng với số nó hiện thị thì nó sẽ mở được form Entry data với đầy đủ thông tin yêu cầu. Vấn đề là làm thế nào để bỏ qua bước trung gian là phải nhập số Staffcode thôi. Để mình tối nay sẽ load file lên cho các bạn coi nhe
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn
#6
hi các bạn. Đây là file mình đang làm. Các bạn tham khảo rồi cho mình y kien nhe

http://www.mediafire.com/download/syffyb...1%29.accdb
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn
#7
Tôi tưởng bạn dùng Unbound form nên mới chỉ cách giùm OpenArgs để đưa điều kiện cho form sau nhưng bạn dùng Bound form thì cũng đơn giản hơn. Bạn chỉ cần đưa thẳng điều kiện vô lệnh Openform là được rồi.
- Dòng code của bạn sai ở chỗ: giữa các dấu "," không có khoảng trắng nếu bạn không đặt tham số. [StaffCode] của bạn dạng Text nên khi dùng làm điều kiện phải đặt trong dấu nháy đơn " ' ". 
- Để click 1 dòng trong subform và mở 1 form khác có thông tin của dòng đó, bạn phải gán sự kiện DblClick thẳng ngay trên textbox bạn click chứ không phải DblClick cho cả cái subform như bạn đang làm.
- Ở đây bạn gán DblClick cho textbox [StaffCode] của sub form "Subfilter". 
-----------------------------------------------------------------
Private Sub Staffcode_DblClick(Cancel As Integer)
    DoCmd.OpenForm "Data Entry", acNormal, , "[Staffcode] = '" & Me.Staffcode & "'", , acDialog
End Sub
-----------------------------------------------------------------
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
Thank bạn Ongke0711 nhé. Vậy là việc dbclick vào dòng trong subform là không dc fk bạn. Dùng unbound form thì mình không quen, chỉ dùng dạng subform theo datasheet thôi. Dù sao cũng cảm ơn bạn nhiều nhé.
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn
#9
040

Bạn không đọc kỹ bài tôi viết à.
Làm theo hướng dẫn là DblClick vô cái textbox [StaffCode] trong subform. Subform hiển thị Datasheet, Single hay Continuous đều phải có các textbox hiển thị record chứ.
Để có thể click bất kỳ vị trí nào trong cái record cần chỉnh sửa thì bạn gán cùng một code đó cho event DblClick của tất cả các textbox trong subform.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , jason
#10
(25-12-15, 12:26 PM)ongke0711 Đã viết: 040

Bạn không đọc kỹ bài tôi viết à.
Làm theo hướng dẫn là DblClick vô cái textbox [StaffCode] trong subform. Subform hiển thị Datasheet, Single hay Continuous đều phải có các textbox hiển thị record chứ.
Để có thể click bất kỳ vị trí nào trong cái record cần chỉnh sửa thì bạn gán cùng một code đó cho event DblClick của tất cả các textbox trong subform.

Làm theo cách của bạn thì OK rồi, không lăn tăn gì cả. Mình cũng theo gợi ý của bạn làm được luôn việc dbclick vào dong record rồi. Thanks bạn nhiều nhé happy
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
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
  Tránh xung đột dữ liệu trong access quocdung9999 16 1,688 23-11-16, 11:13 AM
Bài mới nhất: quocdung9999
  [Thủ Thuật] Tạo thanh tiến trình trên Form (Progress bar) khi xử lý dữ liệu ongke0711 18 1,488 21-10-16, 10:17 PM
Bài mới nhất: ongke0711
  Tạo Form đăng ký tài khoản phuc_thanhtien 15 1,012 27-09-16, 12:19 AM
Bài mới nhất: maidinhdan
  [Help] lệnh tìm kiếm và hiển thị kết quả tìm kiếm trên form tvn_hut 12 1,010 25-06-16, 12:22 AM
Bài mới nhất: zinzin8x
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 42 17,020 12-06-16, 12:28 PM
Bài mới nhất: lehongduc

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ơ