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

Giúp về thêm dữ liệu vào cả 2 bảng

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Giúp về thêm dữ liệu vào cả 2 bảng
• Giúp về thêm dữ liệu vào cả 2 bảng

• Giúp về thêm dữ liệu vào cả 2 bảng

  thanhhau828 > 12-06-13, 03:50 PM

  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?

• RE: Giúp về thêm dữ liệu vào cả 2 bảng

  Xuân Thanh > 12-06-13, 04:44 PM

  (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

• RE: Giúp về thêm dữ liệu vào cả 2 bảng

  Minh Tiên > 12-06-13, 06:09 PM

  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 !

• RE: Giúp về thêm dữ liệu vào cả 2 bảng

  annguyen040182 > 26-07-13, 11:32 AM

  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
• Bài trước Bài tiếp