CheckBox Error
กระทู้เก่าบอร์ด อ.Yeadram

 1,256   3
URL.หัวข้อ / URL
CheckBox Error

ขอคำแนะนำครับ ตอนนี้ทำ CheckBox เพื่อเลือกข้อมูลที่ต้องการแล้วให้ view ออกเป็น report แต่ติด Error ไม่เข้าใจ คือ

ข้อมูลที่ช่อง barcode ถ้าเป็นตัวเลขต่อท้าย *81M0009329* จะไม่ error
แต่ถ้าข้อมูลที่ช่อง barcode เป็นตัวอักษรต่อท้าย *L16026413E* จะ error ว่า ( ตามรูปครับ)


Private Sub Command36_Click()
'Debug.Print "contact = " & Me.number

   If IsChecked(Me.number) = False Then
      colCheckBox.Add CLng(Me.number), CStr(Me.number)
   Else
      colCheckBox.Remove (CStr(Me.number))
   End If
   Me.Check34.Requery
End Sub



ขอบคุณครับ

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R10601

ผมอ่านโจทก์และดูรูปยังไม่ค่อยเข้าใจนัก เพราะไม่รู้ว่า me.number คืออะไร
เป็นชื่อคอนโทรล? แสดงข้อมูลของฟิลด์อะไร barcode (ตามรูป) หรือเปล่า?
หรือว่าเป็นชื่อฟิลด์จากแหล่งข้อมูล?

ตอนที่คุณ debug มันออกมา ข้อมูลที่แสดงออกมา มีเครื่องหมายดอกจันด้วยหรือเปล่า
เอาเครื่องหมาย * ออกจากข้อมูลก่อนได้ไหมครับ ค่อยทำการคำนวนใดๆ

เช่น แทนที่จะอ้าง me.Number
ก็ทำเป็น
dim mBar as string
mBar = mid(me.number,2,10)
แล้วต่อไปก็อ้างเป็นชื่อตัวแปรแทน

เมื่อการคำนวนสิ้นสุดแล้ว เวลาจะแสดงผลค่อยสั่งให้มันเขียน ดอกจันเพิ่มเติมกลับเข้ามาคืนก็ได้ เช่น
= chr(42) & mBar & chr(42)
เป็นต้น
2 @R10603
ขอบคุณสำหรับคำแนะนำครับ เดี่ยวผมขอลองไปแก้ไขก่อนน่ะครับ
จะรายงานให้ทราบครับ

ขอบคุณครับ
3 @R10623
คุณ yeadram คือผมไม่เก่งเรื่องคำสั่งเท่าไร ได้แต่ดูตัวอย่างที่เขาทำไว้
ส่วน dim mBar as string
mBar = mid(me.number,2,10)
ต้องเอาไปใส่ไว้ที่ไหนครับ
Private Sub Command36_Click()
'Debug.Print "contact = " & Me.number

   If IsChecked(Me.number) = False Then
      colCheckBox.Add CLng(Me.number), CStr(Me.number)
   Else
      colCheckBox.Remove (CStr(Me.number))
   End If
   Me.Check34.Requery
End Sub


มีลิ้งตัวอย่างโปรแกรมเก่าๆ ที่ทำไว้แล้วหรือเปล่า

ขอบคุณครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3311s