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

Mở kết nối lại link table không cần activex Control

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Mở kết nối lại link table không cần activex Control
• Mở kết nối lại link table không cần activex Control

• Mở kết nối lại link table không cần activex Control

  ledangvan > 06-05-17, 10:20 PM

  Có bác nào biết chỉ giùm tôi có cách nào kết nối lại link table không cần activex Control không ? 

• RE: Mở kết nối lại link table không cần activex Control

  maidinhdan > 06-05-17, 10:41 PM

  (06-05-17, 10:20 PM)ledangvan Đã viết: Có bác nào biết chỉ giùm tôi có cách nào kết nối lại link table không cần activex Control không ? 

  
  Thử cái này xem: Chép 2 hàm này vào mà dùng
  

  Mã PHP:

  Function TaoLinkTable(DuongdanFile As String, MatkhauFile As String, TenTableCanLink As String, DatTenLinkTable As String) As Boolean
    On Error GoTo Loi
    
    Dim tdf As TableDef
    Dim TestLinkTable As Boolean
    Dim myDB As Database

    If KiemtraTableTontai(DatTenLinkTable) Then
        CurrentDb.TableDefs.Delete DatTenLinkTable
    End If
    Set myDB = CurrentDb
    Set tdf = myDB.CreateTableDef(DatTenLinkTable)
    
    With tdf
        .Connect = "Ms Access;UID=Admin;PWD=" & MatkhauFile & ";DATABASE=" & DuongdanFile
        '.Connect = ";PWD=" & PwdString & ";DATABASE=" & strPath
        .SourceTableName = TenTableCanLink
    End With
    
    myDB.TableDefs.Append tdf
    
    TestLinkTable = True
    
LoiExit:
    TaoLinkTable = TestLinkTable
    Exit Function
    
Loi:
    If Err = 3110 Then
        Resume LoiExit
    Else
        If Err = 3011 Then
            Resume Next
        End If
    End If
End Function 


  
  
  
  

  Mã PHP:

  Function KiemtraTableTontai(tblName As String) As Boolean
    Dim tdf As TableDef
    Set tdf = CurrentDb.TableDefs(tblName)
    Set tdf = Nothing
    KiemtraTableTontai = True
End Function 


• RE: Mở kết nối lại link table không cần activex Control

  ledangvan > 06-05-17, 11:10 PM

  (06-05-17, 10:41 PM)maidinhdan Đã viết:

  (06-05-17, 10:20 PM)ledangvan Đã viết: Có bác nào biết chỉ giùm tôi có cách nào kết nối lại link table không cần activex Control không ? 

  
  Thử cái này xem: Chép 2 hàm này vào mà dùng
  

  Mã PHP:

  Function TaoLinkTable(DuongdanFile As String, MatkhauFile As String, TenTableCanLink As String, DatTenLinkTable As String) As Boolean
    On Error GoTo Loi
    
    Dim tdf As TableDef
    Dim TestLinkTable As Boolean
    Dim myDB As Database

    If KiemtraTableTontai(DatTenLinkTable) Then
        CurrentDb.TableDefs.Delete DatTenLinkTable
    End If
    Set myDB = CurrentDb
    Set tdf = myDB.CreateTableDef(DatTenLinkTable)
    
    With tdf
        .Connect = "Ms Access;UID=Admin;PWD=" & MatkhauFile & ";DATABASE=" & DuongdanFile
        '.Connect = ";PWD=" & PwdString & ";DATABASE=" & strPath
        .SourceTableName = TenTableCanLink
    End With
    
    myDB.TableDefs.Append tdf
    
    TestLinkTable = True
    
LoiExit:
    TaoLinkTable = TestLinkTable
    Exit Function
    
Loi:
    If Err = 3110 Then
        Resume LoiExit
    Else
        If Err = 3011 Then
            Resume Next
        End If
    End If
End Function 


  
  
  
  

  Mã PHP:

  Function KiemtraTableTontai(tblName As String) As Boolean
    Dim tdf As TableDef
    Set tdf = CurrentDb.TableDefs(tblName)
    Set tdf = Nothing
    KiemtraTableTontai = True
End Function 


  
  Cách dùng như nào chỉ anh với Dân ơi

