Xin mạn phép "Các ACE Pro", tmtien261 xin chia sẻ cùng một số "ACE mới nghiên cứu Acc" một cách lấy nhanh thông tin tra cứu về Form bằng việc sử dụng Tempvars. Cách này rất "đang giỡn" với các ACE Pro, nhưng với các ACE mới tiếp cận Acc thì rất hữu ích.
Nội dung chính:
Bước 1: Tạo các From, table
1. frmXuathang gồm textbox: txtMahang, txtTenhang.
2. frmDanhsachhanghoa gồm: ma, ten, soluongdon, dongia có nguồn từ table tblDanhsachhanghoa (ma,ten,soluongton,dongia)
Bước 2:
1. Trên FormXuathang:
- Tại On Double_Click của txtMahang gõ lệnh:
Mã:
Docmd.OpenForm "frmDanhsachhanghoa"
- Tại On Active của form gõ đoạn code sau:
Mã:
If Me.txtMahang.Enabled = True Then
If Not IsNull(TempVars!BienMahang) Then
Me.txtMahang.Value = TempVars!BienMahang
Me.txtTenhang.Value = TempVars!BienTenhang
TempVars.Remove "BienMahang"
TempVars.Remove "BienTenhang"
End If
End If
2. Trên frmDanhsachhanghoa:
- Tại On Double_Click của textbox Ma gõ đoạn code:
Mã:
If CurrentProject.AllForms("frmXuathang").IsLoaded = False Then
Exit Sub 'Hoặc thực hiện thông báo jj đó ...
Else
TempVars.Add "BienMahang", Me.ma.Value
TempVars.Add "BienTenhang", Me.ten.Value
DoCmd.Close acForm, "frmDanhsachhanghoa"
End If
3. Thực thi:
Mở frmXuathang, nhấp đúp chuột trái vào txtMahang sẽ mở Form danh sách hàng hóa. Trên frmDanhsachhanghoa, nhấp dúp chuột trái vào textbox ma (Mã hàng) sẽ lấy thông tin Mã hàng, Tên hàng về frmXuathang.
Demo
Thân chào !