• Trang chủ click to expand contents 

  • Mở Form từ listbox, combobox

  • Mở Form từ listbox, combobox

    Noname > 29-08-10, 06:13 PM

    Tạo một combo box từ mẫu biểu nào mà bạn muốn chọn để mở mẫu biểu đầu tiên. Combo box được thiết lập các thuộc tính sau:
    Name: List of forms
    Data: Value list (để cài đặt thuộc tính Row Source type)
    Event: [On Enter]
    ' Đoạn mã xử lý như sau:

    Mã PHP:
    Private Sub Listofforms_enter()
               Dim MyDb as Database
           Dim MyContainer     as Container
           Dim I     as integer
           Dim     list as string
           Set MyDb     = DBEngine.Workspace(0).Database(0)
               Set My Container = MyDb.Containers("Forms")
           List =     " "
               For I=0 to MyContainer.Documents.count - 1
               List = List & MyContainer.Documents(I).name & ";"
               Next I
           me    ![List of Forms].Row Suorce = Left(List, Len(list)-1)
            End sub 
    ' Nhập tiếp thuộc tính After Update của Combo box

    Mã PHP:
    Private Sub ListofForms_AfterUpdate()
               Docmd.OpenForm me![ListofForms)
            End Sub 

    Sưu Tầm

  • RE: Mở Form từ listbox, combobox

    nhattiensinh > 21-01-11, 08:36 PM

    No name có thể hướng dẫn cách click vào 1 record trên listbox thì dữ liệu của sub form thay đổi ko?