เข้าไม่ได้เลย  จะปิด file  และทำ back up ไว้ให้  แจ้ง  vb damage พอคลิกมันจะปิดทันที  ใครที่พบแล้ว แก้อย่างไรบ้างครับ

ต้องการ openreport  แบบ normal ไม่มี previwe  แต่ก่อน print ให้เลือก printer ที่ต้องการ  ออกแบบ  หรือ เขียน code ยังงัยเครับ

ไม่น่าจะใช่ครับ แต่เดียวจะลองดู ที่ผมลองแล้วก็มีสร้าง DB ใหม่่เปล่าๆแล้วย้าย object ทั้งหมดจากตัวเดิมมาใส่ก็เปิดไม่ได้

ผมต้องการให้เปิดอีก Form  โดยไม่ต้องคลิก แค่วาง โดยมีเงื่อนไขว่า  ให้ตรงกับ ID  ที่วาง   
กรณีทำเป้น  ปุ่มคลิกได้แน่ๆ   แต่ผมไม่ต้องการให้คลิกแค่วางก็เปิดแล้ว  ดังนั้นเมื่อวาง mouse ที่ FS จึ่งต้องได้ค่า ID  เพื่อไปบอกอีก Form
ว่า เปิด form ที่ เงื่อนไข =ID ที่  mouse วาง

ตอนแรกทำ field ID เป็น autonumber  แต่ลืมคลิก primary key  จึงเกิดค่าซำ้ขึ้น และมีการเชื่อมไปยัง TABLE อื่น ตอนนี้แก้ไขลบค่าซ้ำออกแล้ว และ set เป็น Primary key แล้ว  แต่ form ก็ยังทำงานไม่ได้  ผมต้องทำอย่างไรครับ ข้อความแจ้งตาม  file  ที่แนบมา

ผมใช้ ID เป็น Primary Key  Autonumber ตอนนี้ อยู่ที่ 17xxxxx  form มันทำงานไม่ได้ แจ้งว่า index ซ้ำ ข้อสัญนิฐานของผมคือ
Primary Key  มันเพิ่มสุดแล้วใช่ไหม  ถ้าใช่ผมจะทำ index เป้น TEXT ตอนแรกวางแผนไม่ดี  คิดว่าข้อสัญนิฐาน ผมถูกต้องไหมครับ

คือมันใช้ได้ทุกเครื่อง  แต่มันมีเครื่องหนึ่ง  ไม่ยอม  ลง Access 2003  ใหม่แล้ว  ก็ไม่หาย

 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  ว่าจะแก้อะไรดี   ขอความเห็นจากผุ้มีประสบการณ์ หน่อยครับ  ควรทำอย่างไร

ได้แล้วนะครับ  ขอบคุณพี่มาก  ตัวติดตั้ง  VisualBasic6-KB896559-v1-ENU
ไม่งั้นผมคง งม  อีกนาน  ขอบคุณครับ