Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] giúp đỡ code tự động new một record
#1
Hiện tại mình đang làm phần mềm Quản lý nhà hàng
Mình có một table HoaDonChiTietHoaDon như sau
[Hình: capture1iy.png][Hình: 86217972.png]
Mình muốn thiết kế form như sau
Khi chon một mã bàn trong combobox
Thì sẽ tự động new 1 record trong bảng HoaDon với Mã bàn đã lựa chọn lưu vào trường MaBanngày giờ hiện tại lưu vào trường NgayGioLap và tự động new thêm một record trong bảng ChiTietHoaDon với trường MaHD là Mã hóa đơn mới vừa new trong bảng HoaDon
Bạn nào biết hàm để tự động tạo một record mới chỉ giúp mình cũng được
Mong các bạn giúp đỡ.
Chữ ký của tinho Xin chào, mình là tinho, Tham gia http://thuthuataccess.com/forum từ ngày 30-05 -13.
Reply
Những người đã cảm ơn
#2
Tạo thêm một table tblMaBan rồi link vào table tblHoaDon, tương tư cho tblHoaDon và tblChiTiet
Thâ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
(30-05-13, 03:47 PM)Xuân Thanh Đã viết: Tạo thêm một table tblMaBan rồi link vào table tblHoaDon, tương tư cho tblHoaDon và tblChiTiet
Thân

ý ở đây là muốn hỏi code để tự động tạo ra một Record mới ah bạn. Dù sao cũng cảm ơn bạn!
Chữ ký của tinho Xin chào, mình là tinho, Tham gia http://thuthuataccess.com/forum từ ngày 30-05 -13.
Reply
Những người đã cảm ơn
#4
Thêm một mẩu tin mới vào Recordset
Dùng phương thức Addnew để thêm vào cuối Recordset một bản ghi rỗng và cho phép đưa nội
dung mới vào Bảng đã có sẵn này
Gán giá trị vào các cột của Bảng ghi mới thêm
Dùng phương thức Update để cập nhật mẩu tin mới

Ví dụ : Thủ tục sau sẽ thực hiện các việc :
•Tạo bảng PHIEUNHAP gồm các cột sau:
[MAHANG] - Kiểu TEXT
[TENHANG]-kiểu INTEGER
[SOLUONG]-Kiểu SINGLE
* Nhập dữ liệu từ bàn phím
* Kết thúc nhập dữ liệu bằng việc nhấn Enter vào Mã Hàng

Private Sub Them_So_lieu_Click()
Dim DB As Database, TB As TableDef, MH
Set DB = CurrentDb()
'Tạo Bảng
On Error GoTo LoiNhapsolieu
DB.TableDefs.Delete "PHIEUNHAP"
Set TB = DB.CreateTableDef("PHIEUNHAP")
TB.Fields.Append TB.CreateField("MAHANG", DB_TEXT)
TB.Fields.Append TB.CreateField("TENHANG", DB_INTEGER)
TB.Fields.Append TB.CreateField("SOLUONG", SINGLER)
DB.TableDefs.Append TB
'Cập Nhật Dữ Liệu
Dim Rec As Recordset
Set DB = CurrentDb()
Set Rec = DB.OpenRecordset("PHIEUNHAP", DB_OPEN_TABLE)
Do While True
MH = InputBox ("Mã Hàng")
If Len(MH) = 0 Then Exit Do
Rec.AddNew
Rec("MAHANG") = MH
Rec("TENHANG ") = InputBox ("Tên Hàng")
Rec("SOLUONG") = InputBox ("Số Lượng ")
Rec.Updatable
Loop
Rec.Close
Exit Sub
Vậy hãy 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
Chữ ký của khải nguyên Khải Nguyên Xin Gửi lời chào tới Tất cả các bạn trên Diễn Đàn Thủ Thuật Access
Chúc cả nhà may mắn và  thành đạt ! Lightbulb
Reply
Những người đã cảm ơn tinho
#5
(30-05-13, 05:21 PM)tinho Đã viết: ý ở đây là muốn hỏi code để tự động tạo ra một Record mới ah bạn. Dù sao cũng cảm ơn bạn!

Làm như tôi nói là nó tự động thêm vào mà chẳng cần viết code cho ...mệt. Bạn cũng nên xem lại và tham khảo thêm về Mai và Sub
Lưu ý là ta chỉ viết code khi không thể làm khác hơn hoặc vì tính bảo mật
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 tinho
#6
(30-05-13, 11:38 PM)khải nguyên Đã viết: Thêm một mẩu tin mới vào Recordset
Dùng phương thức Addnew để thêm vào cuối Recordset một bản ghi rỗng và cho phép đưa nội
dung mới vào Bảng đã có sẵn này
Gán giá trị vào các cột của Bảng ghi mới thêm
Dùng phương thức Update để cập nhật mẩu tin mới

Ví dụ : Thủ tục sau sẽ thực hiện các việc :
•Tạo bảng PHIEUNHAP gồm các cột sau:
[MAHANG] - Kiểu TEXT
[TENHANG]-kiểu INTEGER
[SOLUONG]-Kiểu SINGLE
* Nhập dữ liệu từ bàn phím
* Kết thúc nhập dữ liệu bằng việc nhấn Enter vào Mã Hàng

Private Sub Them_So_lieu_Click()
Dim DB As Database, TB As TableDef, MH
Set DB = CurrentDb()
'Tạo Bảng
On Error GoTo LoiNhapsolieu
DB.TableDefs.Delete "PHIEUNHAP"
Set TB = DB.CreateTableDef("PHIEUNHAP")
TB.Fields.Append TB.CreateField("MAHANG", DB_TEXT)
TB.Fields.Append TB.CreateField("TENHANG", DB_INTEGER)
TB.Fields.Append TB.CreateField("SOLUONG", SINGLER)
DB.TableDefs.Append TB
'Cập Nhật Dữ Liệu
Dim Rec As Recordset
Set DB = CurrentDb()
Set Rec = DB.OpenRecordset("PHIEUNHAP", DB_OPEN_TABLE)
Do While True
MH = InputBox ("Mã Hàng")
If Len(MH) = 0 Then Exit Do
Rec.AddNew
Rec("MAHANG") = MH
Rec("TENHANG ") = InputBox ("Tên Hàng")
Rec("SOLUONG") = InputBox ("Số Lượng ")
Rec.Updatable
Loop
Rec.Close
Exit Sub
Vậy hãy 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

Cảm ơn Khải Nguyên đã giúp đỡ!
Chữ ký của tinho Xin chào, mình là tinho, Tham gia http://thuthuataccess.com/forum từ ngày 30-05 -13.
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
Photo [Thủ Thuật] Code chia sẽ hàng thừa Phung Duc 2 58 05-12-16, 04:34 PM
Bài mới nhất: Phung Duc
  Cần giúp đỡ chuyển số có thập phân ra chữ ledangvan 12 635 07-11-16, 03:56 PM
Bài mới nhất: maidinhdan
  [Hỏi] Viết code có điều kiện " lệnh Chạy tiếp khi đóng tbl cho sẵn" Trần Linh 3 140 21-10-16, 11:11 AM
Bài mới nhất: Minh Tiên
  Giải thích ý nghĩ của đoạn code feeling 3 197 06-10-16, 10:18 AM
Bài mới nhất: vulhu06
  [Help] Gửi message đóng ứng dụng tới end user tvn_hut 11 680 30-08-16, 08:27 PM
Bài mới nhất: maidinhdan

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ơ