Đá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
  Thông báo dữ liệu đã tồn tại thanhtruong 20 1,139 30-07-17, 12:07 PM
Bài mới nhất: advnamk
  [Help] Code update dữ liệu từ subform vào table history(có ghi nhận ngày update) subasatran 5 243 10-07-17, 02:07 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian truongtrungviet 14 610 02-07-17, 05:01 PM
Bài mới nhất: maidinhdan
  [Hỏi] Xin Giúp dùm cái form thanhhao 4 137 30-06-17, 11:37 AM
Bài mới nhất: thanhhao
  Hướng Dẫn Giúp sửa đổi thành forms tìm kiếm nhiều tiêu chí xndt 6 417 15-05-17, 02:52 PM
Bài mới nhất: xndt

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ơ