• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Lấy nhanh thông tin tra cứu về Form !

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Lấy nhanh thông tin tra cứu về Form !
• Lấy nhanh thông tin tra cứu về Form !

• Lấy nhanh thông tin tra cứu về Form !

  Minh Tiên > 29-12-13, 11:56 AM

  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 !

• RE: Lấy nhanh thông tin tra cứu về Form !

  Xuân Thanh > 30-12-13, 10:49 AM

  1/ Đơn giản như "đan rổ", không cần cầu kỳ như vậy. Đã một lần hướng dẫn trên diễn đàn rồi, hôm nay nhắc lại thôi
  2/ Chỉ cần hai câu lệnh truyền tham số từ form sang form là OK
  
  2.1/ Tại form frmHangXuat
  

  Mã:

  Private Sub txtMaHang_Click()
    DoCmd.OpenForm "frmHangHoa", acNormal
End Sub

  
  2.2/ Tại form frmHangHoa
  

  Mã:

  Private Sub MaHang_Click()
    Forms!frmHangXuat!txtMaHang = Forms!frmHangHoa!MaHang
    Forms!frmHangXuat!txtTenHang = Forms!frmHangHoa!TenHang
    DoCmd.Close
End Sub

  
  Thân mến

• RE: Lấy nhanh thông tin tra cứu về Form !

  Minh Tiên > 31-12-13, 05:39 PM

  Cảm ơn XT !
  Vì trong ứng dụng của mình có nhiều Form yêu cầu lấy thông tin trong Danh sách hàng hóa nên mình sẽ kết hợp việc dùng Tempvars với cách của Xuân Thanh để lấy thông tin. Cụ thể:
  1. Tại txtMahang_DblClick trên form1, viết đoạn code:
  

  Mã:

  TempVars.Add "BienTimMahang", "Form1"
DoCmd.OpenForm "frmDanhsachhanghoa", acNormal, , , , acWindowNormal

  2. Tại txtMahang_DblClick trên form2, viết đoạn code:
  

  Mã:

  TempVars.Add "BienTimMahang", "Form2"
DoCmd.OpenForm "frmDanhsachhanghoa", acNormal, , , , acWindowNormal

  
  3. Tại Mahang_DblClick trên form frmDanhsachhanghoa, viết đoạn code:
  

  Mã:

  Private Sub Mahang_DblClick(Cancel As Integer)
    If IsNull(TempVars!BienTimMahang) Then
        Exit Sub
    Else
        Dim frmName As Form
        Select Case TempVars!BienTimMahang
            Case "Form1"
                Set frmName = Forms!Form1
            Case "Form2"
                Set frmName = Forms!Form2
        End Select
        With frmName.Form
            !txtMahang = Forms!frmDanhsachhanghoa!Mahang
            !txtTenhang = Forms!frmDanhsachhanghoa!Tenhang
        End With
        DoCmd.Close acForm, "frmDanhsachhanghoa"
        TempVars.Remove "BienTimMahang"
    End If
End Sub

  4. Xin hỏi các Pro mình muốn lấy giá trị của biến BienTimMahang để làm tên cho Form (Ví dụ như: Form1) sau đó dùng tên này làm tên Form luôn (Ko dùng kiểu Select hay If để set Form) ko biết có cách nào làm được không ?
  Mình "mò" mãi ko được. Nhờ các ACE Pro chỉ giúp, cảm ơn nhiều !
  
  Nhân dịp năm 2013 sắp hết, năm 2014 chuẩn bị đến, tmtien261 chúc các ACE hãy rũ bỏ những buồn phiền của năm cũ, chuẩn bị đón nhận nhiều may mắn, thật nhiều hạnh phúc trong năm mới ! Happy New Year !
  Thân chào !

• RE: Lấy nhanh thông tin tra cứu về Form !

  Xuân Thanh > 02-01-14, 11:10 AM

  (31-12-13, 05:39 PM)tmtien261 Đã viết: .......
  4. Xin hỏi các Pro mình muốn lấy giá trị của biến BienTimMahang để làm tên cho Form (Ví dụ như: Form1) sau đó dùng tên này làm tên Form luôn (Ko dùng kiểu Select hay If để set Form) ko biết có cách nào làm được không ?
  Mình "mò" mãi ko được. Nhờ các ACE Pro chỉ giúp, cảm ơn nhiều !
  
  Nhân dịp năm 2013 sắp hết, năm 2014 chuẩn bị đến, tmtien261 chúc các ACE hãy rũ bỏ những buồn phiền của năm cũ, chuẩn bị đón nhận nhiều may mắn, thật nhiều hạnh phúc trong năm mới ! Happy New Year !
  Thân chào !

  
  Cũng được thôi nhưng hơi phức tạp một tý
  1/ Tạo một modul mới rồi chép đoạn code sau vào
  
  

  Mã PHP:

  Option Compare Database
Option Explicit
Public frmABC As String

Function FormIsLoaded(frmName As String) As Boolean
    Dim i As Integer
    FormIsLoaded = False
    For i = 0 To Forms.Count - 1
        If Forms(i).Name = frmName Then
            FormIsLoaded = True
            Exit Function
        End If
    Next
End Function 


  
  2/ Tại form cần lấy dữ liệu (ví dụ frmHangNhap)
  
  

  Mã PHP:

  Option Compare Database
Option Explicit

Private Sub txtMaHang_Click()
    DoCmd.OpenForm "frmHangHoa", acNormal
    frmABC = "frmHangNhap"
End Sub 


  
  3/ Tại form frmHangHoa
  
  

  Mã PHP:

  Option Compare Database
Option Explicit

Private Sub MaHang_Click()
    If FormIsLoaded(frmABC) = True Then
         With Forms(frmABC)
            .Form!txtMaHang = Forms!frmHangHoa!MaHang
            .Form!txtTenHang = Forms!frmHangHoa!TenHang
        End With
    End If
    DoCmd.Close
End Sub 


  
  Thế là OK thôi
  Thân mến
  
  P/S : Bạn có thể tạo một hàm lấy dữ liệu rồi từ form cần lấy dữ liệu(ví dụ trên là form frmHangNhap) gọi hàm này để thực thi. Bạn nghiên cứu tiếp nhé
  

  ---

  Muốn dùng TemVar như bạn thì Public một form như tôi đã làm là được. Nhưng khuyên bạn đừng phức tạp hóa vấn đề. càng đơn giản bao nhiêu càng tốt bấy nhiêu miễn sao chương trình chạy ổn định là được. Nhiều khi chương trình bị lỗi, mình cũng chẳng biết lỗi ở dâu mà sửa
  Thân mến
• Bài trước Bài tiếp