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

Lỗi khi link table giữa 2 file mdb

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Lỗi khi link table giữa 2 file mdb
• Lỗi khi link table giữa 2 file mdb

• Lỗi khi link table giữa 2 file mdb

  Binh > 20-01-11, 10:02 AM

  Mình đã tạo một file mdb, bây giờ muốn share cho 1 người khác dùng chung, mình đã copy ra 1 file mdb mới (không có table) và link table với file source. Nhưng khi run thì bị lỗi OpenRecordset trong đoạn code sau:
  
  Public Function suaCTVB(MaVB, MaNXL)
  Dim Mautin As Recordset
  Set Mautin = CurrentDb.OpenRecordset("QTXL", dbOpenTable)
  If Not Mautin.EOF Then
  Mautin.MoveFirst
  Do Until Mautin.EOF
  If (Mautin!ID_VB = MaVB And Mautin!MaNhan = MaNXL) Then
  Mautin.Edit
  Mautin!DXL = True
  Mautin.Update
  End If
  Mautin.MoveNext
  Loop
  End If
  Mautin.Close
  End Function
  
  Help me!
  Thanks very much much!

• RE: Lỗi khi link table giữa 2 file mdb

  mrchau911 > 20-01-11, 10:33 AM

  bạn nên nén nó lại rồi share cho người khác .
  

• RE: Lỗi khi link table giữa 2 file mdb

  Binh > 20-01-11, 11:18 AM

  (20-01-11, 10:33 AM)mrchau911 Đã viết: bạn nên nén nó lại rồi share cho người khác .

  
  Thank mrchau911!
  Vấn đề ở đây không phải là "giao" luôn cho người khác mà là cùng dùng chung data.

• RE: Lỗi khi link table giữa 2 file mdb

  Noname > 20-01-11, 11:19 AM

  Bạn chú ý thông số dbOpentable chỉ dùng cho table trực tiếp trong Access, muốn mở table qua link, bạn phải đổi qua tham số khác, cụ thể trường hợp này bạn đổi như sau:
  

  Mã:

  Set Mautin = CurrentDb.OpenRecordset("QTXL", dbOpenTable)

  
  thành
  

  Mã:

  Set Mautin = CurrentDb.OpenRecordset("QTXL", dbOpenDynaset)

• RE: Lỗi khi link table giữa 2 file mdb

  Binh > 20-01-11, 04:56 PM

  Mình thử lại OK rồi. Thanks NoName nhiều nhiều!

• RE: Lỗi khi link table giữa 2 file mdb

  cong_agribankPT > 12-01-12, 02:54 PM

  E muốn mở 1 table link qua SQL nhưng cũng bị lỗi như vậy..E đã thử theo cách của bác noname nhưng ko được..có cách nào ko bác...Mong các bác chỉ giáo.Thanks các bác nhiều

• RE: Lỗi khi link table giữa 2 file mdb

  Noname > 12-01-12, 03:14 PM

  (12-01-12, 02:54 PM)cong_agribankPT Đã viết: E muốn mở 1 table link qua SQL nhưng cũng bị lỗi như vậy..E đã thử theo cách của bác noname nhưng ko được..có cách nào ko bác...Mong các bác chỉ giáo.Thanks các bác nhiều

  
  Bạn mở rồi làm gì với nó? Check lại xem mình có quyền xem sửa xóa trên table đó không đã!
  Bạn đã thử...nhưng thử thế nào? Code của bạn đâu

• RE: Lỗi khi link table giữa 2 file mdb

  cong_agribankPT > 12-01-12, 04:05 PM

  Code đây bác ạ...Table "Khachhang" là table được link qua SQL. E dùng ở máy e thì không sao, nhưng khi chuyển sang các máy trạm thì báo lỗi "You must use the dbseeChanges option with OpenRecordset when accessing a SQL server table that has an IDENTITY column"
  User e connect SQL được quyền sửa, xóa, thêm mới..Nhờ các bác chỉ giáo
  
  Private Sub Text2_AfterUpdate()
  Dim db As DAO.Database
  Dim rs As DAO.Recordset
  Set db = CurrentDb()
  Set rs = db.OpenRecordset("Khachhang1", dbOpenDynaset)
  If IsNull(Text2) Or Text2 = "" Then
  MsgBox "Ban phai nhap ma dinh danh"
  Me.Command56.Enabled = False
  Me.Command57.Enabled = False
  Else
  Do While rs.EOF = False
  If rs!MaKH = Text2 Then
  Me.Text5 = rs!ten
  tam = 1
  Me.Label0.Visible = True
  Me.Label1.Visible = True
  Me.Label20.Visible = True
  Me.Label23.Visible = True
  Me.Label24.Visible = True
  Me.Label25.Visible = True
  Me.Label67.Visible = True
  Me.Sotien.Visible = True
  Me.Label14.Visible = True
  Me.Hantra.Visible = True
  Me.Label17.Visible = True
  Me.LS.Visible = True
  Me.Label21.Visible = True
  Me.Ngayvay.Visible = True
  Me.Mucdich.Visible = True
  Me.Soky.Visible = True
  Me.Label63.Visible = True
  Me.Label65.Visible = True
  Me.CBTD.Visible = True
  Me.TPTD.Visible = True
  'Me.Label74.Visible = True
  'Me.Text75.Visible = True
  Me.Command56.Enabled = True
  Me.Command57.Enabled = True
  Me.Command81.Enabled = True
  Exit Do
  Else
  tam = 0
  End If
  rs.MoveNext
  Loop
  If tam = 0 Then
  If MsgBox("Khach hang chua ton tai!Co dang ky luon ko?", vbYesNo, "Thông báo") = vbYes Then
  DoCmd.OpenForm "frmKhachhang"
  Else
  Me.Text2 = ""
  Me.Text2.SetFocus
  End If
  End If
  End If
  End Sub
  

• RE: Lỗi khi link table giữa 2 file mdb

  Noname > 13-01-12, 03:41 PM

  Nếu máy bạn không sao mà ở máy trạm bị, chứng tỏ vấn đề không nằm ở Access mà ở SQL server.
  Từ file Access của máy trạm, bạn có mở table link lên có được không?

• RE: Lỗi khi link table giữa 2 file mdb

  thelemontree10 > 14-01-12, 11:32 PM

  Theo như mình được biết qua tài liệu Help có sẵn trong Access, khi dùng chung data thì người ta dùng Microsoft Sharepoint có kèm theo trong đĩa Microsoft Office. Bạn thử xem sao.
  
• Bài trước Bài tiếp