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

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Mở Form từ listbox, combobox
  

  Viết bởi: Noname 29-08-10, 06:13 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (1)

• 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
  


•   Liên kết tới CSDL là Foxpro,dBase,Access...
  

  Viết bởi: Noname 29-08-10, 10:24 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (12)

• Mã PHP:

  Function ConnectSource(DBF As String, Tenbang As String)
    Dim db As Database, tb As TableDef
    Set db = CurrentDb
    On Error Resume Next
    DoCmd.RunSQL ("drop table " + Tenbang)
    On Error GoTo 0
    Set tb = db.CreateTableDef(Tenbang)
    tb.Connect = ("FoxPro 2.6;Database=path")  tb.SourceTableName = DBF
    db.TableDefs.Append tb
    Set db = Nothing
End Function 

  
  Tương tự, nếu muốn nối tới dbase,bạn thay Foxpro bằng Dbase..
  - Nếu muốn link tới một File Access có mật khẩu bạn thay dòng:
  
  Mã PHP:

  tb.Connect = ("FoxPro 2.6;Database=path") 

  
  bằng
  
  Mã PHP:

  tb.Connect = (";pwd=******;Database=path") 

  
  nguồn: blog suu tam thu thuat
  


•   Sửa lỗi Tiếng Việt khi lưu file dbf vào Access
  

  Viết bởi: Noname 29-08-10, 10:20 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (4)

• Khi import file .dbf vào access thì phần Data không hiển thị được tiếng Việt
  Bạn làm như sau: Mở Regedit của windows và theo path này
  
  Mã:

  HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines
  tìm đến XBase và Paradox rồi sửa lại Value cho phần DataCodePage từ OEM thành ANSI. Rồi import lại xem, Chúc thành công.
  
  Tác giả: Smartman
  


•   Tùy chọn liên kết đến file Data
  

  Viết bởi: DoquangLam 28-08-10, 11:30 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (20)

• Mình có một vấn đề như thế này nhé :
  Hiện tại mình đã viết xong một chương trình kế toán phục vụ cho công việc của mình. Có một điều mình muốn áp dụng cho nhiều doanh nghiệp, mỗi doanh nghiệp một file .mdb thấy không hay lắm. Bây giờ mình muốn : trong thư mục D:\KeToan có file ChuongTrinh.mdb (Là chương trình chính), mỗi một doanh nghiệp dữ liệu chứa riêng một file mdb khác ví dụ như Data01, Data02, Data03... (Chỉ có Table thôi). Mình muốn các bạn giúp mình thiết kế một form (trước khi giao diện của chương trình hiện lên) form này hiện lên danh sách các Data có trong thư mục cùng với ChuongTrinh.mdb để cho mình chọn Data… khi đó chương trình sẽ tự liên kết đến Data mà mình đã chọn. Mình trình bày như vậy các bạn có hiểu không ? Mình rất cần sự giúp đỡ. Cám ơn các bạn nhiều, mong được hồi âm !
  Tên : Đỗ Quang Lãm
  Email : dqlambli@yahoo.com.vn
  
  


•   Lấy về địa chỉ tập tin
  

  Viết bởi: Noname 28-08-10, 11:44 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (1)

• Hỏi: Tôi muốn lấy địa chỉ tập tin file *.mdb (*.mde) để sử dụng như một tham số vào vấn đề khác. Làm sao lấy được địa chỉ một cách tự động khi tập tin cứ luôn bị người dùng thay đổi?
  
  Trả lời: Bạn tạo một hàm GetappPath() trong module với tham số là GetappPath để có thể sử dụng vào mục đích khác. Nội dung như sau:
  
  Mã PHP:

  Function GetAppPath() As String
    On Error Resume Next

    Dim DBName As String
    Dim DBPath As String
    Dim intCurrVal As Integer
    Dim intLastPosition As Integer

    DBName = CurrentDb.Name

    intCurrVal = InStr(DBName, "\")
    Do Until intCurrVal = 0
    intLastPosition = intCurrVal
    intCurrVal = InStr(intLastPosition + 1, DBName, "\")
    Loop

    DBPath = left(DBName, intLastPosition)
    GetAppPath = DBPath

    End Function 

  
  Nếu cần bạn có thể thêm hàm Msgbox () để thông báo đường dẫn hiện tại của tập tin mà ko phu thuộc vào sự thay đổi vị trí tập tin, tức là tham số GetAppPath cũng thay đổi theo sự thay đổi địa chỉ do người dùng.
  
  MsgBox "Duong dan hien tai cua file nay la " & GetAppPath, vbOKOnly, "Thong bao"
  
  Tác giả: PhilongXPCT
  



Chủ đề Mới nhất

uZ8rlF0ykP7dzW5kxD3zdJ6ng... -Chuyên mục: MS Word-Đăng bởi lần cuối: Robertkeeby-6 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1

Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,255

Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 125

Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 142

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 7,849

Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 146

Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 566

Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 166

Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 475

Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,589




Diễn đàn Thống kê

» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