Đá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] cách Khóa form không cho click ra ngoài toidjtjmtoi 3 102 08-09-17, 12:30 PM
Bài mới nhất: toidjtjmtoi
  Giúp đỡ in form toaneurowindow 2 87 28-08-17, 08:06 PM
Bài mới nhất: tranthanhan1962
  [Lỗi] Lỗi không mở được form cawboy 5 128 28-08-17, 06:42 PM
Bài mới nhất: ongke0711
  Thiết lập mở file pdf từ form feeling 1 113 10-08-17, 04:57 AM
Bài mới nhất: cpucloi
  Hiện nội dung record của subform lên main form hueqlhc 9 2,785 02-08-17, 04:36 PM
Bài mới nhất: tvn_hut

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ơ