นุ่นใช้ Access 97 ค่ะ(จำเป็นต้องเป็น 97 ด้วยค่ะ) ปัญหาของนุ่นคือ นุ่นต้องใส่ข้อมูลที่เป็นภาษาไทยจำนวนมากลงใน Field ชื่อ A โดยมี Type เป็น Memo แต่นุ่นเจอปัญหาคือ จะมี Error แล้วให้ปิดโปรแกรมเลย และนุ่นลอง Key เป็นภาษาอังกฤษ ก็สามารถใส่จำนวนตัวอักษรได้เยอะมากเลย ก็เลยสงสัยค่ะ ว่าเป็นเพราะอะไร และมีวิธีไหนทำได้บ้าง เพราะนุ่นจำเป็นต้อง Key ข้อมูลที่เป็นภาษาไทยเข้าไป หากจะให้พิมพ์ ใน note pad แล้วนำมา paste ก็ไม่สะดวกค่ะ เพราะนุ่นมีข้อมูลเยอะมาก ไม่สะดวกต่อการใช้งานค่ะ และนุ่นลองลบ Text box แล้วลาก Field มาวางใหม่ก็ไม่ได้ค่ะ รบกวนอาจารย์สุภาพ ด้วยค่ะ

ผมได้โค้ดนี้มาจาก pantip เมื่อ 2-3 ปีที่แล้ว ขออภัยเจ้าของโค้ดนะครับ ผมจำชื่อไม่ได้ว่าใครเป็นคนโพสต์ไว้ เป็นการเรียกเปิด NodePad เพื่อใช้พิมพ์หรือแก้ไขข้อความ โดยไม่ต้อง copy แล้ว paste ให้ดูโค้ดใน Module และ ผมเรียกโค้ดโดยการ double click ที่ Text Box เป้าหมาย ถ้ามี Memo Field หลายที่ ก็ให้ทำเมื่อกันครับ ตัวอย่างอยู่ที่ http://agserver.kku.ac.th/basiceng/memofield97.zip ครับ

ขอบคุณอาจารย์สุภาพและคุณ Access hotline มากเลยค่ะ

ลองทำแล้วค่ะ แต่มี Error ที่ CallNotePad ค่ะ แต่ลอง run ตัวอย่างที่อาจารย์ส่งมาให้แล้ว ทำได้ค่ะ แต่ของนุ่นติด Error ค่ะ ทั้งๆที่นุ่นกำหนด Field เป็น Memo แล้วน่ะค่ะ ลอง copy form ของอาจารย์มาใส่และเปลี่ยนให้มาเป็น table ของนุ่นแล้ว ก็ยังมี Error ค่ะ แต่ถ้าสร้างใหม่เลยจะทำใด้ แต่ตอนเก็บจะแฮงค์ค่ะ รบกวนอาจารย์แนะนำนุ่นด้วยค่ะ

Error ว่ายังไงครับ

Error ในส่วน Private Sub A_DblClick(Cancel As Integer) บรรทัดนี้เป็นสีเหลืองค่ะ callnotepad Me.ActiveControl บรรทัดนี้มีแถบสี้น้ำเงินตรง callnotepad และไม่เป็นตัวใหญ่เหมือนของอาจารย์ค่ะ (ของอาจารย์ CallNotePad Me.ActiveControl ค่ะ)

ลองเปลี่ยนเป็น callnotepad Me.A ดูครับ อย่าลืมเอาโค้ดในส่วนของ Module ชื่อ modCallNotePad ซึ่งมีโค้ดข้างล่างนี้ไปด้วยนะครับ Private Const STARTF_USESHOWWINDOW& = &H1 Private Const NORMAL_PRIORITY_CLASS = &H20& Private Const INFINITE = -1& Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessID As Long dwThreadID As Long End Type Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _ hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function CreateProcessA Lib "kernel32" (ByVal _ lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _ lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _ ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _ ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _ lpStartupInfo As STARTUPINFO, lpProcessInformation As _ PROCESS_INFORMATION) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal _ hObject As Long) As Long Public Sub ShellWait(Pathname As String, Optional WindowStyle As Long) Dim proc As PROCESS_INFORMATION Dim start As STARTUPINFO Dim ret As Long ' Initialize the STARTUPINFO structure: With start .cb = Len(start) If Not IsMissing(WindowStyle) Then .dwFlags = STARTF_USESHOWWINDOW .wShowWindow = WindowStyle End If End With ' Start the shelled application: ret& = CreateProcessA(0&, Pathname, 0&, 0&, 1&, _ NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc) ' Wait for the shelled application to finish: ret& = WaitForSingleObject(proc.hProcess, INFINITE) ret& = CloseHandle(proc.hProcess) End Sub Function CallNotePad(ctl As Control) 'ÇÔ¸Õãªé ãËéãÊè =CallNotePad(<ª×èÍà·ç¡«ìºÍ¡«ì>) äÇéã¹ Event OnDoubleClick ¢Í§ Text box à»éÒËÁÒ Dim strText As String Dim strString As String If Dir("c:\txtTemp.txt") <> "" Then Kill "c:\txtTemp.txt" Open "c:\txtTemp.txt" For Output Shared As #1 If Not IsNull(ctl.Value) Then strText = ctl.Value Print #1, strText End If Close #1 ShellWait "NOTEPAD.EXE c:\txtTemp.txt", vbMaximizedFocus Open "c:\txtTemp.txt" For Input As #1 strText = "" Do While Not EOF(1) Input #1, strString strText = strText & strString Loop Close #1 ctl = "" & strText End Function

