แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Un

หน้า: 1 2 [3] 4 5 6 ... 14
37
ถ้าหมายถึง ตรงลายเซน ให้โปร่งใส ทำไม่ได้ครับ

38
ต้องใส่โค๊ต DoCmd.OpenQuery บรรทัดไหนคะ  :cry:
มันเป็นคำสั่งให้รันคิวรี่ครับ เอาไปไว้หลังจากโค๊ตที่เพิ่มข้อมูลเสร็จแล้ว
คือมันอยู่ที่เราออกแบบว่าจะให้ทำอะไรตอนไหนครับ

39
ง่ายๆ ก็ใช้ Update Query ครับ ใส่เงื่อนไขเข้าไป
แล้ว ใช้โค๊ต DoCmd.OpenQuery "ชื่อQuery"

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

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

42
เวลาเราบันทึกข้อมูล จะบันทึกในรูปแบบตาราง ไล่ลงมา
อาจจะแบ่งเป็น 4 คอลัม Style  Color SiZE ........
พอจะดูในรูปแบบที่เราต้องการ ก็เขียน Query ให้แสดง
ในรูปแบบที่เราต้องการได้ ทั้ง Form  Report

43
ข้อมูลแค่นี้ ไม่รู้จะตอบยังงัยครับ

44
ที่ฟอร์มที่บันทึกข้อมูล ใส่ Event ที่ AfterUpdate ตั้งแต่ field ที่ 1-11
     Me.field11="บันทึกข้อมูลแล้ว"

45
IIf(Len([txtinput1])=13,Left([txtinput1],12),10)
แบบนี้มี 2 เงื่อนไขนะ
ถ้ามี 13 ตัวอักษร เหลือ12
ถ้าไม่เท่ากับ 13 ตัวอักษร เหลือ10

46
เหมือนเดิมเลย
Left([ฟิลด์],InStr([ฟิลด์],'(')-1) & Mid([ฟิลด์],InStr([ฟิลด์],')')+1,Len([ฟิลด์]))

47
ถ้า Format มันชัดแบบนี้ ทำไมไม่ใช้ Left Right หล่ะครับ แล้วก็ใส่ IIF ไปตามเงื่อนไข
IIF(Left([ฟิลด์],3)='8-1','A-'&Right([ฟิลด์],3),'B-'&Right([ฟิลด์],3))
ไม่รู้ใช่แบบนี้ป่าว

48
ล่าสุด ลองเอา Office ออก แล้วลงใหม่ ไม่มี Err นี้เกิดขึ้น ใช้งานได้ปกติครับ

49
ลองทำผ่าน safe mode  และลงทะเบียน Comdlg32.dll ด้วย cmd commands ครับ

สำหรับ 32บิต
cd\
C:
cd C:\windows\sysWOW64
regsvr32.exe %systemroot%\SysWOW64\Comdlg32.dll

หรือ สำหรับ 64บิต
cd\
C:
cd C:\windows\System32
regsvr32.exe %systemroot%\System32\Comdlg32.dll

cmd commands ยอมแพ้ครับ มาไม่ทันสมัยนั้น ลองพิมพ์ตามแล้ว แต่มันก็ไม่ได้ น่าจะไม่เข้าใจ
ลองเข้า Save mode แล้ว Copy ไปวาง ก็ไม่ได้ครับ

50
อาจารย์   nonc31  ผมลองใส่  PtrSafe หน้า Function
มันไม่ Error แต่มันก็ไม่ทำงานเหมือนกันครับ

อาจารย์ UnKnown มันมีไฟล์ Comdlg32.dll เก่าอยู่ ทั้ง
C:\Windows\System32 และสำหรับ 64 บิตใน C:\Windows\SysWOW64\
พอเอาไปวางทับ มันไม่ยอมให้ทัพครับ

สรุปยังแก้ไม่ได้

51
#If Win64 Or VBA7 Then
    Private Declare PtrSafe Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
#Else
    Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
#End If

ใส่  PtrSafe   กับไม่ใส่

ถ้าเราจะอ้างว่าเป็น Windows 64 บิต ต้องอ้างอย่างไรครับ
Win64 มัน Err

52
ขอบคุณ อาจารย์ nonc31 และ อาจารย์ UnKnown มากครับ เดี๋ยวลองดูก่อน

53
@Un เครื่องที่เกิดปัญหา เป็นแบบ 64bit หรือเปล่าคะ
ไม่แน่ใจครับ ส่วนใหญ่ User ไม่ค่อยรู้ว่า Windows อะไร Office อะไร ถามก็ตอบไม่ได้ แต่ดูๆ แล้วน่าจะ
เกี่ยวกับ 64 บิต

54
ห้อง MS Access / Err Code ไม่รู้จะแก้ตรงไหน
« เมื่อ: 19 ม.ค. 66 , 16:07:03 »


จากในรูปตัวสีแดง
ผม Copy Code จากไฟล์ที่แชร์กันในนี้
ผมก็ใช้งานได้ตามปกติ แต่มีบางเครื่อง
ที่นำโปรแกรมไปใช้ เกิด Err แบบนี้ขึ้นมา
มันไม่ได้เกิดที่เครื่องผม จึงสงสัยว่ามันเป็นที่
Windows หรือ Offife หรือไม่ มันแก้ไขยังไงได้บ้างครับ

หน้า: 1 2 [3] 4 5 6 ... 14