Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Giúp về thêm dữ liệu vào cả 2 bảng
#1
Mình hỏi làm cách nào để thêm 1 nhân viên ở bảng nhân viên thì cũng thêm ở bảng nhân sự luôn được không?
Chữ ký của thanhhau828 Xin chào, mình là thanhhau828, Tham gia http://thuthuataccess.com/forum từ ngày 18-04 -13.
Reply
Những người đã cảm ơn
#2
(12-06-13, 03:50 PM)thanhhau828 Đã viết: Mình hỏi làm cách nào để thêm 1 nhân viên ở bảng nhân viên thì cũng thêm ở bảng nhân sự luôn được không?

Dùng AddNew Record mà làm. Có nhiều hướng dẫn trên diễn đàn đó
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
#3
Bạn ơi nội dung này trên diễn đàn đã có rồi. Lần sau bạn nên search trước khi đặt chủ đề mới nhé !
File của bạn cần đây !
File Demo
Hy vọng giúp được bạn !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#4
Chào các bạn,

Mình là thành viên mới của diễn đàn, rất mong được các bạn hướng dẫn thêm. File Demo của bạn tmtien261 rất hữu ích cho mình, cảm ơn bạn nhé.

Tuy nhiên, theo dữ liệu trong file Demo thì chỉ có Manhanvien và Tennhanvien. Khi mình thêm một số trường khác (Bophan, Noidungvipham, ...) thì chương trình lại báo lỗi là dữ liệu không tìm thấy. Đoạn code như sau:

Option Compare Database
Public Nhanvien As New clsNhanvien
Public Nhansu As New clsNhansu

Private Sub btnThem_Click()
If IsNull(Me.txtManhanvien) Or Me.txtManhanvien.Value = "" Or IsNull(Me.txtTennhanvien) Or Me.txtTennhanvien.Value = "" Then
MsgBox "Ch?a nh?p ??y ?? d? li?u. Vui lòng nh?p l?i!"
Me.txtManhanvien.SetFocus
Exit Sub
Else
Nhanvien.Manhanvien = Me.txtManhanvien.Value
Nhanvien.Bophan = Me.txtBophan.Value
Nhanvien.Tennhanvien = Me.txtTennhanvien.Value
Nhanvien.Noidungvipham = Me.txtNoidungvipham.Value
Nhanvien.Ngayvipham = Me.txtNgayvipham.Value
Nhanvien.Dieukhoanvipham = Me.txtDieukhoanvipham.Value
Nhanvien.Hinhthuckyluat = Me.txtHinhthuckyluat.Value
Nhanvien.Them
MsgBox "C?p nh?t thành công!"
DoCmd.Requery
Dim rs1 As Recordset
Set rs1 = Me.RecordsetClone
rs1.FindFirst "[Manhanvien] = '" & Me![txtManhanvien] & "'"
If Not rs1.EOF Then Me.Bookmark = rs1.Bookmark
If UCase(Me.txtManhanvien) = UCase(DLookup("[Manhanvien]", "Nhansu", "[Manhanvien]='" & Me.txtManhanvien & "'")) Then
Cancel = True
Exit Sub
Else
Nhansu.Manhanvien = Me.txtManhanvien.Value
Nhansu.Them
End If
End If
End Sub

Private Sub Command42_Click()

End Sub

Mong các bạn hướng dẫn thêm cho mình.

Cảm ơn các bạn.

An Nguyễn
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
  Tạo Menu dạng TreeView bằng Query (không dùng ActiveX) ongke0711 3 243 6 Giờ trước
Bài mới nhất: toanle
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 35 Hôm nay, 02:23 AM
Bài mới nhất: maidinhdan
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 206 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 124 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  [Hỏi] Tổng hợp dữ liệu theo thời gian hoanghai902 1 139 21-10-16, 09:55 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ơ