Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Nhập dữ liệu trên 1 textbox lưu lại trên 2 bảng không dùng relationships
#1
Như tiêu đề mình muốn làm như thế
Đặt Control Source thì chỉ có thể chọn được 1 feild trong bảng
Mà mình lại muốn làm 1 textbox khi nhập vào textbox đó thì dữ liệu sẽ được lưu trên 2 feild của 2 bảng
mọi người giúp mình với
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#2
Mình là newbie, thấy câu hỏi này cũng hay, ngồi làm thử, Các bạn góp ý nha

File Dowload

Mã:
Private Sub cmdLUU_Click()
On Error GoTo cmdLUU_Err

    If Me.NewRecord And Not Me.Dirty Then
        MsgBox "Ban phai nhap du lieu truoc khi luu", , "Luu Y!"
        txtTEN.SetFocus
        Exit Sub
    End If
    
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.SetWarnings False
        If Nz(DLookup("MSNV", "Table2", "MSNV = " & Me.txtMSNV & ""), 0) = 0 Then
            DoCmd.RunSQL "INSERT INTO Table2 SELECT * FROM Table1 WHERE ((Table1.MSNV)=[Forms]![frmTable1]![txtMSNV]);"
        Else
            DoCmd.RunSQL "UPDATE Table1 INNER JOIN Table2 ON Table1.MSNV = Table2.MSNV SET Table2.TEN = Table1.TEN, Table2.TUOI = Table1.TUOI, Table2.DIACHI = Table1.DIACHI WHERE ((Table2.MSNV)=[Forms]![frmTable1]![txtMSNV]);"
        End If
    DoCmd.SetWarnings True
    cmdTHEM.Enabled = True
    cmdTHEM.SetFocus
    cmdLUU.Enabled = False
    
cmdLUU_Exit:
        Exit Sub
cmdLUU_Err:
    MsgBox "Ma loi: " & Err.Number & Chr(13) & Err.Description, , "Loi"
Resume cmdLUU_Exit
End Sub

Mã:
Private Sub Form_Close()
On Error GoTo FClose_Err

    DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO Table2 SELECT * FROM Table1 WHERE (Table1.MSNV Not In (select [MSNV] from [Table2]));"
    DoCmd.SetWarnings True

FClose_Exit:
        Exit Sub
FClose_Err:
    MsgBox "Ma loi: " & Err.Number & Chr(13) & Err.Description, , "Loi"
Resume FClose_Exit
End Sub
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn changkhoonline77 , danhxetnghiem , cawboy , jason
#3
Cách sao lưu dữ liệu này rất hay.

Cảm ơn đã chia sẽ!

Nhưng. Mình muốn lưu theo một thời gian nhất định (ví dụ: 1 ngày hay 6h..v.v. ) thì phải làm sao?
Chữ ký của danhxetnghiem Đừng bao giờ so sánh đoạn đầu của bạn với đoạn giữa của người khác
Reply
Những người đã cảm ơn cawboy


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 197 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 184 22-11-16, 09:23 AM
Bài mới nhất: jason
  [Hỏi] Làm sao để ấn định Null cho trường Date khi sử dụng Class Module Minh Tiên 8 609 18-11-16, 09:29 AM
Bài mới nhất: MinhnHang
  Query hiện lên trên form? feeling 4 160 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  [Hỏi] Tổng hợp dữ liệu theo thời gian hoanghai902 1 138 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ơ