Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Cách nào để lấy tên Form đưa vào ListBox ?
#1
Exclamation 
Chào ACE !

Mình có những Form trong file hình đính kèm. Cho mình hỏi làm cách nào để khi mình tạo 1 form mới thì tên form sẽ tự động đưa vào trong Listbox.
Vd: mình tạo form có tên frmTEST thì trong listbox tự hiện lên tên form là frmTEST
Cám ơn ACE nhiều nhiều !

[Hình: 1415808.jpg]
[Hình: 1415819.jpg]
Chữ ký của tuanle570 Xin chào, mình là tuanle570, Tham gia http://thuthuataccess.com/forum từ ngày 16-09 -13.
Reply
Những người đã cảm ơn
#2
Bạn cần dùng VBA mới được và dùng đoạn code thế này
Mã PHP:
Sub test
lstObjects
.RowSource SetRowSource(acForm)
' Với báo cáo thì AcReport
end sub 
Hàm để lấy thông tin đây
Mã PHP:
Function SetRowSource(acObjType As AcObjectType) As String
    Dim iObj 
As ObjectiStr As StringiContainer As Object
    Set iContainer 
IIf(acObjType acFormCurrentProject.AllFormsCurrentProject.AllReports)
    For 
Each iObj In iContainer
        iStr 
iStr "'" iObj.Name "';"
    
Next
    
If iStr "" Then Exit Function
    
iStr Left(iStrLen(iStr) - 1)
    
SetRowSource iStr
End 
Function 
Mình đã sửa lại hàm - vì lười copy từ ứng dụng cũ đưa lên, không chịu sửa!
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn tuanle570 , Noname
#3
Nó báo lỗi dòng này bạn ơi
--> If Not ObjectExist(iObj.Name) Then iStr = iStr & "'" & iObj.Name & "';"

Compile error: Sub or Function not defined
Chữ ký của tuanle570 Xin chào, mình là tuanle570, Tham gia http://thuthuataccess.com/forum từ ngày 16-09 -13.
Reply
Những người đã cảm ơn
#4
(03-10-13, 12:47 PM)tuanle570 Đã viết: Nó báo lỗi dòng này bạn ơi
--> If Not ObjectExist(iObj.Name) Then iStr = iStr & "'" & iObj.Name & "';"

Compile error: Sub or Function not defined
Bạn thêm vào một form ví dụ, một listbox tên là list5, thêm vào thủ tục như trong phần form_load và sửa hàm ở dưới như đoạn mã ở đây. Mình xin lỗi vì lúc trước quên không sửa lại!
Mã PHP:
Private Sub Form_Load()
    
With List5
        
.RowSource SetRowSource(acForm)
        .
RowSourceType "Value list"
    
End With
End Sub

Function SetRowSource(acObjType As AcObjectType) As String
    Dim iObj 
As ObjectiStr As StringiContainer As Object
    Set iContainer 
IIf(acObjType acFormCurrentProject.AllFormsCurrentProject.AllReports)
    For 
Each iObj In iContainer
        iStr 
iStr "'" iObj.Name "';"
    
Next
    
If iStr "" Then Exit Function
    
iStr Left(iStrLen(iStr) - 1)
    
SetRowSource iStr
End 
Function 
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn tuanle570 , Noname
#5
Cám ơn bạn paulsteigel đã hướng dẫn.
Xin lỗi cho mình xin hỏi thêm một ý nhé: cũng nội dung trên, nhưng làm cách nào không cho hiện tên form mà form đó mình đã để Hidden
Chữ ký của tuanle570 Xin chào, mình là tuanle570, Tham gia http://thuthuataccess.com/forum từ ngày 16-09 -13.
Reply
Những người đã cảm ơn
#6
Đây bạn có thể sửa lại hàm một chút thành như thế này. Nếu có lỗi, bạn có thể thay Access thành Application nhé!
Mã PHP:
Function SetRowSource(acObjType As AcObjectType) As String
    Dim iObj 
As ObjectiStr As StringiContainer As Object
    Set iContainer 
IIf(acObjType acFormCurrentProject.AllFormsCurrentProject.AllReports)
    For 
Each iObj In iContainer
        
If Not Access.GetHiddenAttribute(acFormiObj.NameThen
            
'Ban co the su dung doan code sau de lam cho form bi an di
            '
Access.SetHiddenAttribute acTable"Tenform"True
            iStr 
iStr "'" iObj.Name "';"
        
End If
    
Next
    
If iStr "" Then Exit Function
    
iStr Left(iStrLen(iStr) - 1)
    
SetRowSource iStr
End 
Function 
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn tuanle570 , Noname
#7
Cám ơn bạn paulsteigel rất rất nhiều nha......
Nguyên cả chương trình, mình viết toàn macro không nên còn yếu về VBA lắm @.@
Chữ ký của tuanle570 Xin chào, mình là tuanle570, Tham gia http://thuthuataccess.com/forum từ ngày 16-09 -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
  Hướng Dẫn Cách lưu (back up database) dữ liệu! danhxetnghiem 26 5,388 05-06-17, 02:05 AM
Bài mới nhất: MTNQ
  [Help] Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form ongke0711 7 554 12-05-17, 07:10 PM
Bài mới nhất: maidinhdan
  [Hỏi] Cách sử dụng ACCDB trong mạng LAN nhiều phiên bản Access. toancvp 9 566 10-05-17, 06:29 PM
Bài mới nhất: toancvp
  Load file định dạng .pdf lên form kutieu2016 4 331 21-04-17, 10:17 AM
Bài mới nhất: lmthu
  Di chuyển list index trong listbox về cuối list khi thêm 1 record vuga 1 308 15-01-17, 01:00 PM
Bài mới nhất: ongke0711

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ơ