Đá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
  [Help] Thiết kế form nhập và lưu trữ dữ liệu theo yêu cầu brianhuynh 16 622 20-10-16, 10:54 PM
Bài mới nhất: brianhuynh
  [Hỏi] Cách loại bỏ icon Filter trên Datasheet Form có nguồn là Query. toancvp 2 98 19-10-16, 08:53 PM
Bài mới nhất: toancvp
  cách sửa lỗi cant find project or library trungminh 4 229 01-10-16, 03:37 PM
Bài mới nhất: maidinhdan
  [Help] Nhờ tạo form lưu hóa đơn nhập, hóa đơn xuất, hàng nhập hàng xuất không cần tính tồn laxx_xxal 1 127 22-09-16, 02:35 PM
Bài mới nhất: Nguyen Hoang Diep
  [Hỏi] Cách đưa chức năng compact & repair vào form toancvp 6 486 24-08-16, 12:19 AM
Bài mới nhất: paulsteigel

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ơ