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

Tìm kiếm và hiển thị danh sách Table hiện có trong Database lên form !

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Tìm kiếm và hiển thị danh sách Table hiện có trong Database lên form !
• Tìm kiếm và hiển thị danh sách Table hiện có trong Database lên form !

• Tìm kiếm và hiển thị danh sách Table hiện có trong Database lên form !

  Minh Tiên > 18-11-12, 07:27 AM

  tmtien261 1 nhờ các Pro chỉ giáo thêm:
  
  Tôi có 2 table1, table2 và 1 form1 để hiển thị. Xin hỏi có cách nào (bằng code hoặc ...) mà khi mở form1 lên trên form1 sẽ hiển thị danh sách các Table đang có trong Database. Nếu thêm table mới thì form1 sẽ Update vào danh sách để hiển thị lên form1.

• RE: Tìm kiếm và hiển thị danh sách Table hiện có trong Database lên form !

  Minh Tiên > 21-10-13, 12:22 PM

  Chủ đề này tmtien261 đã hỏi rất lâu rồi nhưng ko ACE nào trả lời giúp. Giờ mình đã mày mò trên diễn đàn và đã tạm thời làm được rồi.
  Nay mình xin chia sẽ cho các ACE muốn làm như mình.
  Demo
  Thân chào !

• RE: Tìm kiếm và hiển thị danh sách Table hiện có trong Database lên form !

  Minh Tiên > 21-10-13, 12:55 PM

  Chủ đề này tmtien261 đã hỏi rất lâu rồi nhưng ko ACE nào trả lời giúp. Giờ mình đã mày mò trên diễn đàn và đã tạm thời làm được rồi.
  Nay mình xin chia sẽ cho các ACE muốn làm như mình.
  Demo_LayDanhsachTenTable_TrongDatabase
  Thân chào !

• RE: Tìm kiếm và hiển thị danh sách Table hiện có trong Database lên form !

  Xuân Thanh > 21-10-13, 01:28 PM

  "Đơn giản" như "đan rổ". Bạn không cần cầu kỳ như vậy, chỉ cần lưu ý tới table hệ thống của Database là OK. Và cũng chẳng cần DBEngine làm chi cho tốn hao. Chỉ cần như thế này là đủ
  
  

  Mã PHP:

  Private Sub btnLaytenTable_Click()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("tblDanhSach_Table", dbOpenTable)
    Dim i As Integer
    For i = 0 To CurrentDb.TableDefs.Count - 1
        If Left(CurrentDb.TableDefs(i).Name, 4) <> "MSys" Then
            rs.AddNew
            rs.Fields(0) = CurrentDb.TableDefs(i).Name
            rs.Update
        End If
    Next
    Me.Requery
End Sub 


  
  Tạo form như của bạn và đặt nguồn cho form là table tblDanhSach_Table
  Quá đơn giản, đúng không nào
  Thân mến
• Bài trước Bài tiếp