Tùy chọn
Nối các trường trong subfrm sang table có điều kiện
- Nối các trường trong subfrm sang table có điều kiện
-
Nối các trường trong subfrm sang table có điều kiện
tronghieu9792 > 27-04-17, 08:25 AM
Chào anh, chị diễn đàn. Tui có một vấn đề như sau, xin chỉ giúp.
Trong mainfrm có một combobox, Khi chọn một đơn vị trong combobox của mainfrm thì subfrm hiển thị tất cả nhân viên trong đơn vị đó (vấn đề này đã làm được), trong đó
dữ liệu ở subfrm lấy nguồn từ một queryA gồm các trường: Hoten, MasoNV, Ngay (trường ngày hiển thị ngày/tháng/năm). Vấn đề cần giúp là làm thế nào trong mainfrm có thể tạo một lệnh để nối các dữ liệu trong subfrm hiện hành vào một bảng dùng để lưu dữ liệu đó vào (tableB) gồm các trường như queryA. Điều kiện: Nếu dữ liệu tableB rỗng thì nối dữ liệu hiện hành trong subfrm. Nếu trong tableB có chứa sẳn dữ liệu thì chỉ nối dữ liệu từ subfrm hiện hành khi có “tháng/năm” trong trường (Ngay) không trùng với “tháng/năm” trong trường Ngay của tableB, nếu trùng thì không nối dữ liệu.
Cảm ơn. -
RE: Nối các trường trong subfrm sang table có điều kiện
ongke0711 > 27-04-17, 09:33 AM
Sơ bộ thì bạn dùng các lệnh: Recordset.Clone, Select count
from tableB, rs.Findfirst "Ngay = rsA!Ngay...
Chút rảnh tôi code cho bạn. Bạn làm thử truớcđi -
RE: Nối các trường trong subfrm sang table có điều kiện
tronghieu9792 > 27-04-17, 11:57 AM
xin giúp mình đoạn code, cảm ơn -
RE: Nối các trường trong subfrm sang table có điều kiện
ongke0711 > 27-04-17, 05:10 PM
Theo như đề bài của bạn là bạn đã có queryA làm Row Source cho SubForm, tableB là table đích để append các record mới và có 1 field [Ngay] để lưu dữ liệu ngày. Tôi sẽ làm như sau:
- Tạo 1 cái Function để tự động Append records từ table nguồn sang table đích.
Mã PHP:Option Compare Database
Option Explicit
Const conJetDate = "\#mm\/dd\/yyyy\#"
Sub AddNewToTable(rstFromTable As DAO.Recordset, rstToTable As DAO.Recordset)
Dim fld As DAO.Field
rstFromTable.MoveFirst
Do While Not rstFromTable.EOF
rstToTable.AddNew
For Each fld In rstFromTable.Fields
rstToTable(fld.Name).Value = rstFromTable(fld.Name).Value
Next fld
rstToTable.Update
rstFromTable.MoveNext
Loop
End Sub
- Code cho nút lệnh nối dữ liệu. Vd: cmdNoiDuLieu
Mã PHP:Private Sub cmdNoiDuLieu_Click()
Dim db As DAO.Database
Dim rstA As DAO.Recordset, rstB As DAO.Recordset
Dim strSQL As String, strDateCrit As String
Set db = CurrentDb
Set rstB = db.OpenRecordset("SELECT tableB.Ngay FROM tableB GROUP BY tableB.Ngay", dbOpenDynaset)
With rstB
.MoveFirst
Do Until .EOF
strDateCrit = strDateCrit & Format(!Ngay, conJetDate) & ","
.MoveNext
Loop
End With
strDateCrit = Left(strDateCrit, Len(strDateCrit) - 1)
strSQL = "SELECT queryA.* FROM queryA " & _
"WHERE queryA.Ngay Not In (" & strDateCrit & ")"
Set rstA = db.OpenRecordset(strSQL, dbOpenSnapshot)
Set rstB = db.OpenRecordset("tableB", dbOpenDynaset)
Debug.Print strSQL
Call AddNewToTable(rstA, rstB)
End Sub -
RE: Nối các trường trong subfrm sang table có điều kiện
tronghieu9792 > 27-04-17, 05:51 PM
Rất cảm ơn, mình sẽ áp dụng ngay! -
RE: Nối các trường trong subfrm sang table có điều kiện
tronghieu9792 > 28-04-17, 02:31 PM
Xin hỏi khi áp dụng đoạn code trên thì báo màu vàng ở dòng:
.MoveFirst
Khi thay vào là:
rstB.MoveFirst
thì báo màu vàng dòng:
strDateCrit = strDateCrit & Format(!Ngay, conJetDate) & ","
ngay chỗ ...(!Ngay... -
RE: Nối các trường trong subfrm sang table có điều kiện
tronghieu9792 > 28-04-17, 03:23 PM
mình gửi file mong được giúp đỡ
https://drive.google.com/file/d/0B1QFFZ8...sp=sharing -
RE: Nối các trường trong subfrm sang table có điều kiện
ongke0711 > 29-04-17, 12:36 AM
(28-04-17, 02:31 PM)tronghieu9792 Đã viết: Xin hỏi khi áp dụng đoạn code trên thì báo màu vàng ở dòng:
.MoveFirst
Khi thay vào là:
rstB.MoveFirst
thì báo màu vàng dòng:
strDateCrit = strDateCrit & Format(!Ngay, conJetDate) & ","
- Đây chỉ là lỗi khi tableB của bạn không có record nào thì làm sao cho nó moveFirst được. Code tôi đưa cho bạn chỉ là code cơ bản, chưa có bẫy lỗi. Bạn chỉ cần bẫy lỗi khi tableB không có dữ liệu thì bỏ qua moveFirst và tạo biến strDateCrit là rỗng luôn.
- Còn 1 lỗi tôi quên chú ý là cách khởi tạo Recordset từ Query (Set rstA = db.OpenRecordset (strSQL,…) trong code này là sai. Phải khai báo “Dim Qdf As DAO.QueryDef” và các Parameters rồi mới dùng hàm được.
- Vấn đề nữa là bạn dùng field [NgayChungTu] làm điều kiện để loại trừ dữ liệu nhưng Field này làm gì có trong query của bạn? Nó chỉ là 1 Unbound Textbox trên Form thôi làm sao đưa vào điều kiện của query được.
- CSDL của bạn rối quá và cách bạn xử lý form như vậy cũng chưa thể áp dụng đoạn code trên được.
- Một số lỗi cơ bản trong thiết kế form của bạn như sau:
+ Bạn dùng Combobox để lọc dữ liệu của Listbox thông qua 1 cái Field text dài sọc!! đó là field [TenDBCBCS]: “Đảng bộ tại Đài Loan thuộc Đảng ủy Ngoài nước”. Trong khi đó câu lệnh SQL để lọc Listbox thì lại dùng field [MACB]. [MACB] = ‘ [TenDBCBCS]’ ???
+ Bạn muốn nối dữ liệu thu Đảng phí thông qua dữ liệu của sub form và thông qua điều kiện NgàyChungTu sẽ phát sinh sai dữ liệu nghiêm trọng là cập nhật thiếu Đảng viên. Vd: MACB khác cũng có phát sinh cùng [NgayChungTu] vậy khi qua [MACB] khác cùng [NgayCHungTu], nó sẽ không cập nhật vô bảng vì [NgayChungTu] đã có rồi (của MACB khác)
+ Bạn phải thiết kế Form này lại cho kỹ, suy luận tất cả các trường hợp phát sinh, nhập dữ liệu mẫu đại diện cho tất cả các trường hợp rồi chạy xem nó sai như thế nào để biết Form bị lủng chỗ nào rồi sửa. Có được nguồn dữ liệu chính xác rồi mới tính tới chuyện nối dữ liệu, nối sao cho không mất hoặc sai dữ liệu.
Nói chung nhìn cái form này tôi lùng bùng luôn.