Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Lỗi] Lỗi vb6 runtime error 80040e10
#1
Em có copy demo của 1 bác trên diễn đàn về dùng, dùng trên .mdb chạy rất tốt nhưng khi cho vào file access workgruop thì bị lỗi như 
Mã:
First check whether data is filled or not
   If Nz(lsInvoice, "Null") = "Null" Then Exit Sub
   ' Access will try to pass selected data on a predefined word form by using this code snipset.
   ' Now initialize a Query builder so that Data corresponding to Listbox selection will be taken from database
   ' the query qry_paymentDetailLC contains all details of a valid request form for B/L endorsement... not do it.
   Dim rs As New ADODB.Recordset
   Dim SqlStr As String
   SqlStr = "Select * from Query_DataKH where cc='" & cc & "';"
   rs.Open SqlStr, CurrentProject.AccessConnection
   
   If rs.EOF Then
       MsgBox "There is no data for selected invoice..."
       GoTo ExitSub
   End If
   ' Now put data to word
   
   'initialize word
   Dim WordApp As Object
   Dim WordDoc As Object
   Set WordDoc = CreateWordDocument(WordApp)
   ' hide word away
   WordApp.Visible = True
   ' open the file now
   Set WordDoc = WordApp.Documents.Open(Forms![TraCuuDataKH].[txtpath])
   
   ' now prepare for replacing// remember the field name in word form
   
   ' these are example of using finding functions of word, such keywords must be unique
   '[DATE_DAY]/[DATE_MONTH]/[DATE_YEAR]
   '[LC_NUMBER]/[INVOICE_NUMBER]/[BILLED_CURRENTCY] [INVOICE_AMOUNT]/[COMMODITY]/[QUANTITY] [M_UNIT]
   ' For better and more systematic work, it is recommended that you should creat a table for
   ' cross-matching field name and word keyword.. but for this testing purpose - I just make this manually
   ' Field Name we will use for searching are:
   'NoLC, Goods, tbl_LC.HoldAmount, NoInvoice, Quanlity, AmountUSD,
   ' Declaration of variable
   Dim KeyWords As String, FieldName As String, i As Long
   KeyWords = "[SOKHUNG]/[SOMAY]/[BIENSO]/[LOAIXE]/[NGAYBAN]/[TENKHACHHANG]/[DIACHI]/[DIENTHOAI]"
   FieldName = "SoKhung/SoMay/BienSo/loaixe/NGAYBAN/TENKHACHHANG/DIACHI/DIENTHOAI"
   
   'KeyWords = "[LC_NUMBER]/[INVOICE_NUMBER]/[BILLED_CURRENTCY]/[INVOICE_AMOUNT]/[COMMODITY]/[QUANTITY]/[M_UNIT]"
   'FieldName = "NoLC/NoInvoice/USD/AmountUSD/Goods/Quanlity/Unknown"
BỊ ngay dòng :   rs.Open SqlStr, CurrentProject.AccessConnection
Các bác chỉnh hộ với không chạy được trên access workgruop nhiều nười dùng.
Chữ ký của tranhai_vn Xin chào, mình là tranhai_vn, Tham gia http://thuthuataccess.com/forum từ ngày 02-06 -12.
Reply
Những người đã cảm ơn
#2
Đã tìm ra lỗi...
Chữ ký của tranhai_vn Xin chào, mình là tranhai_vn, Tham gia http://thuthuataccess.com/forum từ ngày 02-06 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Lỗi] Lỗi khi chạy Access Runtime ! Minh Tiên 10 543 17-03-16, 09:48 AM
Bài mới nhất: Minh Tiên
  [Lỗi] Run-time error '3070': Does not recognize... as valid field name or... mieuhoa 2 220 05-01-16, 10:10 AM
Bài mới nhất: mieuhoa
  [Help] Click chuột phải trong MS Office 2003 Runtime không được ? jason 3 646 26-06-13, 12:25 PM
Bài mới nhất: jason
  [Lỗi] Run-time error '13' Type mismatch uronmapu 7 1,804 24-05-13, 09:33 AM
Bài mới nhất: bangnguyencong
  [Help] Lỗi Error in loading DLL! ranaldo 9 2,422 23-05-13, 02:32 PM
Bài mới nhất: khải nguyên

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