• RE: Mở kết nối lại link table không cần activex Control

  maidinhdan > 06-05-17, 11:23 PM

  (06-05-17, 11:10 PM)ledangvan Đã viết:

  (06-05-17, 10:41 PM)maidinhdan Đã viết:

  (06-05-17, 10:20 PM)ledangvan Đã viết: Có bác nào biết chỉ giùm tôi có cách nào kết nối lại link table không cần activex Control không ? 

  
  Thử cái này xem: Chép 2 hàm này vào mà dùng
  

  Mã PHP:

  Function TaoLinkTable(DuongdanFile As String, MatkhauFile As String, TenTableCanLink As String, DatTenLinkTable As String) As Boolean
    On Error GoTo Loi
    
    Dim tdf As TableDef
    Dim TestLinkTable As Boolean
    Dim myDB As Database

    If KiemtraTableTontai(DatTenLinkTable) Then
        CurrentDb.TableDefs.Delete DatTenLinkTable
    End If
    Set myDB = CurrentDb
    Set tdf = myDB.CreateTableDef(DatTenLinkTable)
    
    With tdf
        .Connect = "Ms Access;UID=Admin;PWD=" & MatkhauFile & ";DATABASE=" & DuongdanFile
        '.Connect = ";PWD=" & PwdString & ";DATABASE=" & strPath
        .SourceTableName = TenTableCanLink
    End With
    
    myDB.TableDefs.Append tdf
    
    TestLinkTable = True
    
LoiExit:
    TaoLinkTable = TestLinkTable
    Exit Function
    
Loi:
    If Err = 3110 Then
        Resume LoiExit
    Else
        If Err = 3011 Then
            Resume Next
        End If
    End If
End Function 


  
  
  
  

  Mã PHP:

  Function KiemtraTableTontai(tblName As String) As Boolean
    Dim tdf As TableDef
    Set tdf = CurrentDb.TableDefs(tblName)
    Set tdf = Nothing
    KiemtraTableTontai = True
End Function 


  
  Cách dùng như nào chỉ anh với Dân ơi

  
  Sax, Gửi file lên đây hoặc gửi vào email em minh họa cho,

• RE: Mở kết nối lại link table không cần activex Control

  ledangvan > 07-05-17, 12:00 AM

  Sax, Gửi file lên đây hoặc gửi vào email em minh họa cho,
  [/quote]
  
  Giúp anh với nhé : http://www.mediafire.com/file/s4uwih26j9...Ketnoi.rar

• RE: Mở kết nối lại link table không cần activex Control

  maidinhdan > 07-05-17, 12:37 AM

  (07-05-17, 12:00 AM)ledangvan Đã viết: Sax, Gửi file lên đây hoặc gửi vào email em minh họa cho,

  
  Giúp anh với nhé : http://www.mediafire.com/file/s4uwih26j9...Ketnoi.rar
  [/quote]
  
  Lưu ý trong hàm: TaoLinkTable có đoạn
  Dùng cái này nếu file có mật khẩu:
  

  Mã PHP:

  .Connect = "Ms Access;UID=Admin;PWD=" & MatkhauFile & ";DATABASE=" & DuongdanFile 


  Còn file anh gửi không có mật khẩu thì dùng
  

  Mã PHP:

  .Connect = ";DATABASE=" & DuongdanFile 


  
  Và khi gọi ra dùng đối với bài anh thì:
  

  Mã PHP:

  Private Sub cmdLinktable_Click()
Dim linkfile As String
linkfile = CurrentProject.Path & "\db2_be.mdb"

TaoLinkTable linkfile, "", "A", "AX"
TaoLinkTable linkfile, "", "B", "BX"

MsgBox "Da Link thanh cong"
End Sub 


  
  File đính kèm đã sửa, hy vọng đúng ý anh

