สมัครสมาชิก

แสดงกระทู้

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 - chai

หน้า: [1] 2
1
ห้อง MS Access / : characters found after end of SQL statement
« เมื่อ: 02 ธ.ค. 62 , 09:12:33 »
ลองเปลี่ยนการตั้งชื่อฟิวด์ที่ไม่มีเครื่องหมาย - หรือ ใช้ Underscore _ แทน หรือใช้ภาษาอังกฤษดูครับ

2
iif("[วันหมดอายุ]"<Date(),"หมดอายุ","เหลือ "&Cstr(DateDiff("d","[วันหมดอายุ]",Date())) & " วัน")

3
ผมไม่รู้ว่าการอ่านชื่อผู้ป่วยด้วยโปรแกรมจะมีความถูกต้องขนาดไหน เห็นชื่อคนสมัยนี้แล้วปวดหัว บางทีไม่กล้าอ่าน กลัวอ่านผิด
ลองฝึกอ่านกันดูนะครับ https://teen.mthai.com/variety/152080.html link

4
จริงด้วยครับ (เพิ่งมารู้ว่าเกิดจากสิ่งนี้นี่เอง) เจอมากับตัวเองอาทิตย์ที่แล้ว เปิดโปรแกรมมาเจอ Query is corrupt ใช้งานไม่ได้เลย
ลง Office ใหม่จึงใช้งานได้ปกติ (Office 2010)

6
มันปรับขนาดตัวอักษรให้ใหญ่ขึ้นได้มั้ยครับ ผมลองปรับแล้วไม่ได้ ไม่ทราบว่าแก้ code ตรงไหน
Me.WebBrowser1.Object.Document.write "<marquee direction='left' scrolldelay='150'><Font size='72' face='Tahoma' Color='green'>" & strMsg & "</Font></marquee>"

7
WOW!!!! แบบนี้ก็ได้ด้วย ขอบคุณมากครับ

8
โหลดของคุณ PNR มาลองเปิด ใช้งานได้ปกติครับ ลองใช้งานที่เครื่องอื่นดู อาจเป็นที่ Office?

9
ไม่ทราบว่ามีเทคนิคทำตัวหนังสือวิ่งที่ smooth ใน ms access มั้ยครับ ผมใช้ On_timer แต่รู้สึกว่าไม่ค่อย OK มันวิ่งไม่ smooth เลยครับ กระตุกตาม timer
Private Sub Form_Timer()
Dim strMsg As String ' ข้อความที่จะให้วิ่ง
Dim MsgLen As Integer

strMsg = DLookup("PharmacyMsgText", "TableMsg") + " "
MsgLen = Len(Me.Label0.Caption)
If MsgLen > 0 Then
Me.Label0.Caption = Mid(Me.Label0.Caption, 2, MsgLen)
Else
Me.Label0.Caption = strMsg
End If
อยากได้แบบนี้ครับ
https://ispying.blogspot.com/2016/03/blog-post.html link

10
จากประสบการณ์ที่ใช้งาน barcode reader ทุกยี่ห้อที่ซื้อมาใช้งานจะ ยิงแล้ว Enter อัตโนมัติ ครับ แต่ในคู่มือบางยี้ห้อจะสามารถตั้งค่าได้ว่าจะ Enter หรือไม่ หรือให้ Enter กี่ครั้ง ส่วน Event ที่ใช้หลัง Enter คือ After update ครับ จะให้ทำอะไรต่อก็เขียนใน Event ได้เลย

11
ลองแบบนี้ดูนะครับ
1.สร้าง Subprocedure ให้ทำงานตามต้องการ
2.สร้าง Function() เรียกการทำงาน Call Subprocedure
3.สร้าง Macro เรียกการทำงานของ Function (ก่อนเรียก Function ให้ GotoControl เพื่อไป Focus)
4.ที่ Event On_Focus ของ Control เรียกการทำงานของ Macro (Docmd.RunMacro)
คือพยายามเลี่ยง SendKeys ผมเคยลองใช้วิธีนี้ได้ผลครับ มันไม่กด Numlock
หรือถ้ามีวิธีอื่น รอท่านอื่นๆมาตอบครับ

12
ตั้งค่า property ที่พื้นหลังของ report
Alternate back color เป็น no color

13
ตัวอย่างไฟล์ครับ เขียนแบบด่วนๆ ผิดพลาดประการใดต้องขออภัยด้วยครับ

14
เสนอแนวทาง
1.ทำปุ่มสำหรับเปิดฟอร์ม
2.Messagebox ถามว่าเปิดแบบ Login หรือ ไม่ Login
3.ถ้า ไม่ Login เปิดฟอร์ม แล้วเซต ชื่อฟอร์ม.AllowEdits = False (OnOpen events)
4. ถ้า Login ก็เปิดฟอร์ม ให้ Login ก่อน แล้วตรวจสอบ user ,password
5. ถ้า Login ถูกต้อง แล้วเซต ชื่อฟอร์ม.AllowEdits = True  (OnOpen events)

16
เรียนรู้เบื้องต้นให้เชี่ยวชาญก่อนครับ ส่วนขั้นสูงมาเรียนรู้ในเว็บนี้ครับ ผมรับรอง ตำราไหนๆก็ไม่เทียบเท่า แต่ละท่านที่แนะนำ เทพทั้งนั้น!!!! Confirm...

หน้า: [1] 2