Tùy chọn
giúp đỡ code tự động new một record
- giúp đỡ code tự động new một record
-
giúp đỡ code tự động new một record
tinho > 30-05-13, 03:36 PM
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 HoaDon và ChiTietHoaDon như sau
![[Hình: capture1iy.png]](http://imageshack.us/a/img507/1320/capture1iy.png)
![[Hình: 86217972.png]](http://imageshack.us/a/img89/3121/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 MaBan và ngà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 đỡ.
-
RE: giúp đỡ code tự động new một record
Xuân Thanh > 30-05-13, 03:47 PM
Tạo thêm một table tblMaBan rồi link vào table tblHoaDon, tương tư cho tblHoaDon và tblChiTiet
Thân -
RE: giúp đỡ code tự động new một record
khải nguyên > 30-05-13, 11:38 PM
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 -
RE: giúp đỡ code tự động new một record
Xuân Thanh > 31-05-13, 09:18 AM
(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 -
RE: giúp đỡ code tự động new một record
tinho > 31-05-13, 02:30 PM
(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 đỡ!