Invalid procedure call or argument


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

10 ก.พ. 64 , 11:01:02
อ่าน 510 ครั้ง

Krathok-man

Invalid procedure call or argument
« เมื่อ: 10 ก.พ. 64 , 11:01:02 »

 Dim TextOUT  As Variant
 Dim NotpadDoc
Dim Myfso As New FileSystemObject
Set NotpadDoc = Myfso.CreateTextFile("D:\Report1.txt", True)

 Dim Rs   As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("select * from  report1 order by ida ")
If Rs.RecordCount > 0 Then
Do Until Rs.EOF

TextOUT = Trim(Rs("summary"))
NotpadDoc.Write TextOUT
NotpadDoc.Write Chr(13)

Rs.MoveNext
Loop


NotpadDoc.Close
Set Myfso = Nothing

    On Error Resume Next
    Shell "Notepad.exe " & "D:\Report1.txt", vbNormalFocus
    Dim oShell
Set oShell = CreateObject("WScript.Shell")
oShell.SendKeys "% x"

  End If

Rs.Close
Set Rs = Nothing


Code นี้มันทำงานได้  เมื่อ TextOUT  มีค่าไม่ยาว    แต่เมื่อมันมี  ข้อความยาวขึ้น   มันก็ฟ้อง  "Invalid procedure call or argument "    ผมไปไม่เป็นเลยครับ  ไม่มี idea  ว่าจะแก้อะไรดี   ขอความเห็นจากผุ้มีประสบการณ์ หน่อยครับ  ควรทำอย่างไร

 
โพสต์นี้ได้รับคำขอบคุณจาก: Jieng2021

10 ก.พ. 64 , 15:07:18
ตอบกลับ #1

PNR

: Invalid procedure call or argument
« ตอบกลับ #1 เมื่อ: 10 ก.พ. 64 , 15:07:18 »
 Dim NotpadDoc
 Dim oShell

ลองแก้เป็น
 Dim NotpadDoc As Object
 Dim oShell As Object

Time to stop for me  :dizzy:
 


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5