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

Nhập dữ liệu vào 2 table khác nhau bằng form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Nhập dữ liệu vào 2 table khác nhau bằng form
• Nhập dữ liệu vào 2 table khác nhau bằng form

• Nhập dữ liệu vào 2 table khác nhau bằng form

  vuquanghai > 01-05-13, 06:55 AM

  Relationship của mình như sau
  
  Còn đây là form thêm xe
  
  Sau khi nhấn nút "Khách gửi xe" thì mình mới chỉ lưu được record vào trong tabble KHACHHANG, còn table HOADON, thì lại chả lưu cái gì cả.
  Vậy cho mình hỏi, làm thế nào để sau khi ấn nút "Khách gửi xe" kia, thì dữ liệu vừa lưu vào table KHACHHANG, vừa lưu các field tương ứng vào trong table HOADON?
  
  À cho mình hỏi 1 cái nữa. Làm thế nào để liên kết 1 combo box với 1 textbox? Ví dụ ở combo Mã NV mình chọn 1, thì textbox Tên NV sẽ hiện lên tên của người đó.

• RE: Nhập dữ liệu vào 2 table khác nhau bằng form

  quan_pc > 01-05-13, 01:41 PM

  Bạn viết lại lệnh cho cái nút "Khách gởi xe" thay vì viết bằng macro bạn chọn [Event Procedure] ... sau đó bỏ đoạn code này vào.
  Bạn cần xác định các khoá chính ở rs2 để điền vào cho phù hợp, code bên dưới là ví dụ còn sơ sài khi nào bạn làm ổn định sẽ bẫy lỗi sau, lưu ý là bạn phải viết cái rs2 điền đầy đủ các trường trong bảng HoaDon vào bên dưới mình mới ghi 2 cái bks vs loaixe nên bỏ vào nó sẽ báo lỗi thiếu thông tin.
  

  Mã:

  Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim rs2 As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("khachhang")
    Set rs2 = db.OpenRecordset("hoadon")
    rs.MoveFirst
    rs2.MoveFirst

    Do While (rs.EOF = False)
        If (rs.Fields("BIENKIEMSOAT") = BIENKIEMSOAT.Value) Then
            MsgBox "Ten da co"
            Exit Sub
        End If
        rs.MoveNext
    Loop
    rs.AddNew
    rs.Fields("BIENKIEMSOAT") = BIENKIEMSOAT.Value
    rs.Fields("LOAIXE") = LOAIXE.Value
    rs.Fields("BAIGUIXE") = BAIGUIXE.Value
    rs.Update
    rs.Close
    rs2.MoveNext
    rs2.AddNew
    rs2.Fields("BIENKIEMSOAT") = BIENKIEMSOAT.Value
    rs2.Fields("LOAIXE") = LOAIXE.Value
    rs2.Update
    rs2.Close
    db.Close
    MsgBox "ok"
End Sub

• RE: Nhập dữ liệu vào 2 table khác nhau bằng form

  ttm20062008 > 01-05-13, 06:32 PM

  Hiện textbox khi chọn combobox, chỗ textbox "cho" cái này vào: =[combobox].[column](1)
  Chúc mừng Bác Quan_pc đã lên "Thành viên đẳng cấp"

• RE: Nhập dữ liệu vào 2 table khác nhau bằng form

  vuquanghai > 01-05-13, 06:43 PM

  rs2 là cái gì hả bác ơi

• RE: Nhập dữ liệu vào 2 table khác nhau bằng form

  ttm20062008 > 01-05-13, 07:02 PM

  (01-05-13, 06:43 PM)vuquanghai Đã viết: rs2 là cái gì hả bác ơi

  rs2 để mở recordset bảng Hóa đơn

• RE: Nhập dữ liệu vào 2 table khác nhau bằng form

  Xuân Thanh > 02-05-13, 04:21 PM

  (01-05-13, 01:41 PM)quan_pc Đã viết: Bạn viết lại lệnh cho cái nút "Khách gởi xe" thay vì viết bằng macro bạn chọn [Event Procedure] ... sau đó bỏ đoạn code này vào.
  Bạn cần xác định các khoá chính ở rs2 để điền vào cho phù hợp, code bên dưới là ví dụ còn sơ sài khi nào bạn làm ổn định sẽ bẫy lỗi sau, lưu ý là bạn phải viết cái rs2 điền đầy đủ các trường trong bảng HoaDon vào bên dưới mình mới ghi 2 cái bks vs loaixe nên bỏ vào nó sẽ báo lỗi thiếu thông tin.
  

  Mã:

  Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim rs2 As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("khachhang")
    Set rs2 = db.OpenRecordset("hoadon")
    rs.MoveFirst
    rs2.MoveFirst

    Do While (rs.EOF = False)
        If (rs.Fields("BIENKIEMSOAT") = BIENKIEMSOAT.Value) Then
            MsgBox "Ten da co"
            Exit Sub
        End If
        rs.MoveNext
    Loop
    rs.AddNew
    rs.Fields("BIENKIEMSOAT") = BIENKIEMSOAT.Value
    rs.Fields("LOAIXE") = LOAIXE.Value
    rs.Fields("BAIGUIXE") = BAIGUIXE.Value
    rs.Update
    rs.Close
    rs2.MoveNext
    rs2.AddNew
    rs2.Fields("BIENKIEMSOAT") = BIENKIEMSOAT.Value
    rs2.Fields("LOAIXE") = LOAIXE.Value
    rs2.Update
    rs2.Close
    db.Close
    MsgBox "ok"
End Sub

  
  1/ Không cần duyệt rs chi cho dài dòng sẽ chậm hơn, chỉ cần thay
  

  Mã:

  ...
    rs.MoveFirst
    rs2.MoveFirst

    Do While (rs.EOF = False)
        If (rs.Fields("BIENKIEMSOAT") = BIENKIEMSOAT.Value) Then
            MsgBox "Ten da co"
            Exit Sub
        End If
        rs.MoveNext
    Loop
....

  
  thành
  
  

  Mã:

  If Dcount("BIENKIEMSOAT","khachhang") > 1 Then
    MsgBox "Ten da co"
    Exit Sub
Else
    rs.AddNew
    ....

  
  rs2 cũng không cần MoveFirst, AddNew ngay
  
  Thân mến
• Bài trước Bài tiếp