audition > 08-02-12, 05:01 PM
domfootwear > 08-02-12, 05:25 PM
(08-02-12, 05:01 PM)audition Đã viết: Em đang làm t_i_ể_u l_u_ậ_n tốt nghiệp quản lý văn bản bằng access, có gặp khó khăn sau:
khi nhập 1 văn bản mới thì liên kết văn bản đó đến đường dẫn chứa file văn bản.
Khi tìm kiếm văn bản đó thì nó hiển thị luôn đường dẫn đến file văn bản đó và khi bấm vào nó mở luôn file văn bản đó ra
Nhờ anh/chị giúp đỡ e, xin cám ơn rất nhiều
Private Sub Command0_Click()
Dim LWordDoc As String
Dim oApp As Object
LWordDoc = CurrentProject.Path & "\Doc1.doc"
If Dir(LWordDoc) = "" Then
MsgBox "Document not found."
Else
Set oApp = CreateObject(Class:="Word.Application")
oApp.Visible = True
oApp.Documents.Open filename:=LWordDoc
End If
End Sub
haquocquan > 09-02-12, 12:01 AM
domfootwear > 09-02-12, 08:24 AM
(09-02-12, 12:01 AM)haquocquan Đã viết: Mình có ý kiến: khi bạn liên kết đến file văn bản, nó sẽ có một đường dẫn (có thể do bạn nhập tay hoặc bạn sử dụng phương pháp chọn file trong access - trong forum có)
Bạn lưu đường dẫn vào một Table.
Bạn tạo một combobox hoặc listbox hiện toàn bộ Table đó; khi bấm vào danh sách các file liệt kê thì có lệnh mở file đó.
Như vậy, bạn có thể đặt file văn bản bất cứ đâu bạn muốn.
Gợi ý như vậy, bạn làm nhé.
audition > 09-02-12, 08:50 AM
domfootwear > 09-02-12, 09:39 AM
(09-02-12, 08:50 AM)audition Đã viết: Cám ơn các bạn rất nhiều, nhưng làm thế nào để cho nó hiểu đường dẫn
LWordDoc = CurrentProject.Path & "\Doc1.doc"
Lúc mình nhập thêm văn bản mới thì có cách nào để chọn đường dẫn đến file word và lúc đó ứng dụng sẽ nhớ luôn đường dẫn đó để khi tìm kiếm mình có thể mở file như cách bạn hướng dẫn
@haquocquan Bạn có thể làm 1 ví dụ mẫu giúp mình không
Dim strFile, strList As String
strFile = Dir(CurrentProject.Path & "\*.doc")
While Len(strFile) > 0
strList = strList & strFile & ";"
strFile = Dir()
Wend
Me.lstFiles.RowSource = strList
audition > 09-02-12, 11:03 AM
domfootwear > 09-02-12, 11:58 AM
(09-02-12, 11:03 AM)audition Đã viết: Bạn giúp mình cách làm như hình mình gởi kèm nhé, cám ơn nhiều lắm
http://www.4shared.com/zip/dIm5lenY/hinhcv1.html
audition > 09-02-12, 02:11 PM
domfootwear > 09-02-12, 03:25 PM
(09-02-12, 02:11 PM)audition Đã viết: Đồ xào nấu lại, mình là con gà về access ban giúp đỡ mình nhé
http://www.4shared.com/zip/xez3yHCf/QL_c...en_di.html