นุ่นได้ copy code ใน module ของอาจารย์มาแล้วค่ะ สามารถเปิด notepad ได้ค่ะ แต่ว่าตอน save หรือ ปิด notepad โปรแกรมนุ่นจะแฮงค์เลยค่ะ อาจารย์ เป็นเพราะสาเหตุใดคะ แต่นุ่นลองทำในตัวอย่างของอาจารย์ ไม่แฮงค์ค่ะรบกวนอาจารย์อีกครั้งด้วยค่ะ

ให้ลองลบ Text Box ของ Memo เดิมในฟอรม์ออก แล้วลากฟีลด์ใส่เข้าไปใหม่ดูครับ แล้ว Save จากนั้นให้ลอง Compact ด้วย ลองดูครับ

ลองลบ Text Box ที่เป็น Memo ออกแล้ว ลาก Field มาใส่ใหม่แล้ว Save และ Compact แล้ว เปิดได้ค่ะ แต่เวลา Save ข้อมูล แฮงค์ค่ะ อาจารย์

ลองแบบนี้นะ 1. สร้าง db เปล่าขึ้นมา 1 อัน แล้วโอน objects ทุกอย่างจาก db ตัวที่มีปัญหา โดยไปที่เมนู File>Get External Data..>Import>มองหาไฟล์ตัวเดิม แล้วคลิกเลือก> เมื่อตารางเก่าเปิดแล้ว ให้เลือก Select All โดยเริ่มตั้งแต่ Tables, Queries, Forms, ..., Module>OK. 2. Compact อีกที่ ถ้ายังไม่หาย ให้ zip ไฟล์ตัวที่มีปัญหา แล้วส่งมาให้ผมที่ kaeg_chaiya@hotmail.com ครับ

เรียนอาจารย์สุภาพ นุ่นส่งไฟล์ไปแล้วนะคะ ไม่ทราบว่าได้รับหรือไม่ค่ะ

ได้รับแล้วครับ ขอคำอธิบายเพิ่มเติมด้วยครับว่าเข้าไปตรงไหน แล้วเกิดปัญหาอย่างไร ให้ละเอียดหน่อยนะครับ

ส่วนที่เป็น Field สภาพปัจจุบัน มี Type เป็น Memo และอาจารย์ให้ Modules สำหรับเปิด Notepad ค่ะ เปิดได้แต่ไม่สามารถเก็บข้อมูลที่เกิน 255 ได้ค่ะ เวลา Save เครื่องจะแฮงค์ค่ะ

เรียนอาจารย์สุภาพค่ะ นุ่นขอข้อสรุปในการเก็บข้อมูลภาษาไทย Type Memo เกิน 255 ตัวอักษรด้วยค่ะ เนื่องจากนุ่นจำเป็นต้องเก็บข้อมูลมากจริงๆ หากมีวิธีอื่นที่ทำได้ รบกวนอาจารย์สุภาพ ช่วยแนะนำด้วยค่ะ ขอบคุณมากค่ะ นุ่น

ลองใช้ Access2000 ดูครับ ผมใช้แล้ว ไม่พบปัญหา ครับ ข้อมูลผมอยู่ใน MS Word ผม Copy จาก MS Word ไป Note Pad (.TXT) แล้ว Copy จาก NotePad ไปวางใน Field Meno ก็ใช้ได้แล้วครับ ลองดูนะครับ Suchat ชลบุรี

ผมได้โค้ดนี้มาจาก pantip เมื่อ 2-3 ปีที่แล้ว ขออภัยเจ้าของโค้ดนะครับ ผมจำชื่อไม่ได้ว่าใครเป็นคนโพสต์ไว้ เป็นการเรียกเปิด NodePad เพื่อใช้พิมพ์หรือแก้ไขข้อความ โดยไม่ต้อง copy แล้ว paste ให้ดูโค้ดใน Module และ ผมเรียกโค้ดโดยการ double click ที่ Text Box เป้าหมาย ถ้ามี Memo Field หลายที่ ก็ให้ทำเมื่อกันครับ ตัวอย่างอยู่ที่ http://agserver.kku.ac.th/basiceng/memofield97.zip ครับ ผมแสดงข้อความข้างบนนี้อีกทีเพราะ ผมทำตามแล้วก็ใช้ได้ไม่มีปัญหานะครับ ผมเองก็ใช้ Access97 เหมือนคุณนุ่นครับ ผมว่าอาจจะเป็นเพราะ การลง Window หรือ MS Office แบบไม่สมบูรณ์ ก็เป็นได้ครับ

ในตัวอย่างที่ส่งมาให้ผมดู ผมลองพิมพ์ดูก็ได้ ไม่มีปัญหาอะไร และก็ไม่เห็นส่วนโค้ดที่ผมแนะนำด้วย ไม่ทราบได้เอาโค้ดมาใส่หรือยัง หรือเป็นโปรแกรมคนละตัวกัน อยากให้อธิบายว่า เข้าฟอร์มไหน แล้วเรียกใช้ฟีลด์ Memo ตัวไหนที่สร้างปัญหาครับ