Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Mở form mới và đóng hết các form đã mở trước đó?
#1
Như tiêu đề, mình có thắc mắc: khi mở form mới mình muốn đóng tất cả các form đã mở trước đó để làm việc với 1 form duy nhất nhưng nghĩ mãi chưa ra. Bạn nào giúp hộ với.60_60
Chữ ký của hianhdung Xin chào, mình là hianhdung, Tham gia http://thuthuataccess.com/forum từ ngày 26-04 -12.
Reply
Những người đã cảm ơn
#2
(30-04-12, 06:51 PM)hianhdung Đã viết: Như tiêu đề, mình có thắc mắc: khi mở form mới mình muốn đóng tất cả các form đã mở trước đó để làm việc với 1 form duy nhất nhưng nghĩ mãi chưa ra. Bạn nào giúp hộ với.60_60

Mã:
DoCmd.OpenForm "frmD", acNormal
DoCmd.Close "frmC"
DoCmd.Close "frmB"
DoCmd.Close "frmA"
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#3
Tham khảo bài này
http://thuthuataccess.com/forum/thread-4791.html
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
(30-04-12, 06:51 PM)hianhdung Đã viết: Như tiêu đề, mình có thắc mắc: khi mở form mới mình muốn đóng tất cả các form đã mở trước đó để làm việc với 1 form duy nhất nhưng nghĩ mãi chưa ra. Bạn nào giúp hộ với.60_60

Dùng vòng lặp duyệt qua thấy form nào thì đóng form đó.
Bạn chép code sau vào Module:

Mã PHP:
Option Compare Database
Public strFormName As String
Function CloseAllForms()
Dim obj As Object
For Each obj In Application.CurrentProject.AllForms
    
If obj.Name <> strFormName Then
        DoCmd
.Close acFormobj.NameacSaveYes
    End 
If
Next obj

End 
Function 

Chép code sau vào các form:

Mã PHP:
Private Sub Form_Load()
strFormName Me.Name
CloseAllForms
End Sub 

Bạn xem thêm file đính kèm nhé.


File đính kèm
.zip   DongForm.zip (Kích cỡ: 16.42 KB / Tải về: 32)
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He , jason
#5
Tôi có demo khi mở Form mới, đóng tất cả các Form hiện đang mở dùng Function. Code đơn giản:
1.Tạo Function

Function DongtatcaForm()
Do While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name
Loop
End Function

2.Khi mở Form mới:
Private Sub Moform_Click()
Call DongtatcaForm
DoCmd.OpenForm "Form4"
End Sub

Demo
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
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ỏi] Xin hỏi về cách nhập dữ liệu mới cho form mainsub Thiên Hùng 1 44 23-11-17, 04:01 PM
Bài mới nhất: cpucloi
  [Hỏi] Lọc thông tin trong form pvhung76 3 191 22-11-17, 08:09 AM
Bài mới nhất: cpucloi
  [Help] Chọn nhiều record trong listbox của Form haidc 5 682 21-11-17, 06:30 PM
Bài mới nhất: haidc
  Làm sao để Form nhập dữ liệu cho bảng mở ra, luôn ở dòng hiện hành (mới)? pvhung76 3 126 16-11-17, 11:14 PM
Bài mới nhất: ongke0711
  Câu lệnh nào ẩn button trong form? William 3 250 15-11-17, 11:30 AM
Bài mới nhất: cpucloi

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ơ