Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
hỏi về code đóng mở form trong access
#1
Question 
xin anh/chị chỉ dùm e cái code đóng mở form trong access. tình hình là em muốn mở cái form này thì cái form trước đó sẽ bị đóng lại, khi đóng cái form hiện tại thì cái form trước đó sẽ tự động đc mở lại ( là mình đag ở form ông nội mà mình mở form cha thì form ông nội sẽ bị đóng lại và mở form con thì form cha sẽ bị đóng lại. còn khi mình đóng form con thì form cha sẽ tự động đc mở lại và đóng form cha thì form og nội sẽ tự động đc mở lại)
e xin cám ơn các anh/chị nhiều nhaStarStarStar
Chữ ký của cuongvan09 Xin chào, mình là cuongvan09, Tham gia http://thuthuataccess.com/forum từ ngày 17-03 -12.
Reply
Những người đã cảm ơn
#2
Bạn chọn hai thuộc tính pop up=yes và Medal= yes.

Mình tin chắc là được. nhưng nhiều khi cũng phiền toái cho người dùng đó.

Chúc Bạn thành công!
Chữ ký của gialilama Xin chào, mình là gialilama, Tham gia http://thuthuataccess.com/forum từ ngày 08-02 -12.
Reply
Những người đã cảm ơn Noname , cuongvan09
#3
Giả sử bạn có hai form là FormChaFormCon. Bạn muốn khi mở FormCon thì tự đóng FormCha, và khi đóng FormCon thì FormCha tự mở lại. Dưới đây là cách thực hiện:

Bạn tạo một module vào copy code sau vào:
Mã:
' Cho âÒn hiêòn form Form
'Write by Noname
'Site thuthuataccess.com
Sub setVisibleForm(myForm As String, Visible As Boolean)
If visible Then
    If Forms(myForm).CurrentView = 0 Then
        DoCmd.OpenForm myForm
     End If
End If
Forms(myForm).Visible = Visible

End Sub
Trong sự kiện Form_Load của form con, bạn cho code sau vào:
Mã:
Private Sub Form_Load()
setVisibleForm "FormCha", False ' thay chu  FormCha bang form truoc do cua ban
End Sub

Trong sự kiện Unload của Form Con, cho code sau vào:
Mã:
Private Sub Form_Unload(Cancel As Integer)
setVisibleForm "FormCha", True
End Sub

Xem demo


File đính kèm
.zip   anhienformchacon.zip (Kích cỡ: 14.47 KB / Tải về: 127)
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn cuongvan09 , gialilama , Cafe Via He , khaccuong , ngocbich_19
#4
Câu lệnh cho nút Đóng của frmCha
Mã:
Private Sub cmdDong_Click()
DoCmd.OpenForm("frmCon", acNormal)
Docmd.Close
End Sub
Tương tự cho frCon
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 Cafe Via He


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Load file định dạng .pdf lên form kutieu2016 4 118 21-04-17, 10:17 AM
Bài mới nhất: lmthu
  [Help] Bẫy lỗi tiếng Việt trùng dữ liệu khi bấm nút Lưu trên Form ongke0711 5 166 19-04-17, 06:29 PM
Bài mới nhất: tranthanhan1962
  [Help] link data access 32bit từ máy sử dụng access 64bit thucgia 1 81 25-03-17, 12:25 PM
Bài mới nhất: cpucloi
  Bạn nào có công cụ sửa lỗi File access cho mình với ledangvan 0 74 14-02-17, 11:13 AM
Bài mới nhất: ledangvan
  Tạo ứng dụng Access 2003 chạy qua mạng internet tt1212 12 2,321 10-02-17, 10:57 AM
Bài mới nhất: nguyenduykhanhpt

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ơ