ต้องการแสดงจำนวนเงินในTextBox

[Bafnet]

ใส่จำนวนเงิน 10000 ต้องการแสดงค่าหลังจากคีย์ข้อมูลเป็น 10,0000 ผมกำหนดค่าในTextBox1 ดังนี้
Private Sub TextBox1_AfterUpdate()
TextBox1.Value = format(TextBox1.Value, "#,##0.00")
End Sub
เกิดDebugแสดงผลผิดพลาดที่คำว่าformat ไม่ทราบว่าจะเขียนให้ถูกต้องอย่างไรครับ/ รบกวนอีกเรื่องครับความสัมพันธ์ของtxtBox-ImgBox
txtID = รับค่าจากเลขบัตรประชาชน
ImgCustom = แสดงผลรูปภาพ
....................................
lstCustom_Enter()
myPic = "D:\Data\"& txtID & ".jpg"
ImgCustom.Picture = LoadPicture(myPic)
End Sub
ปัญหาคือเมื่อไม่มีรูปภาพที่ชื่อเดียวกับtxtIDในแฟ้มที่กำหนดก็จะdebug ผมอยากสร้างรูปหนึ่งในลักษณะเป็นรูปหลัก ถ้าไม่มีรูปตามที่กำหนด(myPic) ก็ให้แสดงรูปหลักแทนพร้อมแสดงMsgBox"ลูกค้ารายนี้ยังไม่มีข้อมูลรูปภาพในฐานข้อมูล"
จะเขียนคำสั่งเพิ่มเติมอย่างไรได้ครับ รบกวนอาจารย์และพี่ๆผู้รู้ด้วยครับผม

[snasui]

Private Sub TextBox1_AfterUpdate()
TextBox1.Value = format(TextBox1.Value, "#,##0.00")
End Sub

เท่าที่ทดสอบสามารถแสดงผลได้ครับ

รบกวนอีกเรื่องครับความสัมพันธ์ของtxtBox-ImgBox
txtID = รับค่าจากเลขบัตรประชาชน
ImgCustom = แสดงผลรูปภาพ
....................................
lstCustom_Enter()
myPic = "D:\Data\"& txtID & ".jpg"
ImgCustom.Picture = LoadPicture(myPic)
End Sub
ปัญหาคือเมื่อไม่มีรูปภาพที่ชื่อเดียวกับtxtIDในแฟ้มที่กำหนดก็จะdebug ผมอยากสร้างรูปหนึ่งในลักษณะเป็นรูปหลัก ถ้าไม่มีรูปตามที่กำหนด(myPic) ก็ให้แสดงรูปหลักแทนพร้อมแสดงMsgBox"ลูกค้ารายนี้ยังไม่มีข้อมูลรูปภาพในฐานข้อมูล"
จะเขียนคำสั่งเพิ่มเติมอย่างไรได้ครับ รบกวนอาจารย์และพี่ๆผู้รู้ด้วยครับผม

ลองปรับเป็น

Code: Select all

Sub lstCustom_Enter()
On Error Resume Next
myPic = "D:\Data\"& txtID & ".jpg"
ImgCustom.Picture = LoadPicture(myPic)
  If Err <> 0 Then
    myPic = "D:\Data\"& MainPic & ".jpg"
    MsgBox "Customer's picture not available"
    Exit Sub
  EndIf
End Sub

MainPic คือรูปหลักที่ต้องการให้แสดง หากยังไม่ได้ลองส่งไฟล์ตัวอย่างมาครับจะได้สะดวกในการทดสอบ

[Bafnet]

สวัสดีครับอาจารย์
เรื่องTextBox ยังคงใช้ไม่ได้ครับ/ส่วนเรื่องการแสดงรูปกรณี Err นั้นทำได้แล้วครับ แต่ต้องเขียนคำสั่งLoadPicture เพิ่มอีกหนึ่งคำสั่งครับ
ผมอยากให้อาจารย์ดูไฟล์ให้หน่อยนะครับ ช่องรับค่าจำนวนเงินอยู่หน้าระบบเปิดบัญชีเงินฝาก(ด้านล่างซ้ายมือ)
file.BES 4U.xls http://www.upload-thai.com/download.php ... 2240f34367

User=admin
Password=admin
การส่งข้อมูล(บันทึก)/หรือแก้ไขผมเขียนโดยใช้ Target = OFFSET(Ref,COUNTA(Sheet!$A:$A)-1,0,1,32) แล้วส่งค่า Source ที่กำหนดไปต่อท้ายข้อมูลในตาราง
การเขียนคำสั่งแบบนี้พอไปได้ไหมครับหรือ
Cmdบันทึกควรเขียนอย่างไร Cmdแก้ไขข้อมูลควรเขียนอย่างไร
กรุณาด้วยนะครับ

[snasui]

เรื่องการแสดงรูปกรณี Err นั้นทำได้แล้วครับ แต่ต้องเขียนคำสั่งLoadPicture เพิ่มอีกหนึ่งคำสั่งครับ

ยินดีด้วยครับ Code ที่ผมให้ไปเขียนตกไปบรรทัดนึงครับ ซึ่งควรจะเปรับป็นตามด้านล่าง

Code: Select all

Sub lstCustom_Enter()
On Error Resume Next
myPic = "D:\Data\"& txtID & ".jpg"
ImgCustom.Picture = LoadPicture(myPic)
  If Err <> 0 Then
    myPic = "D:\Data\"& MainPic & ".jpg"
    ImgCustom.Picture = LoadPicture(myPic) '<== Add this line
    MsgBox "Customer's picture not available"
  EndIf
End Sub

กรณีที่ Function Format ใช้ไม่ได้เพราะว่าคุณ Bafnet ไปใช้ Format เป็นชื่อ Procedure ใน Module2 ตามด้านล่าง ซึ่งควรลบหรือเปลี่ยนชื่อเพื่อไม่ให้ Code Error ครับ

Code: Select all

Sub format()
'
' format Macro
' xxx
'

'
    Range("X3").Select
    Selection.NumberFormat = "0000000000000000"
    Range("W13").Select
End Sub

การส่งข้อมูล(บันทึก)/หรือแก้ไขผมเขียนโดยใช้ Target = OFFSET(Ref,COUNTA(Sheet!$A:$A)-1,0,1,32) แล้วส่งค่า Source ที่กำหนดไปต่อท้ายข้อมูลในตาราง

การเขียน Code เพื่อส่งข้อมูลไปบันทึกท้ายตารางเราสามารถกำหนดใน Code VBA เป็น

Code: Select all

Dim Target As Range
Set Target = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

เป็นการกำหนด Target ให้เป็นเซลล์หลังจากเซลล์สุดท้ายที่มีข้อมูล
กรณีกำหนดด้วยการให้ชื่อเซลล์ตามตัวอย่างที่ถามมาคิดว่าสามารถใช้ได้แล้วครับ

[Bafnet]

ขอบคุณครับอาจารย์
โมดูล2 ผมลองทำดูตอนที่จะสั่งฟอร์แมทแล้วลืมลบออก
ทำได้แล้วครับ
ขอบคุณมากๆครับ รักษาสุขภาพนะครับ

[bank9597]

ขอบคุณครับ