tranthanhan1962 > 17-04-15, 11:05 PM
thucgia > 18-04-15, 02:42 AM
(17-04-15, 11:05 PM)tranthanhan1962 Đã viết: Đôi khi trong lúc nhập liệu hay làm một công việc gì đó trên form kiểu Single Form, mà cần phải kiểm tra, so sánh. Chúng ta hay cho chạy tới, chạy lui các record, hoặc dùng bộ lọc. Nhưng đôi khi những việc đó cũng chưa phải là tốt nhất vì mỗi lần chỉ nhìn thấy một record. Càng khổ hơn là phải so sánh 3-4 record hoặc nhiều hơn. Tôi xin giới thiệu các bạn ứng dụng mở nhiều Form giống nhau cùng lúc. Trên các form này các bạn vẫn có thể xử lý giống như form gốc. Bởi gì nó cũng chính là form gốc
Demo
Public colClient As New Collection 'Instances of frmClient.
Function Open_frm_client()
Dim frm As Form
Set frm = New Form_frm_client
frm.Visible = True
frm.Caption = frm.Hwnd & ", Go to room at: " & Now()
colClient.Add Item:=frm, Key:=CStr(frm.Hwnd)
Set frm = Nothing
End Function
Call Open_frm_client