Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Giúp mình xem code mình với
#1
MÌnh đang làm 1 form điều động nhân sự Các bạn giúp mình xem code này với nó cứ báo lỗi "Runtime-eror 3021" No current record

Private Sub Cmd_Dieudong_Click()
Dim DK As String
If IsNull(Me.MANV) Or Me.MANV = "" Then
MsgBox "Vui long nhap User Name", vbOKOnly, "Thong bao"
Me.MANV.SetFocus
Else
Dim HOI
DK = Me.MANV
HOI = MsgBox("BAN CO CHAC CHAN DIEU DONG NHAN SU NAY KHONG?", vbOKCancel, "Thoâng baùo")
If (HOI = vbOK) Then
Dim db As DAO.Database
Dim TB As DAO.Recordset
Set db = CurrentDb
Set TB = db.OpenRecordset("NHANVIEN", DB_OPEN_TABLE)
TB.Index = "PRIMARYKEY"
TB.Seek "=", DK
TB.Edit "Lỗi chỗ này"
TB!MAPB = Me.PBMOI
TB!MACV = Me.CVMOI
TB!LUONGCB = Me.LUONGMOI
TB.Update
End If
End If
End Sub
Chữ ký của tqcuong Xin chào, mình là tqcuong, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -14.
Reply
Những người đã cảm ơn
#2
Lưu ý khi dùng Seek. Nếu tìm không thấy thì báo lỗi. Nếu tìm thấy thì mới Edit.
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Chào bạn !
Sau code: TB.Seek "=", DK
Bạn thêm:
If Not TB.NoMatch Then 'Nếu tìm thấy
TB.Edit
...
(Code của bạn)
Thân chào !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
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
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 228 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Không chạy được VBA Code hungthanmx 3 214 04-09-16, 03:48 PM
Bài mới nhất: Nguyen Hoang Diep
  [Help] Nhờ anh em trong diễn đàn giúp mình thiết kế chương trình báo dịch hàng ngày vinhpaint 1 254 21-06-16, 09:15 AM
Bài mới nhất: zinzin8x
  [Help] ai giúp mình code lại sql này thành access với li_95 0 121 24-04-16, 05:59 PM
Bài mới nhất: li_95
  [Lỗi] không chạy được code findfirst letheanhcpqn 2 223 15-12-15, 02:05 PM
Bài mới nhất: letheanhcpqn

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ơ