Record không hiển thị đúng theo ý!!!!

Thảo luận trong 'Ứng dụng Access' bắt đầu bởi khanhtrang1512, 21 Tháng mười 2006.

1,818 lượt xem

  1. khanhtrang1512

    khanhtrang1512 Thành viên hoạt động

    Bài viết:
    10
    Đã được thích:
    0
    Nơi ở:
    87 Phan Chu Trinh
    Trong khi nhập dữ liệu trong 1 forms có combo box(CB) - gọi là F1, khi CB này thiếu dữ liệu, tôi đã tạo thêm 1 Command button (CN) để mở form có thể nhập dữ liệu cho CB - gọi là F2. Sau khi nhập xong, đóng form F2 này lại, trở form F1 vẫn ko thấy có dữ liệu mới. Chỉ khi nào đóng F1 này và mở lại thì mới thấy dữ liệu mới vừa nhập. Có cách nào để không đóng F1 mà chỉ vừa đóng F2 đã có thể thấy được dữ liệu mới.
     
    #1
  2. congvinh

    congvinh Thành viên hoạt động

    Bài viết:
    108
    Đã được thích:
    1
    Nơi ở:
    Ho Chi Minh City
    CB.requery

    have fun !!!
     
    #2
  3. khanhtrang1512

    khanhtrang1512 Thành viên hoạt động

    Bài viết:
    10
    Đã được thích:
    0
    Nơi ở:
    87 Phan Chu Trinh
    Cảm ơn CV. Nếu CB là subform thì sẽ giải quyết như thế nào (vì subform.requery vẫn không đc)
     
    #3
  4. congvinh

    congvinh Thành viên hoạt động

    Bài viết:
    108
    Đã được thích:
    1
    Nơi ở:
    Ho Chi Minh City
    CB là 1 điều khiển nằm trên form, nếu là subform thì CB cũng chỉ là 1 đối tượng con của nó nên cách làm tương tự. Chứ chỉ có CB thì làm sao gọi là 1 subform được.
     
    #4
  5. ĐỖ SƠN HẢI

    ĐỖ SƠN HẢI Thành viên thân thiết

    Bài viết:
    130
    Đã được thích:
    0
    Nơi ở:
    Phan Thiết
    Ban viết mốt đoạn code để chương trình tự cập nhật khi phát sinh mã đối tượng mới vd Khi phát sinh mả khách hàng mời bạn cập nhật :
    Private Sub khachhang_AfterUpdate()
    Dim c03 As Recordset, c04 As Recordset
    Set c03 = CurrentDb.OpenRecordset("khachhang", dbOpenTable)
    c03.Index = "PRIMARYKEY"
    If c03.RecordCount > 0 Then
    c03.MoveFirst
    Do Until c03.EOF
    'On Error Resume Next
    c03.Seek "=", khachhang
    If c03.NoMatch Then
    c03.AddNew
    c03!MAKHACH = KHACHHANG

    'On Error Resume Next
    c03.Update: c03.Bookmark = c03.LastModified
    End If
    c03.Edit
    c03.Update: c03.MoveNext
    Loop
    End If
    End Sub

    CHÚC BẠN THANH CÔNG
     
    #5
  6. ĐỖ SƠN HẢI

    ĐỖ SƠN HẢI Thành viên thân thiết

    Bài viết:
    130
    Đã được thích:
    0
    Nơi ở:
    Phan Thiết
    Giai Quyết Subform

    Ban viết mốt đoạn code để chương trình tự cập nhật khi phát sinh mã đối tượng mới vd Khi phát sinh mả khách hàng mời bạn cập nhật :
    Private Sub khachhang_AfterUpdate()
    Dim c03 As Recordset, c04 As Recordset
    Set c03 = CurrentDb.OpenRecordset("khachhang", dbOpenTable)
    c03.Index = "PRIMARYKEY"
    If c03.RecordCount > 0 Then
    c03.MoveFirst
    Do Until c03.EOF
    'On Error Resume Next
    c03.Seek "=", khachhang
    If c03.NoMatch Then
    c03.AddNew
    c03!MAKHACH = KHACHHANG

    'On Error Resume Next
    c03.Update: c03.Bookmark = c03.LastModified
    End If
    c03.Edit
    c03.Update: c03.MoveNext
    Loop
    End If
    End Sub

    CHÚC BẠN THANH CÔNG
     
    #6

Chia sẻ trang này