Đá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ề: 34)
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 , htc2017
#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ướng Dẫn Tìm kiếm theo nhiều tiêu chí trên Form mrtoanbin 10 458 11-02-18, 04:19 PM
Bài mới nhất: haidc
  [Help] Sub Form tự động điền các record haidc 9 565 05-02-18, 04:36 PM
Bài mới nhất: haidc
  [S.O.S] Điều khiển hiển thị record trên form qua mạng LAN tranthanhan1962 16 754 21-01-18, 05:31 PM
Bài mới nhất: tranthanhan1962
Photo [Hỏi] Xin giúp đỡ tạo form đăng nhập có liên kết với form Giao diện chính Thiên Hùng 15 655 19-01-18, 10:12 AM
Bài mới nhất: Thiên Hùng
  [Help] Form không lưu định dạng sau khi chỉnh sửa toidjtjmtoi 2 170 09-01-18, 09:06 AM
Bài mới nhất: toidjtjmtoi

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ơ