text1_[SIZE=3]AfterUpdate[/FONT]()
if len(text1)=2 then text2=right(text1,1) & left(text1,1)
end sub

เอาโค๊ดนี้ไปวางที่ตรงไหนครับ งงนิดหนึ่ง ช่วยอีกหน่อยนะครับ

คุณคีย์เลข 49 ลงในช่องไหน จำช่องนั้นไว้

เปิดฟอร์มในมุมมออกแบบ คลิ๊กขวาที่ช่องนั้น (เรียกว่า textbox)
เลือกคำสั่ง Properties (หรือเรียกว่า Dialog คุณสมบัติ)
ไปที่แท็บ Event (หรือเหตุการณ์)
มองหาบรรทัดที่เขียนว่า AfterUpdate (หลังการปรับปรุง)
คลิ๊กเมาส์ลงในช่องว่างของบรรทัดนั้น มันจะมีตัวเลือกให้เลือก (คอมโบ) ให้เลือก [Event Procedure]
แล้วในบรรทัดเดียวกันนั่นแหละครับ จะมีปุ่มให้กด ...   คลิ๊กมันเลยครับ 1 ครั้ง
มันจะเปิดหน้าต่าง VBA มาให้พร้อมทั้งเตรียมเป??ด หัว และปิดท้ายโค้ดให้คุณเรียบร้อย
โดยเขียนเป็นสองบรรทัด
บรรทัดเปิดหัว จะอยู่บนสุด (ไม่ต้องไม่แก้ไขอะไรมัน)
บรรทัดปิดท้ายจะอยู่ถัดลงมา (ไม่ต้องไปแก้ไขอะไรมัน) (มันเขียนว่า End sub)
ให้คุณนำคำสั่งไปวางตรงระหว่างบรรทัดนั้น (กรณีในอนาคตต้องการเพิ่มคำสั่งอื่นๆ ก็ให้แทรกบรรทัดอยู่ในนั้นไปเรื่อยๆ อย่ายุ่งกับบรรทัดเปิดหัว กับบรรทัดปิดท้ายเป็นพอ

งานของคุณ มีแค่คำสั่งเดียว วางลงไปเลยครับ
if len(text1)=2 then text2=right(text1,1) & left(text1,1)

หรือจะใช้
if len(text1)=2 then text2=strreverse(text1) ก็ได้

เมื่อเสร็จแล้ว ให้กดปุ่ม Save ที่หน้าต่าง VBA 1ครั้ง แล้วปิดหน้าต่าง VBA
มันจะกลับมาหน้าจอ มุมมองออกแบบของฟอร์ม
ให้คุณกดปุ่ม Save ที่ Access อีกครั้ง แล้วปิดฟอร์ม (เพื่อความแน่ใจ จริง ก็ไม่จำเป็นนักหรอก)
ทีนี้ให้ลองเปิดฟอร์มขึ้นมาใหม่ ลองทำงานดูครับ ลองคีย์เลข 49 ลงไป หรือเลขอะไรอื่นๆ ก็ได้ ที่เป็นเลข 2หลัก (ตัวบน หรือล่างล่ะ)
แล้วลองดูผลครับ

ขออภัยตอบคำถามช้า กระทู้มันตกหน้าแรก ไม่ได้เข้าอ่าน