Tùy chọn
Vấn đề về form field "String too long" lỗi “Run-time error '4609'
- Vấn đề về form field "String too long" lỗi “Run-time error '4609'
-
Vấn đề về form field "String too long"
vuthaiha90 > 17-03-17, 03:47 PM
Em xin chào các bác, chả là em có 1 chương trình nhập liệu bằng access xong truyền dữ liệu sang word, nhưng có 1 textbox cần ghi nhiều dữ liệu nên trong table em đã chuyển từ "text" sang "memo" nhưng khi truyền sang word nó báo quá dài. Vậy có hướng nào giải quyết được vấn đề này không ạ. Đây là file ví dụ của em, mong các bác giúp đỡ, em cảm ơn ạ -
RE: Vấn đề về form field "String too long"
ongke0711 > 17-03-17, 09:06 PM
Trường hợp này là một lỗi của VBA access. Bạn có thể khắc phục bằng cách dùng câu lệnh này:
Thay câu lệnh:
Mã PHP:Doc.FormFields("a").Result = DLookup("a", "Table1")
Bằng câu lệnh:
Mã PHP:Doc.Bookmarks("a").Range.Fields(1).Result.Text = DLookup("a", "Table1")
Doc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True -
RE: Vấn đề về form field "String too long"
vuthaiha90 > 18-03-17, 07:40 AM
(17-03-17, 09:06 PM)ongke0711 Đã viết: Trường hợp này là một lỗi của VBA access. Bạn có thể khắc phục bằng cách dùng câu lệnh này:
Thay câu lệnh:
Mã PHP:Doc.FormFields("a").Result = DLookup("a", "Table1")
Bằng câu lệnh:
Mã PHP:Doc.Bookmarks("a").Range.Fields(1).Result.Text = DLookup("a", "Table1")
Doc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
Dạ em cảm ơn bác, đúng như ý rồi ạ -
Giúp mình về lỗi “Run-time error '4609': "String too long"
binlaxanh > 29-05-17, 07:28 PM
Mình là dân mới tập tành, mong mọi người chỉ bảo thệm.
tình hình là mình có dữ liệu ghi trong access, xuất sang world dạng dưới dạng Text Form Fields ; tuy nhiên do dữ liệu trong access nhiều hơn 255 ký tự nên bị báo lỗi như trên.
Lỗi dòng này
doc.FormFields("Text16").Result = Me.TIEUSU
Các dòng còn lại bên dưới cũng sẽ lỗi vì trên 255 ký tự.
doc.FormFields("Text17").Result = Me.QHGD
doc.FormFields("Text18").Result = Me.QHXH
doc.FormFields("Text19").Result = Me.HVVPPL
Mình sử dụng access 2010 64 bit; đoạn code cụ thể bên dưới.
định dạng field mình đã chọn Long Text; chỉ xuất sang world dưới dạng Text Form Fields nó bị lỗi thôi nha các bác. các dòng text1, text2, text15 không lỗi do ít ký tự, hiển thị trên world bình thường.
Có cách nào khắc phục vấn đề này không các bạn ? xin vui lòng chỉ cụ thể một chút, vì mình không được học access ngày nào
.
CodeMã:Private Sub Command59_Click()
Dim oApp As Object, doc As Object
Dim strDocName As String
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
strDocName = CurrentProject.Path & "\VANBAN\LL01.dotx"
Set doc = oApp.Documents.Add(strDocName)
doc.FormFields("Text1").Result = Me.HOVATEN
doc.FormFields("Text2").Result = Me.Text49
doc.FormFields("Text3").Result = Me.NGAYSINH
doc.FormFields("Text4").Result = Me.NOISINH
[b]doc.FormFields("Text16").Result = Me.TIEUSU[/b]
[b]doc.FormFields("Text17").Result = Me.QHGD[/b]
[b]doc.FormFields("Text18").Result = Me.QHXH[/b]
[b]doc.FormFields("Text19").Result = Me.HVVPPL[/b]
Set oApp = Nothing
End Sub -
RE: Giúp mình về lỗi “Run-time error '4609': "String too long"
maidinhdan > 29-05-17, 09:46 PM
Xem link này: [Hỏi] Vấn đề về form field "String too long"
Lưu ý: Sau này nhớ tìm kiếm trước khi đặt câu hỏi,
Bài viết sẽ được nhập với link trên trong vòng 24h.
Thân mến! -
RE: Giúp mình về lỗi “Run-time error '4609': "String too long"
binlaxanh > 31-05-17, 12:36 PM
Cám ơn bạn đã giúp, tuy nhiên mình còn thắc mắc
Câu lệnh
Doc.Bookmarks("a").Range.Fields(1).Result.Text = DLookup("a", "Table1")
Doc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
Trường hợp trong "a" có 1 record thì khi bấm nút lệnh sẽ chuyển sang word nội dung đó.
Còn trong "a" có 2 record trở lên thì mình không biết cách cho hiện các record theo ý mình.
Nhờ bạn hướng dẫn dùm với. -
RE: Giúp mình về lỗi “Run-time error '4609': "String too long"
maidinhdan > 31-05-17, 01:59 PM
(31-05-17, 12:36 PM)binlaxanh Đã viết: Cám ơn bạn đã giúp, tuy nhiên mình còn thắc mắc
Câu lệnh
Doc.Bookmarks("a").Range.Fields(1).Result.Text = DLookup("a", "Table1")
Doc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
Trường hợp trong "a" có 1 record thì khi bấm nút lệnh sẽ chuyển sang word nội dung đó.
Còn trong "a" có 2 record trở lên thì mình không biết cách cho hiện các record theo ý mình.
Nhờ bạn hướng dẫn dùm với.
Trả lời:
Có 2 cách:
1. Tùy chỉnh hàm DLookup("a", "Table1") thêm điều kiện phía sau hàm DLookup
2. Lấy trực tiếp record hiện hành, Tôi lấy ví dụ theo link Demo phía trên thay đoạn
ThànhMã PHP:Doc.Bookmarks("a").Range.Fields(1).Result.Text = DLookup("a", "Table1")
Mã PHP:Doc.Bookmarks("a").Range.Fields(1).Result.Text = Me.Text0
Bạn đừng quan tâm vế sau: mà quan tâm vế này mà áp dụng vào bài bạn: Doc.Bookmarks("a").Range.Fields(1).Result.Text -
RE: Vấn đề về form field "String too long" lỗi “Run-time error '4609'
binlaxanh > 31-05-17, 05:02 PM
Cám ơn bạn, vẫn chưa áp dụng được, để mình tìm hiểu tiếp, nếu không được sẽ hỏi. Nhân tiện cho mình hỏi tìm hiểu cái cấu trúc hàm
Doc.Bookmarks("a").Range.Fields(1).Result.Text này ở đâu bạn? -
RE: Vấn đề về form field "String too long" lỗi “Run-time error '4609'
maidinhdan > 31-05-17, 11:06 PM
(31-05-17, 05:02 PM)binlaxanh Đã viết: Cám ơn bạn, vẫn chưa áp dụng được, để mình tìm hiểu tiếp, nếu không được sẽ hỏi. Nhân tiện cho mình hỏi tìm hiểu cái cấu trúc hàm
Doc.Bookmarks("a").Range.Fields(1).Result.Text này ở đâu bạn?
Từng bước tìm hiểu từng đối tượng và thành phần theo tuần tự như sau:
Bước 1: Object model (Word VBA reference)
Bước 2: Range Object (Word)
Bước 3. Range Members (Word)
Bước 4. Range.Fields Property (Word)
Bước 5: Field Members (Word)
Bước 6. Field.Result Property (Word)
Gõ các cụm từ này nhờ bác Google tìm dùm rồi đọc nhé. -
RE: Vấn đề về form field "String too long" lỗi “Run-time error '4609'
binlaxanh > 02-06-17, 10:04 AM
Cám ơn bác nhiều lắm, em giải quyết được cái vụ string too long rồi;
Em sẽ nghiên cứu thêm theo bác chỉ.