Kính gửi các Anh/Chị,
Hiện nay mình đang tạo Button trên mỗi Record để mở nhiều văn bản Word trên Continuous Form. Vậy làm sao để khi chọn vào Button thì 1 văn bản tương ứng với Record đó (thưc hiện trên phần Detail của Continuous Form ). Ví Dụ :
1 => Button 1 => mở văn bản 1
2 => Button 1 => mở văn bản 2
3 => Button 1 => mở văn bản 3
4 => Button 1 => mở văn bản 4
5 => Button 1 => mở văn bản 5
n => Button n => mở văn bản n
Mình chỉ biết code mở duy nhất 1 Record (đã thưc hiện được trên phần Form header), Vì vậy nhờ các Anh/Chị hướng dẫn giúp giải pháp để mở Button từ record thứ n.
Xin trân trọng cám ơn !

Kính gửi các Anh/Chị,
Hiện nay mình đang tạo Button trên mỗi Record để mở nhiều văn bản Word trên Continuous Form. Vậy làm sao để khi chọn vào Button thì mở 1 văn bản tương ứng với Record đó (thưc hiện trên phần Detail của Continuous Form ). Ví Dụ :
1 => Button 1 => mở văn bản 1
2 => Button 2 => mở văn bản 2
3 => Button 3 => mở văn bản 3
4 => Button 4 => mở văn bản 4
5 => Button 5 => mở văn bản 5
n => Button n => mở văn bản n
Mình chỉ biết code mở duy nhất 1 văn bản (đã thưc hiện được trên phần Form header), Vì vậy nhờ các Anh/Chị hướng dẫn giúp giải pháp để mở Button từ 1 đến thứ n trên phần Detail của Continuous Form.
Xin trân trọng cám ơn !

Trong Continuous form bạn chỉ cần tạo 1 button trong phần Detail là khi chạy (Form view) nó sẽ hiện mỗi dòng 1 button nằm ngang với record đó rồi. Lúc đó bạn bấm nút nằm ở dòng nào thì tham chiếu đến textbox có control source là Field khoá của dòng đó. Trong trường hợp của ví dụ là field [File Văn bản].

Private cmdMoFileVB_Click()
    Open File Where TenFile = " & Me.txtFileVanBan
    ...

End Sub

(26-02-19, 08:48 PM)ongke0711 Đã viết: Trong Continuous form bạn chỉ cần tạo 1 button trong phần Detail là khi chạy (Form view) nó sẽ hiện mỗi dòng 1 button nằm ngang với record đó rồi. Lúc đó bạn bấm nút nằm ở dòng nào thì tham chiếu đến textbox có control source là Field khoá của dòng đó. Trong trường hợp của ví dụ là field [File Văn bản].

Private cmdMoFileVB_Click()
    Open File Where TenFile = " & Me.txtFileVanBan
    ...

End Sub

Bổ sung thêm 1 ý nho nhỏ vào phần trả lời của bạn "ongke0711", ta không cần phải tạo Button mà viết mã lệnh xử lý sự kiện Double-click gắn vào control Me.txtFileVanBan (tôi giả sử rằng Textbox này chứa đường dẫn đến file văn bản cần mở) cho phép user click đúp vào control này để mở xem văn bản
Private Sub Me.txtFileVanBan_DblClick(Cancel As Integer)
 On Error Resume Next
 Application.FollowHyperlink Me.txtFileVanBan
End Sub