nad582
Thành viên thường trực




- Tham gia
- 7/6/11
- Bài viết
- 317
- Được thích
- 48
Chào các a(c) trong GPE, e có đoạn code như sau, dùng để lấy dữ liệu từ file Access sang file Excel:
mySQL = "SELECT T3.[Frame],round(T4.[Length]*1,2) " & _
"FROM [Element Forces - Frames] T3,[Connectivity - Frame]T4 " & _
"Where T3.[Frame] = T4.[Frame] and left([Frame],1) like 'D'"
lrs.Open mySQL, cnn, 3, 1
With Sheet2
.[A6].CopyFromRecordset lrs
End With
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing
thì khi thực hiện nó báo lỗi thế này:
View attachment 124866
Như vậy theo ví dụ trên thì nó lỗi chỗ tô màu đỏ, khi e sửa lại trong file Access ở Table [Connectivity - Frame] chứa field [Frame] thành [Frameyyy] (nghĩa là sửa T4.[Frame] thành [Frameyyy]) sau đó sửa lại code thành:
mySQL = "SELECT T3.[Frame],round(T4.[Length]*1,2) " & _
"FROM [Element Forces - Frames] T3,[Connectivity - Frame]T4 " & _
"Where T3.[Frame] = T4.[Frameyyy] and left([Frame],1) like 'D'"
lrs.Open mySQL, cnn, 3, 1
With Sheet2
.[A6].CopyFromRecordset lrs
End With
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing
thì nó không bị lỗi, vậy có cách nào để phân biệt các trường giống nhau mà không cần phải sửa trong Access, không cần phải sửa trong code không?
Xin cảm ơn rất nhiều!!!
mySQL = "SELECT T3.[Frame],round(T4.[Length]*1,2) " & _
"FROM [Element Forces - Frames] T3,[Connectivity - Frame]T4 " & _
"Where T3.[Frame] = T4.[Frame] and left([Frame],1) like 'D'"
lrs.Open mySQL, cnn, 3, 1
With Sheet2
.[A6].CopyFromRecordset lrs
End With
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing
thì khi thực hiện nó báo lỗi thế này:
View attachment 124866
Như vậy theo ví dụ trên thì nó lỗi chỗ tô màu đỏ, khi e sửa lại trong file Access ở Table [Connectivity - Frame] chứa field [Frame] thành [Frameyyy] (nghĩa là sửa T4.[Frame] thành [Frameyyy]) sau đó sửa lại code thành:
mySQL = "SELECT T3.[Frame],round(T4.[Length]*1,2) " & _
"FROM [Element Forces - Frames] T3,[Connectivity - Frame]T4 " & _
"Where T3.[Frame] = T4.[Frameyyy] and left([Frame],1) like 'D'"
lrs.Open mySQL, cnn, 3, 1
With Sheet2
.[A6].CopyFromRecordset lrs
End With
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing
thì nó không bị lỗi, vậy có cách nào để phân biệt các trường giống nhau mà không cần phải sửa trong Access, không cần phải sửa trong code không?
Xin cảm ơn rất nhiều!!!
Lần chỉnh sửa cuối: