กระทู้เก่าบอร์ด อ.Yeadram
1,252 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
ขอบคุณครับ
ข้อมูลที่ช่อง 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
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
มีลิ้งตัวอย่างโปรแกรมเก่าๆ ที่ทำไว้แล้วหรือเปล่า
ขอบคุณครับ
ส่วน 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
มีลิ้งตัวอย่างโปรแกรมเก่าๆ ที่ทำไว้แล้วหรือเปล่า
ขอบคุณครับ
Time: 0.3810s
ผมอ่านโจทก์และดูรูปยังไม่ค่อยเข้าใจนัก เพราะไม่รู้ว่า me.number คืออะไร
เป็นชื่อคอนโทรล? แสดงข้อมูลของฟิลด์อะไร barcode (ตามรูป) หรือเปล่า?
หรือว่าเป็นชื่อฟิลด์จากแหล่งข้อมูล?
ตอนที่คุณ debug มันออกมา ข้อมูลที่แสดงออกมา มีเครื่องหมายดอกจันด้วยหรือเปล่า
เอาเครื่องหมาย * ออกจากข้อมูลก่อนได้ไหมครับ ค่อยทำการคำนวนใดๆ
เช่น แทนที่จะอ้าง me.Number
ก็ทำเป็น
dim mBar as string
mBar = mid(me.number,2,10)
แล้วต่อไปก็อ้างเป็นชื่อตัวแปรแทน
เมื่อการคำนวนสิ้นสุดแล้ว เวลาจะแสดงผลค่อยสั่งให้มันเขียน ดอกจันเพิ่มเติมกลับเข้ามาคืนก็ได้ เช่น
= chr(42) & mBar & chr(42)
เป็นต้น