• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tạo nút thêm record trong form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Tạo nút thêm record trong form
• Tạo nút thêm record trong form

• Tạo nút thêm record trong form

  vuquanghai > 28-04-13, 06:14 PM

  Em tạo 1 command button "thêm nhân viên" trong form như sau.
  
  
  
  
  Sau khi hoàn thành, em thử nhập 1 nhân viên mới, nhưng khi nhấn vào command "thêm nhân viên" thì dữ liệu không hề được ghi vào trong table. Hình ảnh của nó như sau
  
  
  
  
  Mọi người hãy để ý vào chỗ e khoanh đỏ ở 2 ảnh trên. Trong table của e mới nhập tay có 8 nhân viên. Ở form, sau khi nhấn nút "thêm nhân viên" thì ở chỗ khoanh đỏ báo là có 9 record (tức là đã thêm được 1 nhân viên), nhưng khi mở table lên, thì số lượng nhân viên vẫn là 8. Mọi người có thể cho em biết vì sao lại thế được không ạ?

• RE: Tạo nút thêm record trong form

  cpucloi > 28-04-13, 06:33 PM

  Bạn thiết lập thuộc tính của MANV là Number hay AutoNumber, xem lại nhé.
  Tại khoanh màu đỏ thứ 2, bạn cũng chỉ có 8 record thôi (không có nhân viên số 8) chứ không phải là 9 record nhé.

• RE: Tạo nút thêm record trong form

  vuquanghai > 28-04-13, 06:40 PM

  MANV của em là auto number. Như vậy có sao k ạ?
  Thì ở cái khoanh đỏ thứ nhất, sau khi nhấn nút thêm, access đã báo là có 9 record, nhưng ở trong table vẫn chỉ có 8. Đó là chỗ e thắc mắc ạ.

• RE: Tạo nút thêm record trong form

  cpucloi > 28-04-13, 07:34 PM

  Bạn để ý, nếu MANV là Autonumber thì nó hiện số liên tiếp từ 1 ->9, nhưng của bạn đang thiếu số 8, chắc có hành động nào xóa nó rồi.
  Thông thường, khi bạn thêm record mới (thêm ký tự đầu tiên vào record) thì access đã thêm record đó và lưu nó (trừ trường hợp bạn Esc), do đó, nếu bạn làm theo Wizard thì không có chuyện không thêm được record.
  Post file lên xem nào?

• RE: Tạo nút thêm record trong form

  vuquanghai > 28-04-13, 07:42 PM

  Đây nè bạn. Cái lúc nãy là mình cop từ nhà mang ra ngoài hàng, vừa trông hàng vừa làm
  Còn cái này là bản ở nhà của mình, mới chỉ có 7 NV liên tiếp từ 1->7, nhưng vẫn k add vào được.
  http://www.mediafire.com/?8orhiedm8otyqc8

• RE: Tạo nút thêm record trong form

  khải nguyên > 29-04-13, 12:21 PM

  Form này thiết kế chưa hoàn chỉnh ....Không có NGUỒN của các Textbox tương ứng trong Table NHANVIEN cho các Label thì lấy đâu ra mà nó lưu vào đc !???
  Anh mới vẽ ra các textbox chứ đã có gì đâu mà bắt nó thi hành lệnh của anh hà trời ! ?
  Luyện nhiều nhiều vào há
  Chúc Thành Công .
  Khải Nguyên !

• RE: Tạo nút thêm record trong form

  quan_pc > 30-04-13, 12:37 AM

  Đơn giản là ở số 8 lúc bạn tạo bạn đã xoá nó rồi, với chế độ autonumber khi bạn xoá 1 mẫu tin thì nó tự động hiểu và bỏ qua số thứ tự mẫu tin đó, bài của bạn cũng vậy, theo mình bạn nên để ở chế độ number và viết 1 đoạn code tăng số tự động khi kích vào nút thêm.

• RE: Tạo nút thêm record trong form

  canboxatq > 01-06-13, 04:34 PM

  (30-04-13, 12:37 AM)quan_pc Đã viết: Đơn giản là ở số 8 lúc bạn tạo bạn đã xoá nó rồi, với chế độ autonumber khi bạn xoá 1 mẫu tin thì nó tự động hiểu và bỏ qua số thứ tự mẫu tin đó, bài của bạn cũng vậy, theo mình bạn nên để ở chế độ number và viết 1 đoạn code tăng số tự động khi kích vào nút thêm.

  
  bạn có thể viết hộ mình cái code tăng số tự động khi kích vào nút thêm đc ko

• RE: Tạo nút thêm record trong form

  khải nguyên > 02-06-13, 04:29 PM

  Ví dụ :
  Table1-->có:.STT, SOPHIEU, NGAY, MAHANG,TENHANG,SLUONG, GHICHU
  Nguồn của Form=Table1 và có 2 Nút THEMMOI + Reset
  Và đây là các Code :
  Option Compare Database
  Private Sub Form_Load()
  SOPHIEU = Format(TT + 1, "0000000")
  STT = Format(HD + 1, "0000000")
  End Sub
  
  Private Sub Reset_Click()
  SOPHIEU = Format(TT + 0, "0000000")
  STT = Format(HD + 0, "0000000")
  MsgBox "OK ! Chương trình hoàn chỉnh", vbCritical, "Khải Nguyên"
  End Sub
  
  Private Sub THEMMOI_Click()
  Dim TT, HD
  DoCmd.GoToRecord , , acNewRec
  HD = DLast("[SOPHIEU]", "Table1")
  TT = DLast("[SOPHIEU]", "Table1")
  STT = Format(HD + 1, "0000000")
  SOPHIEU = Format(TT + 1, "0000000")
  MsgBox "OK ! Chương trình hoàn chỉnh", vbCritical, "Khải Nguyên"
  End Sub
  Nghiên cứu áp dụng vào bài của mình cho thích hợp
  Chúc Thành Công
  Khải Nguyên

• RE: Tạo nút thêm record trong form

  Xuân Thanh > 02-06-13, 08:16 PM

  Chi mà dài dòng dữ vậy Khải Nguyên? Chỉ cần
  
  

  Mã PHP:

  Private Sub cmdNew_Click()
    Dim TT As Double
    TT = DCount("MaNV", "tblNhanVien")
    Me.MaNV = Right("00000" & TT + 1, 5)
End Sub 


  
  Lưu ý : MaNV trong table sẽ có két quả là 00001, 00002, 00003....Bài này đã nói nhiều trên diễn đàn rồi
  Thân mến
• Bài trước Bài tiếp