Đánh giá chủ đề:
  • 3 Votes - 3.33 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lỗi khi link table giữa 2 file mdb
#1
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!
Chữ ký của Binh Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
bạn nên nén nó lại rồi share cho người khác .
ღღღღღTài sản của mrchau911 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(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.
Chữ ký của Binh Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#4
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)
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , darkmoon
#5
Mình thử lại OK rồi. Thanks NoName nhiều nhiều!
Chữ ký của Binh Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#6
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
Chữ ký của cong_agribankPT Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#7
(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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
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
Chữ ký của cong_agribankPT Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#9
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?
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
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.
Chữ ký của thelemontree10 Xin chào, mình là thelemontree10, Tham gia http://thuthuataccess.com/forum từ ngày 12-12 -11.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Lỗi không tạo file mới bằng định dạng .mdb feeling 4 87 29-11-16, 04:22 PM
Bài mới nhất: feeling
  Hướng Dẫn [Link Google] Tất cả các bản Office Portable maidinhdan 0 101 01-10-16, 04:59 PM
Bài mới nhất: maidinhdan
  [Hỏi] File chạy chậm vì trong quá trình design phải chỉnh sửa và test thử nhiều. toancvp 4 265 29-07-16, 11:36 PM
Bài mới nhất: toancvp
  [Hỏi] Cách lưu trữ phần CSDL tách biệt khỏi file access toancvp 5 517 16-07-16, 09:38 PM
Bài mới nhất: toancvp
  [Hỏi] Về cách lưu file .doc đang mở toancvp 4 321 21-06-16, 11:39 AM
Bài mới nhất: toancvp

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