Đá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
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 38 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  [Help]Tạo nút lệnh tiếp tục khanhnevn30 6 409 18-06-16, 08:39 PM
Bài mới nhất: maidinhdan
  Nho Giup Do Ve Cac Nut Lenh Trong Form duynghiep89 1 119 19-05-16, 01:18 AM
Bài mới nhất: ongke0711
  GIẢI THÍCH CÁC LỆNH KHI VIẾT CODE huynhbahoc 3 2,945 26-03-16, 09:19 PM
Bài mới nhất: phuc_thanhtien
  [Hỏi] Tự thêm record có mã gần nhất ! hugox03 3 205 15-03-16, 07:27 AM
Bài mới nhất: MatTroiNguQuen

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ơ