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

Tạo Form co dãn (ẩn hiện Form Footer)

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Tạo Form co dãn (ẩn hiện Form Footer)
• Tạo Form co dãn (ẩn hiện Form Footer)

• Tạo Form co dãn (ẩn hiện Form Footer)

  tranthanhan1962 > 04-05-15, 03:43 PM

  Trong một vài trường hợp chúng ta muốn dấu một phần form để kiểm soát một sự kiện nào đó Ví dụ:
  
  Với nghiệp vụ mua hàng, bán hàng cần hiện phần kho để nhập dữ liệu, với nghiệp vụ không liên quan đến kho như chi phí, thu nợ… Thì không cần phải hiện kho
  
  
  Để thực hiện điều này, tôi xin giới thiệu cho các bạn thủ thuật dưới đây:
  Chúng ta tạo một sub có tên CoDan (co dãn)
  Sub sẽ nầy kiểm tra Check Box kho, khi Check Box kho = true form sẽ hiện phần kho để chúng ta nhập dữ liệu, ngược lại nó sẽ dấu phần kho.
  
  
  

  Mã PHP:

  Sub CoDan()
    
    Set sct = Me.Section(acFooter)
    MoRong = KHO.Value
    If MoRong = True Then
    sct.Visible = True
    Else
    sct.Visible = False
    End If
    DoCmd.DoMenuItem acFormBar, 7, 6, 0, acMenuVer70
    If Not MoRong Then
        Me.Painting = True
        Me(KhoCtl).SetFocus
    Else
        Me(PhatsinhCtl).SetFocus
    End If

End Sub 


  Khi chúng ta muốn xử lý vào Even nào chỉ cần gọi sub
  Demo

• RE: Tạo Form co dãn (ẩn hiện Form Footer)

  Cuong Servenet > 24-08-18, 04:15 PM

  (04-05-15, 03:43 PM)tranthanhan1962 Đã viết: Trong một vài trường hợp chúng ta muốn dấu một phần form để kiểm soát một sự kiện nào đó Ví dụ:
   
  Với nghiệp vụ mua hàng, bán hàng cần hiện phần kho để nhập dữ liệu, với nghiệp vụ không liên quan đến kho như chi phí, thu nợ… Thì không cần phải hiện kho
  
  
  Để thực hiện điều này, tôi xin giới thiệu cho các bạn thủ thuật dưới đây:
  Chúng ta tạo một sub có tên CoDan (co dãn)
  Sub sẽ nầy kiểm tra Check Box kho, khi Check Box kho = true form sẽ hiện phần kho để chúng ta nhập dữ liệu, ngược lại nó sẽ dấu phần kho.
  
  
  

  Mã PHP:

  Sub CoDan()
   
   Set sct = Me.Section(acFooter)
   MoRong = KHO.Value
   If MoRong = True Then
   sct.Visible = True
   Else
   sct.Visible = False
   End If
   DoCmd.DoMenuItem acFormBar, 7, 6, 0, acMenuVer70
   If Not MoRong Then
       Me.Painting = True
       Me(KhoCtl).SetFocus
   Else
       Me(PhatsinhCtl).SetFocus
   End If

End Sub 


  Khi chúng ta muốn xử lý vào Even nào chỉ cần gọi sub
  Demo

  
  anh up lai link dowload đi , link này die rồi ạ. chắc có nhiều bạn cũng muốn xem ạ

• RE: Tạo Form co dãn (ẩn hiện Form Footer)

  tranthanhan1962 > 24-08-18, 11:34 PM

  (24-08-18, 04:15 PM)Cuong Servenet Đã viết: anh up lai link dowload đi , link này die rồi ạ. chắc có nhiều bạn cũng muốn xem ạ

  
  Hì hì! Thực ra demo cũng chỉ là cái sub này thôi chứ không có gì khác. Để rảnh mình sẽ up lại.
• Bài trước Bài tiếp