ขอบคุณมากครับได้แล้วครับ สอบถามเพิ่มเติม  ตอนทำผมทำ Version access 2016 .mdb  ตัว develop เปิดได้ทำงานได้ปกติ

แต่เป้น version runtime 2003 .mdb เปิดไมไ่ด้   เป็นเพราะ code version access ใหม่หรือปล่าวครับ หรือต้องแปลงเป็น accdb


code อันนี้ที่ เปิดกับ access  runtime ไมไ่ด้ครับ  ลองปลด code ออกถึงใช้งานได้ปกติ
คำสั่งซ่อน Navigation Pane

Private Sub Command6_Click()
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide

End Sub




อันนี้ได้ปกติ
Select Case KeyCode
          Case vbKeyF11
               KeyCode = 0
               MsgBox "F11 has been disabled.", vbOKOnly, "Disabled Key"
    End Select

Key Preview = Yes ด้วยครับ

ขอสอบถามครับ ใส่ code ไปที่ on key press แล้ว

ก็ยังกด F11 ได้อยู่ครับ  ลองไปหา code อีกแบบนึงก็ ยังกดได้ หรือต้องตั้งค่าอะไรเพิ่มไหมครับ


'แบบที่1

   Select Case KeyCode
          Case vbKeyF11
               KeyCode = 0
               MsgBox "F11 has been disabled.", vbOKOnly, "Disabled Key"
    End Select


'แบบที่2
   
'If KeyCode = vbKeyF11 Then
'MsgBox "You have been told about this - please stop pressing the F11 key", vbCritical, "Error"
'End If

ขอบคุณมากครับ

ปกติก็ใช้การปิด Navigation Pane แล้วสั่งปิดคำสั่ง F11

->การ Lock Navigation Pane

ตัวอย่างชุดคำสั่งส่งออก textfile utf-8

โค๊ด: [Select]

Private Sub Command12_Click()
Set strm = CreateObject("ADODB.Stream")
With strm
   .Open
   .Type = 2
   .Charset = "UTF-8"
   .WriteText "ข้อความ"
   .SaveToFile "c:\ชื่อไฟล์.txt", 2  '2 บันทึกทับไฟล์เก่าได้
   .Close
End With
MsgBox "Gen Text Complete :)"
End Sub

.WriteText "ข้อความ"

ขอสอบถามเพิ่มเติม ถ้าส่วนข้อไม่ใช่ "ข้อความ" แต่เป็น   ตัวแปรที่ประกาศโมดูลไว้จะใส่ยังไงหรอครับ




ตอนนี้ผม ประกาศ Module  Write_TFB
ได้ txt ออกไป ที่  C:\HP\  ครับ แต่อยากได้ เป็น Format  UTF8



/////////////////////////////////////////////
Function PathFile() As String
PathFile = "C:\HP\"
End Function


Sub Write_TFB()
 '*************** dim TextHeader
Dim H_Prefix As String
Dim H_Contract_No As String

dbConnect.dbConnect

H_Prefix = "H"
H_Contract_No = Format(Forms!Frm!Contract_No, "0000000000")


Open PathFile & "HP_" & ".txt" For Output As #1

Print #1, H_Prefix & H_Contract_No


Close #1
MsgBox "Gen Text Complete :)"

End Sub




///////////////////////////////////////////
Code ในปุ่ม กดจากฟอร์มงานครับ

Call WriteTxt.Write_TFB
    MsgBox "finish"
   
   
    Dim Foldername As String
Foldername = "C:\HP\"

ได้ครับ ยืนยัน

สอบถามเพิ่มเติมครับ ขอวิธี Import หรือ ตัวอย่าง Access ได้ไหมครับ

เป็น bug ของ Access 2016 และคาดว่าได้รับการแก้ไขแล้วตั้งแต่เวอร์ชั้น 16.0.6322.1000  ลองอัพเดต Office ดูนะครับ