• RE: Mở kết nối lại link table không cần activex Control

  ledangvan > 07-05-17, 09:54 AM

  (07-05-17, 12:37 AM)maidinhdan Đã viết:

  (07-05-17, 12:00 AM)ledangvan Đã viết: Sax, Gửi file lên đây hoặc gửi vào email em minh họa cho,

  
  Giúp anh với nhé : http://www.mediafire.com/file/s4uwih26j9...Ketnoi.rar

  
  Lưu ý trong hàm: TaoLinkTable có đoạn
  Dùng cái này nếu file có mật khẩu:
  

  Mã PHP:

  .Connect = "Ms Access;UID=Admin;PWD=" & MatkhauFile & ";DATABASE=" & DuongdanFile 


  Còn file anh gửi không có mật khẩu thì dùng
  

  Mã PHP:

  .Connect = ";DATABASE=" & DuongdanFile 


  
  Và khi gọi ra dùng đối với bài anh thì:
  

  Mã PHP:

  Private Sub cmdLinktable_Click()
Dim linkfile As String
linkfile = CurrentProject.Path & "\db2_be.mdb"

TaoLinkTable linkfile, "", "A", "AX"
TaoLinkTable linkfile, "", "B", "BX"

MsgBox "Da Link thanh cong"
End Sub 


  
  File đính kèm đã sửa, hy vọng đúng ý anh
  [/quote]
  
  Tạo link thì OK tuy nhiên anh muốn nó link tất cả các table theo dữ liệu mà anh lựa chọn chứ không mặc định nó tên là db2_be
  Có nghĩa là khi anh an open hoặc Link thì nó mở File cho anh lựa chọn và link các table của file lựa chọn đó

• RE: Mở kết nối lại link table không cần activex Control

  maidinhdan > 07-05-17, 07:30 PM

  (07-05-17, 09:54 AM)ledangvan Đã viết: Tạo link thì OK tuy nhiên anh muốn nó link tất cả các table theo dữ liệu mà anh lựa chọn chứ không mặc định nó tên là db2_be
  Có nghĩa là khi anh an open hoặc Link thì nó mở File cho anh lựa chọn và link các table của file lựa chọn đó

  
  Anh xem lại Tiêu đề và câu mình đã đặt ra, Muốn hỏi câu khác thì làm Topic mới.
  
  Và cũng lưu ý: Trình bày câu hỏi rõ ràng, tốt nhất có ví dụ minh họa. Đừng tiết kiệm vài phút gõ bàn phím.
  
  Thân mến!

• RE: Mở kết nối lại link table không cần activex Control

  ledangvan > 08-05-17, 09:20 AM

  (07-05-17, 07:30 PM)maidinhdan Đã viết:

  (07-05-17, 09:54 AM)ledangvan Đã viết: Tạo link thì OK tuy nhiên anh muốn nó link tất cả các table theo dữ liệu mà anh lựa chọn chứ không mặc định nó tên là db2_be
  Có nghĩa là khi anh an open hoặc Link thì nó mở File cho anh lựa chọn và link các table của file lựa chọn đó

  
  Anh xem lại Tiêu đề và câu mình đã đặt ra, Muốn hỏi câu khác thì làm Topic mới.
  
  Và cũng lưu ý: Trình bày câu hỏi rõ ràng, tốt nhất có ví dụ minh họa. Đừng tiết kiệm vài phút gõ bàn phím.
  
  Thân mến!

  
  Câu hỏi anh đặt rõ mà Dân, anh hỏi là : Mở kết nối lại link table
  Anh hỏi cái này vì hiện tại việc Open và kết nối lại link anh dùng thông qua Activex Control, tuy nhiên ở một số máy chạy win64 hay offce 2007 nó hay bị lỗi nên anh không muốn dùng thông qua Activex Control, nên anh mới đặt câu hỏi như vậy.
  Trong demo của em gửi cho anh, lúc anh để nguyên tên db2_be thì nó kết nối đúng, khi anh đổi file đó thành db2_be1 thì nó vẫn báo "Đã kết nối" tuy nhiên 2 bảng  link A và B thì bị xóa đi.
  Trong hàm của em anh thấy có kiểm tra tồn tại của bảng, nhưng sao khi anh đổi tên dữ liệu đáng ra nó phải báo là không có bảng hay dữ liệu không đúng chứ nhỉ.
  Thực ra anh là dân không chuyên nên cũng có thể cách đặt câu hỏi cũng không chính xác lắm, mong Dân và anh em trong diễn đàn thông cảm và giúp đỡ.
  Xin trân trọng cảm ơn

