ที่ Event
sub textbox1_onchange()
if Left(me.textbox1.text,1) = "T" then
     me.textbox1.text = "Toyota"
elseif left(me.textbox1.text,1) = "H" then
     me.textbox1.text = "Honda"
end if
end sub

ปรากฏว่าขึ้น Error ล่ะครับ มีวิธีอื่นไหมครับ ความต้องการประมาณว่าถ้าเราคีย ตัว T เข้าไป ให้เปลี่ยนค่าตัวมันเอง เป็น Toyota เลยครับ

แต่ถ้าเราเปลี่ยนเป็น me.textbox1.value = "Toyota" จะไม่มีปัญหา แต่ผมจำเป็นที่จะต้องใช้ค่าเป็น .Text แทนเพราะว่ายังมี function บางตัวฝังไว้ใน afterupdate และต้องทำงานตรงที่ afterupdate เท่านั้น ไม่สามารถนำค่าไปไว้ที่ Lostfocus ได้

ทีนี้คำถามคือทำไมไม่ดักที่ Keypress หรือ KeyDown ว่าถ้ากด T แล้วให้เปลี่ยนค่าเป็น Toyota เลย
ไม่สามารถทำได้เพราะว่าบางทีเราสามารถที่จะพิมพ์ตัว T ที่ตำแหน่งอื่นก็ได้นะครับ

กลับมาตรงที่ทำไมต้องเป็น afterupdate ด้วย
ผมยังงงกับ access ว่าถ้าเราเปลี่ยนค่าอะไรใน textbox ที่อยู่ใน subform พอเราเปลี่ยนค่าใน Text นั้น (เป็นแบบ unbound นะครับ) แล้วเราเอา mouse ไปกดที่ตรงไหนก็ได้ที่อยู่นอก subform
1. ถ้าเราใส่ msgbox ไว้ที่ lostfocus จะไม่ทำงาน
2. แต่ถ้าเราใส่ msgbox ไว้ที่ afterupdate ถึงจะทำงาน
ตรงนี้ใครพอมีคำตอบบ้างครับ

ขอบคุณล่วงหน้านะครับ