• 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ụ:
    [Hình: 0c5ZDgx.png]
    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

    [Hình: vZWUvYB.png]
    Để 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.
    [Hình: JSBpHV7.png]

    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 acFormBar760acMenuVer70
        
    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ụ:
     [Hình: 0c5ZDgx.png]
    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

    [Hình: vZWUvYB.png]
    Để 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.
    [Hình: JSBpHV7.png]

    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 acFormBar760acMenuVer70
       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.