แสดงกระทู้

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 - ชวลิต เสนะสุทธิ

หน้า: [1] 2 3 4
1
ได้แล้วครับ ขอบคุณมากครับ

2
ได้แล้วครับ แต่มันขึ้น


3
สอบการทำค่าว่างผลรวม ใน Query ให้เป็น 0 ครับ
ผมลองใส่ ค่าแล้วก่ไม่ได้
Nz([StockPart QOut]![SumOfQuanlity],0)
Val([StockPart QOut]![SumOfQuanlity],0))

สิ่งที่ติดคือ ค่าว่างตรงช่อง StockPart QOut.SumOfQuanlity มันไม่เป็น 0 รวมค่าให้ไปที่ช่อง คงเหลือไม่ได้ครับ
รบกวนช่วยหาวิธีให้หน่อยครับ


4
ลองแล้วหาไดร์เวอร์ลงเรียบร้อยครับ ก่ยังไม่ได้ครับ

5
สอบถามเราจะสร้างให้ Access รับค่าจาก Port RS232 ที่เป็น COMPORT ได้หรือไม่ครับ
เป็นตัว Scanner TOHKEN ของเครื่องจักรครับ





6
ที่บอกมาถูกต้องเลยครับ
"แต่ความต้องการคือให้ + 100 ไปเรื่อยๆหรือไม่เช่น
ถ้า 6 ครั้ง ก็จะได้ AAABBB100 - AAABBB600
แต่ถ้า 15 ครั้ง Bcode จะเป็น AAABBB100 - AAABBB1500"

Error ครับ

7
ไม่ได้ครับมันขึ้น Error

8
ขอบคุณครับ

9
เจอปัญหาครับ ถ้าเราใส่อีก DATA ตัวแรกจะซ้ำครับ

BCode
AAACCC100
AAACCC100
AAACCC200
AAACCC300
AAACCC400
AAACCC500
AAACCC600

10
สอบถามการเพิ่มตัวเลขลงท้ายอัตโนมัติ
เช่น Taxbox ชื่อ QRCode สแกน แล้วได้ค่า AAABBB100
สิ่งที่ต้องการคือ เมื่อสแกนแล้วค่าที่บันทึกก่จะได้
AAABBB100
AAABBB200
AAABBB300
AAABBB400
AAABBB500
AAABBB600

ตัวอย่างนี้เราเป็นผู้กำหนดว่าแต่ละรุ่นจะบันทึกกี่ครั้ง ไม่มีปุ่มให้กดครับ สแกนแล้วเข้า Database เลย
ขอบคุณครับ

11
ห้อง MS Access / : Code ใช้งานไม่ได้
« เมื่อ: 22 มี.ค. 64 , 10:20:45 »
ผมเคยเจอปัญหานี้ แต่ไม่รู้จะใช่ว่าจะเป็นเหมือนผมหรือเปล่าครับ
คือ
1. เครื่องที่เราทำใช้ภาษาอะไรครับ ตรง Control Panel > Region > Administrative
2. เครื่องที่เปิด อีกเครื่องหนึ่งต้องตั้งภาษาให้เป็นเหมือนกันด้วยครับ ไม่งั้นเปิดไม่ได้มันจะฟ้องแบบเดียวกันเลยครับ


13
Private Sub Barcode_PCB_AfterUpdate()
 Dim strTAG as string
 Dim wisroot As String
  Dim str1 As String
 
  strTAG = me.[TAG IMM]
  wisroot = Me.[Barcode PCB].Value
  str1 = "[Barcode PCB]=" & "'" & wisroot & "'"
 
  If Me.[Barcode PCB] = DLookup("[Barcode PCB]", "dbo_ZHJ01", str1) Then
  MsgBox "ข้อมูลซ้ำกัน"
  Me.Undo
  Else
    End If
Docmd.save
Docmd.gotorecord,,acnewrec
Me.[TAG IMM] = strTAG
End Sub

14
มาเจอปัญหาหลังจากใช้โค้ดครับ คือ โปรแกรมสามารถเปิดใช้งานได้เครื่องเดียวครับ ไม่สามารถเปิดมากกว่า 1 ได้ครับ

15
ขอบคุณมากครับ ทำได้แล้วครับ

16
จากที่ดู VDO ต้องสร้างปุ่มครับ แต่ผมลองไปทำแล้วก่ไม่ได้ครับ อยากได้แบบไม่ต้องสร้างปุ่มครับ

หน้า: [1] 2 3 4