• RE: Mở kết nối lại link table không cần activex Control

  ongke0711 > 08-05-17, 01:33 PM

  (08-05-17, 09:20 AM)ledangvan Đã viết: Anh hỏi cái này vì hiện tại việc Open và kết nối lại link anh dùng thông qua Activex Control, tuy nhiên ở một số máy chạy win64 hay offce 2007 nó hay bị lỗi nên anh không muốn dùng thông qua Activex Control, nên anh mới đặt câu hỏi như vậy.
  Trong demo của em gửi cho anh, lúc anh để nguyên tên db2_be thì nó kết nối đúng, khi anh đổi file đó thành db2_be1 thì nó vẫn báo "Đã kết nối" tuy nhiên 2 bảng  link A và B thì bị xóa đi.
  Trong hàm của em anh thấy có kiểm tra tồn tại của bảng, nhưng sao khi anh đổi tên dữ liệu đáng ra nó phải báo là không có bảng hay dữ liệu không đúng chứ nhỉ.

  
  Nếu không dùng ActiveX Control, sao anh không dùng hàm API họăc FileDialog để mở file cần xử lý.
  
  

  Mã PHP:

  Private Sub cmdBrowse_Click()
Dim dlgopen As Object  'FileDialog'
Dim strFolder As String
Set dlgopen = Application.FileDialog(4)  '(msoFileDialogFolderPicker)'
strFolder = "Chưa chọn folder nào cả"
With dlgopen
   If .Show = -1 Then
       strFolder = dlgopen.SelectedItems(1)
       Me.txtPath = strFolder
   End If
End With 


  
  Hàm API: copy vào Module
  
  

  Mã PHP:

  Option Compare Database
Option Explicit

#If VBA7 Then
   Public Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias _
           "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
      
   Public Type OPENFILENAME
       lStructSize As Long
       hwndOwner As LongPtr
       hInstance As LongPtr
       lpstrFilter As String
       lpstrCustomFilter As String
       nMaxCustFilter As Long
       nFilterIndex As Long
       lpstrFile As String
       nMaxFile As Long
       lpstrFileTitle As String
       nMaxFileTitle As Long
       lpstrInitialDir As String
       lpstrTitle As String
       flags As Long
       nFileOffset As Integer
       nFileExtension As Integer
       lpstrDefExt As String
       lCustData As Long
       lpfnHook As LongPtr
       lpTemplateName As String
   End Type
  
#Else

   Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
           "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
      
   Public Type OPENFILENAME
       lStructSize As Long
       hwndOwner As Long
       hInstance As Long
       lpstrFilter As String
       lpstrCustomFilter As String
       nMaxCustFilter As Long
       nFilterIndex As Long
       lpstrFile As String
       nMaxFile As Long
       lpstrFileTitle As String
       nMaxFileTitle As Long
       lpstrInitialDir As String
       lpstrTitle As String
       flags As Long
       nFileOffset As Integer
       nFileExtension As Integer
       lpstrDefExt As String
       lCustData As Long
       lpfnHook As Long
       lpTemplateName As String
   End Type
#End If

Function LaunchCD(strform As Form) As String
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String
   OpenFile.lStructSize = Len(OpenFile)
   OpenFile.hwndOwner = strform.Hwnd
   sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _
     "JPEG Files (*.JPG)" & Chr(0) & "*.JPG" & Chr(0)
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = "C:\"
   OpenFile.lpstrTitle = "Select a file using the Common Dialog DLL"
   OpenFile.flags = 0
   lReturn = GetOpenFileName(OpenFile)
       If lReturn = 0 Then
           MsgBox "Ban khong chon file nao!", vbInformation, _
             "Thong bao"
        Else
           LaunchCD = Trim(Left(OpenFile.lpstrFile, InStr(1, OpenFile.lpstrFile, vbNullChar) - 1))
        End If
End Function 


  
  - Về cái hàm KiemTraTonTai, nếu không lầm thì bạn Dân thiếu cái bẫy lỗi:
  

  Mã PHP:

  Function KiemtraTableTontai(tblName As String) As Boolean
    On Error Resume Next
   Dim tdf As TableDef
   Set tdf = CurrentDb.TableDefs(tblName)
   If Err.Number = 3265 Then
       KiemtraTableTontai = False
   Else
       KiemtraTableTontai = True
   End If
End Function 

• Bài trước Bài tiếp