ข้อมูลจากโพสสุดท้ายใน https://answers.microsoft.com/en-us/office/forum/office_2016-access/access-2016-report-images-still-not-displaying/a0eab74c-a299-4fa2-a38c-26bec448b041

ลิงค์ที่โหลด patch
แต่ให้อ่านรายละเอียดดูก่อนนะครับว่าต้องทำอะไรก่อนอัพเดตด้วยไฟล์นี้หรือไม่ แต่ผมแนะนำว่าควรอัพเดตผ่านระบบอัพเดตของ office เอง  https://support.microsoft.com/en-us/help/3114379/december-8-2015-update-for-access-2016-kb3114379

ขอบคุณครับอ.สันติสุข
ลองเปลี่ยนเป็น .bmp ได้นะครับแต่ไฟล์จะสีแตกๆไม่เท่า .jpg ทั่วไป

แล้ว กรณี V.2016 ทั่วไปเขา ใส่รูปภาพกันได้ใช่ไหมครับ   แสดงว่าอาจจะติดที่ bug ของเวอร์ชั่น

รบกวนอาจารย์ครับ 

สอบถามการรูปใน Report  เปลี่ยนไป V.2016 แล้วไม่ขึ้น จาก V.2003-2010

เดิมใช้ Access 2003.mdb  แล้วเปลี่ยนไปใช้ Access 2010.mdb รูปใน Report ก็ปกติ
พอลง Access2016.mdb   แล้ว เปิด Report ปุ่มเดิมที่ Insert รูปไว้ มันขึ้นขาวๆอะครับ

ลอง เปลี่ยน จาก .mbd เป็น .accdb ก็ยังไม่หายครับ
ลอง สร้าง Report จาก 2016 แล้ว Insert Image เข้าไปมันก็ยังขาว ๆอยู่  หรือต้องตั้งค่าจุดไหนบ้างครับ


มีวิธีแก้ปัญหาไหมครับ

Access สามารถแนบไฟล์ ส่งใน E-mail ได้ไหมครับ

หรือมี Link กระทู้ที่เกี่ยวข้องศึกษาบ้างไหมครับ

ปัจจุบัน ทำได้แต่ให้ access ส่งเมล ใน gmail   

หากต้องการแนบเอกสารที่ระบุ path ไว้ใน Drive: C/D ใน PC เรา 

ไฟล์ รูป .jpg .png  / .pdf / .zip / .txt เข้าไปได้ไหมครับ  มีข้อจำกัดไหมครับ

รบกวนท่านอาจารย์ ชี้แนะหน่อยครับ


ขอบคุณครับ

https://www.dropbox.com/sh/ig2emrh118hr92m/AABXxZIM4U3uNH8ms4dkm1y8a/thaiaccessboard/QRCodeMod.accdb?dl=0


ดาวน์โหลดได้แล้วครับ

ขออภัย

เปิดได้ แล้วเดียวขอไปลองประยุกต์ใช้ครับ

ขอบคุณครับ

สอบถามท่านอาจารย์ครับ

จากกระทู้นี้ https://www.thai-access.com/index.php?topic=323.0
ดูจากวีดีโอเป้นการติดตั้งตัว .dll ไว้ที่เครื่อง  หาก ผมมีคอมหลายเครื่องกระจาย โปรแกรมตัวเดียวใช้ หลายๆเครื่อง ก็ต้องติดตั้ง ทุกเครื่องถูกไหมครับผม


แล้วการทำ Qr จากกระทู้นี้ ที่  https://www.thai-access.com/yeadram_view.php?topic_id=5576
ที่คุณ kamsuk  ได้แนบไฟล์ไว้ ผมโหลดมาเปิดแต่ ยังไม่สมบูรณ์ ใช่ไหมครับ
ที่อ. สันติสุข แนบลิงค์ไว้ ไฟล์น่าจะหมดอายุแล้ว


เลยอยากสอบถาม หรือคำแนะนำ
พอดีจะสร้าง QR-CODE ไว้ใน report   ข้อมูลเป็นตัวเลข 4-5 บรรทัดครับ   

ขอบคุณครับ