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

[khanhtrang1512]

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.

 

[congvinh]

CB.requery

have fun !!!

 

[khanhtrang1512]

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)

 

[congvinh]

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.

 

[ĐỖ SƠN HẢI]

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

 

[ĐỖ SƠN HẢI]

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