Chào các anh.
em dùng vb và csdl access.
table trong access của em gồm các trường: TA_ID, Shift, Hours, Day, R80 và W
*Em muốn xuất dữ liệu vào excel: xuất d
ữ liệu R80 của
table TA_ID;
có Shift là txtShift, Hours là txtHours , Day là txtDay vào
Sheet1 ở cell C6 (Với txt Shift, txtHours, txtDay là những text box trong form search)
Em viết đoạn code sau:
Mã:
Private Sub cmdexport_Click()
Dim strfile As String
Dim sqlTA_ID1 As String
Dim Access As New Access.Application
Access.OpenCurrentDatabase "C:\Users\Owner\Desktop\Folder\VB\VB working\Working\Tafico\A_Login - Original - Copy7_trial\dbpassword.mdb"
Const acExport = 1: Const acSpreadsheetTypeExcel9 = 8
strfile = "C:\my folder\Export.xls"
sqlTA_ID1 = " Select R80 * From TA_ID Where Day = #txtDay# And Shift = "txtShift" And Hours = "txtHours" "
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "sqlTA_ID1", strfile, True, "Sheet2!C6"
End Sub
Nhưng lại bị báo lỗi
Run-time error '3011': The Microsoft Jet database engine could not find the object 'sqlTA_ID1'. Make sure the object exists and that you spell ít name and the path name correctly
Em đã search trên diễn đàn nhưng vẫn không sữa được, Mấy anh giúp dùm em sửa lại lỗi trên.
*Cho em hỏi thêm
----nếu như em đóng gói thành phần mềm thì có cần dùng:
Dim Access As New Access.Application
Access.OpenCurrentDatabase "C:-/Users\Owner\Desktop\Folder\VB\VB working\Working\Tafico\A_Login - Original - Copy7_trial\dbpassword.mdb" (em sợ là khi đóng gói không thể mở được.)
---Nếu em tạo thêm điều kiện cho Hous :
1.nếu Hous =6 (txtHous =6) thì cho dữ liệu vào Sheet1 - cell C6
2.nếu Hous =7 (txtHous =7) thì cho dữ liệu vào Sheet1 - cell C7
..... Thì phài làm sao.
Cảm ơn các anh nhiều
Hội y khoa giới tính thế giới định nghĩa xuất tinh sớm là tình trạng rối loạn xuất tinh của nam giới với đặc trưng luôn xuất tinh sớm hơn hoặc trong vòng một phút quan hệ. Bệnh nhân không có khả năng...
Tìm hiểu về loại thuốc dứt điểm bệnh "ra nhanh"