Access.ExportXML Method

[nghikt2]

Chào các anh chị, em có vấn đề sau muốn hỏi :

- Với đoạn code sau em đã xuất được 03 table (T01,T02,T03) vào cùng 1 file Test.xml. Nhưng chỉ lọc được có đúng 1 điều kiện cho table T01 thôi (Ms='A1') . Giờ muốn thêm điều kiện lọc ở 2 table T02 và T03 (Thang='201412') thì làm thế nào ?

Sub ToXML()

Dim ad As AdditionalData
Set ad = Application.CreateAdditionalData
ad.Add "T02"
ad.Add "T03"

Application.ExportXML _
ObjectType:=acExportTable, _
DataSource:="T01", _
DataTarget:="D:\Test.xml", _
AdditionalData:=objOrderInfo, _
WhereCondition:="Ms='A1'"

End Sub