Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Tạo lệnh các nút Thêm, Sửa, Xóa... ????
#1
Em muốn tạo các command là các nút ĐẦU, TRƯỚC, CUỐI, SAU, THÊM, SỬA, XÓA để điều khiển các mẫu tin trong form. Ở trong form thì có sẵn chế độ wizard nhưng em muốn làm bằng code. Có ai biết xin chỉ giáo giùm em. Em cảm ơn rất nhiều!!027027027015
Chữ ký của maixuanthu Kiên trì và bình tĩnh sẽ giúp bạn thành công!
Reply
Những người đã cảm ơn
#2
(06-05-13, 09:22 PM)maixuanthu Đã viết: Em muốn tạo các command là các nút ĐẦU, TRƯỚC, CUỐI, SAU, THÊM, SỬA, XÓA để điều khiển các mẫu tin trong form. Ở trong form thì có sẵn chế độ wizard nhưng em muốn làm bằng code. Có ai biết xin chỉ giáo giùm em. Em cảm ơn rất nhiều!!027027027015

Mã:
Private Sub Cuoi_Click()
On Error GoTo Err_Cuoi_Click
If cmt = sophieunhap Then
MsgBox "day la phieu nhap cuoi cung, khong di chuyen nua!", vbExclamation + vbDefaultButton1, "chu y"

Else

    DoCmd.GoToRecord , , acLast
End If
Exit_Cuoi_Click:
    Exit Sub

Err_Cuoi_Click:
    MsgBox Err.Description
    Resume Exit_Cuoi_Click
    
End Sub

Mã:
Private Sub Dau_Click()
On Error GoTo Err_Dau_Click
If dmt = sophieunhap Then
MsgBox "day la phieu nhap dau tien, khong di chuyen nua !", vbExclamation + vbDefaultButton1, "chu y"
Else
End If

    DoCmd.GoToRecord , , acFirst

Exit_Dau_Click:
    Exit Sub

Err_Dau_Click:
    MsgBox Err.Description
    Resume Exit_Dau_Click
    
End Sub
Mã:
Private Sub Sau_Click()
On Error GoTo Err_Sau_Click
If cmt = sophieunhap Then
MsgBox "day la phieu nhap cuoi cung, khong di chuyen nua !", vbExclamation + vbDefaultButton1, "chu y"
Else

    DoCmd.GoToRecord , , acNext
End If

Exit_Sau_Click:
    Exit Sub

Err_Sau_Click:
    MsgBox Err.Description
    Resume Exit_Sau_Click
    
End Sub

Mã:
Private Sub Truoc_Click()
On Error GoTo Err_Truoc_Click
If dmt = sophieunhap Then
MsgBox "ban dang o phieu nhap dau tien, khong di chuyen nua!", vbExclamation + vbDefaultButton1, "chu y"
Else

    DoCmd.GoToRecord , , acPrevious
End If

Exit_Truoc_Click:
    Exit Sub

Err_Truoc_Click:
    MsgBox Err.Description
    Resume Exit_Truoc_Click
    
End Sub
Chữ ký của cuong0202 Xin chào, mình là cuong0202, Tham gia http://thuthuataccess.com/forum từ ngày 11-01 -13.
Reply
Những người đã cảm ơn maixuanthu , changkhoonline77


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Subform hoạt động được nhưng không thêm dữ liệu vào được pvhung76 7 174 02-11-17, 08:16 AM
Bài mới nhất: pvhung76
  [Help] Cập nhật dữ liệu cho subform có thêm field mới subasatran 8 405 26-10-17, 05:54 PM
Bài mới nhất: subasatran
  Thêm giá trị vào combobox tại vị trí nhập liệu tranthanhan1962 4 428 02-10-17, 09:26 PM
Bài mới nhất: maidinhdan
  [Hỏi] Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian truongtrungviet 14 1,035 02-07-17, 05:01 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn xin các acc chỉ dùm e sữa lại cấu trúc lệnh kế tiếp mà không được conmaleTK21 3 315 22-06-17, 11:00 PM
Bài mới nhất: tranthanhan1962

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ơ