Nhập liệu qua mạng lan trong access

[hoanglich2009]

Tôi viết code cho nút lệnh Lưu như sau:
Private Sub capnhat_Click()
'On Error Resume Next
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("BGH", dbOpenTable)
rs.Index = "primarykey"
rs.Seek "=", Me.MaBGH
If Not IsNull(Me.MaBGH) Then
If rs.NoMatch Then
rs.AddNew
rs!MaBGH = Me.MaBGH
rs!TenBGH = Me.TenBGH
rs.Update
Else
MsgBox "Mã này có roi, vui lòng nhap lai mã khác", vbOKOnly, "Th«ng b¸o'"
Me.MaBGH.SetFocus
End If
Else
MsgBox "Ban cha nhap ma BGH", vbOKOnly, "Th«ng b¸o"
Me.MaBGH.SetFocus
End If
End Sub

file này có tên DBsys.mdb được lưu trên máy 1, khi chạy thì nút này rất ngon lành, nhưng khi chuyển sang mạng Lan, trên máy 2 tôi Link table đến máy 1, thì khi nhập liệu bị báo lỗi ở dòng màu đỏ. Mong các bạn hướng dẫn giúp. Cảm ơn nhiều

 

[hoanglich2009]

Ðề: Nhập liệu qua mạng lan trong access

Cảm ơn các bạn, mình đã làm được rồi, lý do là phải chỉ database bằng đường dẫ tuyệt đối, nghĩa là set db=opendatabase ("...\...\*.mdb")

 

[lehongduc]

Ðề: Nhập liệu qua mạng lan trong access

Tôi viết code cho nút lệnh Lưu như sau:
Private Sub capnhat_Click()
'On Error Resume Next
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("BGH", dbOpenTable)
rs.Index = "primarykey"
rs.Seek "=", Me.MaBGH
If Not IsNull(Me.MaBGH) Then
If rs.NoMatch Then
rs.AddNew
rs!MaBGH = Me.MaBGH
rs!TenBGH = Me.TenBGH
rs.Update
Else
MsgBox "Mã này có roi, vui lòng nhap lai mã khác", vbOKOnly, "Th«ng b¸o'"
Me.MaBGH.SetFocus
End If
Else
MsgBox "Ban cha nhap ma BGH", vbOKOnly, "Th«ng b¸o"
Me.MaBGH.SetFocus
End If
End Sub

file này có tên DBsys.mdb được lưu trên máy 1, khi chạy thì nút này rất ngon lành, nhưng khi chuyển sang mạng Lan, trên máy 2 tôi Link table đến máy 1, thì khi nhập liệu bị báo lỗi ở dòng màu đỏ. Mong các bạn hướng dẫn giúp. Cảm ơn nhiều

Chào Bạn,
Lỗi ở chỗ sử dụng các tham số của OpenRecordset.

Cú pháp đầy đủ của method OpenRecordset là:
expression.OpenRecordset(Name, Type, Options, LockEdit)

Ở đây xin chú ý tham số Type:
+ Nếu Recordset là table nội tại của database (local table): ta dùng Type là dbOpenTable
+ Nếu Recordset là table link từ ngoài vào database hay là Query của database (attach table): ta dùng Type là dbOpenDynaset
Do vậy với trường hợp thứ hai Bạn phải khai báo dòng bị báo lỗi là:
Set rs = db.OpenRecordset("BGH", dbOpenDynaset)

 

[tuliemhanoi]

Ðề: Nhập liệu qua mạng lan trong access

mình cho rằng tạo 1 file excel nhập liệu link đến file access gốc cũng là 1 cách, file excel mỗi người có 1 file, chắc là OK